vbscript 使用VBScript发送电子邮件
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了vbscript 使用VBScript发送电子邮件相关的知识，希望对你有一定的参考价值。
Sub Send_Email()
'
' Send_Email Macro
' send an email
'
' Keyboard Shortcut: Ctrl+Shift+E
'
Set emailObj = CreateObject("CDO.Message")
emailObj.From = "Username@gmail.com"
emailObj.To = "IntendedRecipient@gmail.com"
emailObj.Subject = "Test CDO subject"
emailObj.TextBody = "Test CDO body"
Set emailConfig = emailObj.Configuration
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Username@gmail.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "UserPasswordHere"
emailConfig.Fields.Update
emailObj.Send
If Err.Number = 0 Then MsgBox "Email Sent!"
End Sub
以上是关于vbscript 使用VBScript发送电子邮件的主要内容，如果未能解决你的问题，请参考以下文章
vbscript 从表格发送电子邮件
vbscript 从Excel发送电子邮件 - VBA
在 vbscript 中发送多部分电子邮件
vbscript [.net] [vb]从内存流发送包含附件的电子邮件
vbscript [.net] [vb]从目录发送带有文件附件的电子邮件
从 VBScript 使用剪贴板