国产探花免费观看_亚洲丰满少妇自慰呻吟_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 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 三穗县| 阜新| 定陶县| 沂水县| 凤山县| 澄江县| 张家港市| 东乌珠穆沁旗| 上犹县| 揭西县| 赞皇县| 政和县| 离岛区| 北宁市| 新昌县| 文化| 鸡西市| 宣化县| 和政县| 永德县| 镇原县| 米林县| 东乡县| 盱眙县| 改则县| 齐齐哈尔市| 台州市| 株洲县| 长白| 页游| 深泽县| 琼中| 临城县| 淳安县| 府谷县| 蓬溪县| 建平县| 江油市| 鄂尔多斯市| 凉城县| 南阳市|