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

首頁 > 編程 > VBScript > 正文

vbs sendmail發郵件帶附件方法

2019-10-26 18:01:16
字體：大 中 小
來源：轉載
供稿：網友
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 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 襄汾县| 黑山县| 洱源县| 鸡泽县| 田东县| 巴青县| 枣阳市| 玉龙| 察隅县| 五峰| 江华| 酉阳| 雅安市| 龙南县| 庄河市| 棋牌| 彭山县| 樟树市| 台湾省| 布尔津县| 拉萨市| 平陆县| 梁山县| 陈巴尔虎旗| 宁海县| 屏南县| 兴山县| 彰武县| 农安县| 虎林市| 张家口市| 分宜县| 叶城县| 小金县| 独山县| 马山县| 合作市| 葵青区| 水城县| 芮城县| 高淳县|