vbscript VBS - 邮件脚本

Posted 2021-05-21

' Const schema = http://schemas.microsoft.com/cdo/configuration/smtpserver
Const cdoBasic = 2
' Const cdoSendUsingPort = 2


' Need arguments for : recipient, subject, attachment, Textbodyparams
Set args = WScript.Arguments
arg1 = args(0)
arg2 = args(1)
'arg2 = args(2)
'arg2 = args(3)
'arg2 = args(4)




Set emailObj      = CreateObject("CDO.Message")
emailObj.From     = "[e-mail]"
emailObj.To     = arg1
'emailObj.To       = "[e-mail]"
emailObj.Subject  = "Test CDO"
emailObj.TextBody = "Test CDO"

'emailObj.AddAttachment "C:\Users\p.doulgeridis\Desktop\zdm23108.XLS"
emailObj.AddAttachment arg2

Set emailConfig = emailObj.Configuration

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "holhub.intranet.dei.com.gr"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")    = 2  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      = False 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")    = "[e-mail]"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "Doul2018"
emailConfig.Fields.Update

emailObj.Send

If err.number = 0 then Msgbox "Done"