- Nov 18, 2006
I have some code that works fine on my machine, but when my coworker runs it, the subject line comes through as Chinese characters. The email still sends with the file attached, but the subject line has the Chinese characters. Has anyone seen this before or have any ideas as to why this is happening? Any help would be greatly appreciated.
If y = 0 Then If CurrentTime1 > "12:00" And Mid(ActiveWorkbook.Name, 11, 8) = todaydate1 And Mid(ActiveWorkbook.Name, 20, 2) = "PM" Then Message = MsgBox("Do you want to send email?", vbYesNo, "Send Email") nwMessge = MsgBox("Do you need to save the current file?", vbYesNo, "Save File Prompt") If nwMessge = vbNo Then 'Do Nothing ElseIf nwMessge = vbYes Then Cancel = True Exit Sub End If If Message = vbNo Then ElseIf Message = vbYes Then Dim Recip() With ActiveWorkbook ReDim Preserve Recip(0) Recip(0) = "ABC1@gmail.net" ReDim Preserve Recip(1) Recip(1) = "ABC2@gmail.net" ReDim Preserve Recip(2) Recip(2) = "ABC3@gmail.net" ReDim Preserve Recip(3) Recip(3) = "ABC4@gmail.net" ReDim Preserve Recip(4) Recip(4) = "ABC5@gmail.com" ReDim Preserve Recip(5) Recip(5) = "ABC6@gmail.com" 'and so on .SendMail Recipients:=Recip, _ Subject:="Standard " & Format(Date, "mm-dd-yy") & " PM.xlsm" End With End If End If Else '''do nothing, user is opening this file from their email and is likely not the person updating the sheet End If