Email sending with subject line in Chinese Characters

NicholasP

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

Forum statistics

Threads
1,078,552
Messages
5,341,119
Members
399,420
Latest member
Kezra

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top