
附件 1:nc.rar (2006-11-18 01:54, 26.57 K, 下载附件所需积分 1 点 ,下载次数: 316)
| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
附件 1:1.gif (2007-11-6 20:04, 4.63 K,下载次数: 3)
![]()
CODE: [Copy to clipboard]Set cdo = CreateObject("CDO.Message")
strCfg = "http://schemas.microsoft.com/cdo/configuration/"
With cdo
.Sender = "发送者邮件地址"
.From = "发送者邮件地址"
.To = "接收者邮件地址"
.Fields("urn:schemas:mailheader:X-Priority") = 1
.Fields.Update
.Subject = "邮件标题"
.TextBody = "邮件内容"
.Configuration(strCfg & "SendUsing") = 2
.Configuration(strCfg & "smtpserver") = "发送邮件服务器地址"
.Configuration.Fields.Update
.Send
End With
msgbox "发送完成"
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |