VBScript send mail with Attachment.

 Hôm nay Sếp yêu cầu ai viết được script để gửi Mail cho KH thì sếp thưởng cho 200k.

Thông tin nằm trong một File Excel, có chưa Tên, địa chỉ mail KH, và đường dẫn đến file attachment. Mình đã viết được cái script đang Test, thì có thằng nó "nẵng tay trên của mình" thế mới đau:

Chương trình đã Test chạy OK.

 ''''''''''''''Send mail script with Attachment''''''''''''''''''''''''''''''''
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
    ("C:\Book1.xls")

For i= 1 to 3
    
    'For j =1 to 3
        'If objWorkbook.Worksheets(1).Cells(i,j).value <> ”” then
            name= objWorkbook.Worksheets(1).Cells(i,1).value
            mailadd= objWorkbook.Worksheets(1).Cells(i,2).value            
            fileatt= objWorkbook.Worksheets(1).Cells(i,3).value
            sendmailex name,mailadd,fileatt
        'End if
    'Next
    
Next

objWorkbook.Close 
'SaveChanges:= False
objExcel.Quit


Function sendmailex(name,mailadd,fileatt)
' Create link to CDOmail
Set objMsg        = CreateObject("CDO.Message")
' Enter subject of message in quotes
objMsg.Subject  = "Subject of Message"
' Enter email address of sender within quotes ie
objMsg.From      = "hieuparadox@gmail.com"
' Enter destination email address in quotes.
objMsg.To          = mailadd
objMsg.TextBody = "Content of the mail"
'MsgBox(fileatt)
objMsg.AddAttachment fileatt    
objMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMsg.Configuration.Fields.Update
objMsg.Send
End Function

Wscript.Echo "DONE"
Wscript.Quit