Xin chào tất cả anh em,
Cũng như mọi lập trình viên VBA, mình đang không giải quyết được vấn đề Tiếng Việt khi gửi email tự động từ excel
Mình xin gửi file và code, nhờ các anh em chỉ giáo và hỗ trợ. Xin trân trọng cảm ơn!
Đây là đoạn code chương trình:
Sub GuiThu()
'Tao cac doi tuong thu và thiet lap tat ca cac truong can thiet de gui email.
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strPassFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
Dim FileAttachment As String
'Cau hinh ket noi den may chu SMTP de gui email
strFrom = Sheet2.Cells(2, 2)
strPassFrom = Trim(Sheet2.Cells(3, 2))
strTo = Sheet1.Cells(2, 2)
strCc = Sheet1.Cells(2, 3)
strBcc = Sheet1.Cells(2, 4)
strSubject = Sheet2.Cells(7, 2)
strBody = Sheet2.Cells(8, 2)
FileAttachment = Sheet2.Range("B4").Value & Sheet2.Range("B5").Value & Sheet1.Range("A2").Value & "." & Sheet2.Range("B6").Value
'Cau hinh CDO de su dung may chu SMTP GMAIL de gui email.
Set CDO_Mail = CreateObject("CDO.Message")
On Error GoTo Error_Handling
Set CDO_Config = CreateObject("CDO.Configuration")
CDO_Config.Load -1
Set SMTP_Config = CDO_Config.Fields
With SMTP_Config
.Item("
http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("
http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("
http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("
http://schemas.microsoft.com/cdo/configuration/sendusername") = strFrom
.Item("
http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPassFrom
.Item("
http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("
http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Update
End With
With CDO_Mail
Set .Configuration = CDO_Config
End With
'Dien vao cac truong thich hop cho doi tuong CDO_Mail và dua ra lenh GUI
CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.HTMLBody = strBody
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.AddAttachment FileAttachment
CDO_Mail.Send
Error_Handling:
If Err.Description <> "" Then MsgBox Err.Description
End Sub
