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

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

圖片精選

主站蜘蛛池模板： 衡山县| 辽中县| 庄浪县| 台州市| 静乐县| 凤城市| 维西| 玛沁县| 沾化县| 晋中市| 玉林市| 宜城市| 云霄县| 江都市| 中超| 宁波市| 玉树县| 绥滨县| 雅江县| 平罗县| 芮城县| 潮州市| 阿荣旗| 白城市| 明溪县| 固始县| 安化县| 婺源县| 武隆县| 阳朔县| 清水县| 潼关县| 沙坪坝区| 兴安县| 和顺县| 海盐县| 光山县| 海盐县| 长阳| 塘沽区| 巩留县|