发送文本Email:
2 | Set myMail=CreateObject( "CDO.Message" ) |
3 | myMail.Subject= "Sending email with CDO" |
4 | myMail.From= "mymail@mydomain.com" |
5 | myMail. To = "someone@somedomain.com" |
6 | myMail.TextBody= "This is a message." |
发送文本Email,带有Bcc和CC的:
02 | Set myMail=CreateObject( "CDO.Message" ) |
03 | myMail.Subject= "Sending email with CDO" |
04 | myMail.From= "mymail@mydomain.com" |
05 | myMail. To = "someone@somedomain.com" |
06 | myMail.Bcc= "someoneelse@somedomain.com" |
07 | myMail.Cc= "someoneelse2@somedomain.com" |
08 | myMail.TextBody= "This is a message." |
发送HTML格式的Email:
2 | Set myMail=CreateObject( "CDO.Message" ) |
3 | myMail.Subject= "Sending email with CDO" |
4 | myMail.From= "mymail@mydomain.com" |
5 | myMail. To = "someone@somedomain.com" |
6 | myMail.HTMLBody = "<h1>This is a message.</h1>" |
发送网页:
2 | Set myMail=CreateObject( "CDO.Message" ) |
3 | myMail.Subject= "Sending email with CDO" |
4 | myMail.From= "mymail@mydomain.com" |
5 | myMail. To = "someone@somedomain.com" |
发送本机的网页
2 | Set myMail=CreateObject( "CDO.Message" ) |
3 | myMail.Subject= "Sending email with CDO" |
4 | myMail.From= "mymail@mydomain.com" |
5 | myMail. To = "someone@somedomain.com" |
发送带附件的文本email
02 | Set myMail=CreateObject( "CDO.Message" ) |
03 | myMail.Subject= "Sending email with CDO" |
04 | myMail.From= "mymail@mydomain.com" |
05 | myMail. To = "someone@somedomain.com" |
06 | myMail.TextBody= "This is a message." |
07 | myMail.AddAttachment "c:\mydocuments\test.txt" |
使用远程Server发送文本Email
02 | Set myMail=CreateObject( "CDO.Message" ) |
03 | myMail.Subject= "Sending email with CDO" |
04 | myMail.From= "mymail@mydomain.com" |
05 | myMail. To = "someone@somedomain.com" |
06 | myMail.TextBody= "This is a message." |
07 | myMail.Configuration.Fields.Item _ |
10 | myMail.Configuration.Fields.Item _ |
14 | myMail.Configuration.Fields.Item _ |
17 | myMail.Configuration.Fields.Update |
远程Server需要身份验证
01 | Const cdoSendUsingPickup = 1 |
02 | Const cdoSendUsingPort = 2 |
08 | Set objMessage = CreateObject( "CDO.Message" ) |
09 | objMessage.Subject = "Example CDO Message" |
10 | objMessage.From = "" "Me" " <me@my.com>" |
11 | objMessage. To = "test@paulsadowski.com" |
12 | objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication." |
14 | objMessage.Configuration.Fields.Item _ |
18 | objMessage.Configuration.Fields.Item _ |
22 | objMessage.Configuration.Fields.Item _ |
26 | objMessage.Configuration.Fields.Item _ |
30 | objMessage.Configuration.Fields.Item _ |
34 | objMessage.Configuration.Fields.Item _ |
38 | objMessage.Configuration.Fields.Item _ |
42 | objMessage.Configuration.Fields.Item _ |
45 | objMessage.Configuration.Fields.Update |
发送对文件附件和回执,并与远程服务器的身份验证
交付处置通知请求。为了使用的传递状态通知(返回
收据和交付处置的要求),我们需要创建一个引用到CDO的配置
除了CDO Message对象的对象,并设置小数目的属性。你必须
使用cdoSendUsingPort(网络连接),而不是SMTP服务器的拾取目录
(cdoSendUsingPickup)。
01 | Const cdoSendUsingPickup = 1 |
02 | Const cdoSendUsingPort = 2 |
06 | Const cdoDSNDefault = 0 |
08 | Const cdoDSNFailure = 2 |
09 | Const cdoDSNSuccess = 4 |
11 | Const cdoDSNSuccessFailOrDelay = 14 |
13 | set objMsg = CreateObject( "CDO.Message" ) |
14 | set objConf = CreateObject( "CDO.Configuration" ) |
16 | Set objFlds = objConf.Fields |
26 | strBody = "This is a sample message." & vbCRLF |
27 | strBody = strBody & "It was sent using CDO." & vbCRLF |
30 | Set .Configuration = objConf |
31 | . To = "test@paulsadowski.com" |
33 | .Subject = "This is a CDO test message" |
36 | .Addattachment "c:\temp\Scripty.zip" |
37 | .Fields( "urn:schemas:mailheader:disposition-notification-to" ) = "me@my.com" |
38 | .Fields( "urn:schemas:mailheader:return-receipt-to" ) = "me@my.com" |
39 | .DSNOptions = cdoDSNSuccessFailOrDelay |