国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

vbs sendmail發郵件帶附件方法

2020-07-26 11:56:50
字體:
來源:轉載
供稿:網友
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "zzzevazzz@21cn.com"
Email.To = "zzzevazzz@126.com"
Email.Subject = "Test sendmail.vbs"
Email.Textbody = "OK!"
Email.AddAttachment "C:/foo.zip"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.21cn.com" 
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "zzzevazzz"
.Item(NameSpace&"sendpassword") = "ph4nt0m!"
.Update
End With
Email.Send 
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 江西省| 邳州市| 安陆市| 剑阁县| 广南县| 绥芬河市| 榕江县| 吴旗县| 桐柏县| 宜兰县| 马边| 灌阳县| 馆陶县| 云龙县| 仙桃市| 佛山市| 嵊州市| 怀远县| 孟州市| 法库县| 黄平县| 西乌珠穆沁旗| 安福县| 夏河县| 孙吴县| 都江堰市| 庄河市| 松原市| 溧阳市| 翼城县| 北辰区| 博爱县| 临江市| 靖远县| 延津县| 乌苏市| 颍上县| 南川市| 区。| 北辰区| 东乌|