VBS使用SMTP协议发送邮件
来源：互联网 发布：office办公软件自学 编辑：程序博客网 时间：2024/06/05 08:58
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"Set Email = CreateObject("CDO.Message")Email.From = "sender@xx.com"Email.To = "receiver@xx.com"Email.CC = "cclist@xx.com"Email.Subject = "mail subject"Email.Textbody = "OK!"Email.AddAttachment "C:\111.txt"Email.Configuration.Fields.Item(NameSpace &"sendusing") = 2Email.Configuration.Fields.Item(NameSpace & "smtpserver")= "smtp.xx.com"Email.Configuration.Fields.Item(NameSpace & "smtpserverport")= 25Email.Configuration.Fields.Item(NameSpace & "smtpauthenticate") = 1Email.Configuration.Fields.Item(NameSpace & "sendusername")= "username"Email.Configuration.Fields.Item(NameSpace & "sendpassword")= "password"Email.Configuration.Fields.UpdateEmail.Send
