Email sending with subject line in Chinese Characters

NicholasP

Active Member
Joined
Nov 18, 2006
Messages
291
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.

Thanks
Nick

Code:
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
 
Last edited:

Excel Facts

Format cells as time
Select range and press Ctrl+Shift+2 to format cells as time. (Shift 2 is the @ sign).

Forum statistics

Threads
1,223,956
Messages
6,175,612
Members
452,661
Latest member
Nonhle

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top