一个VBS发给别人,怎么能把对方输入的内容自动上传到FTP或者发送邮件给我。

一个VBS发给别人,怎么能把对方输入的内容自动上传到FTP或者发送邮件给我。,第1张

输入内容作为邮件内容发动,发邮件:

'═════代═══码═══开═══始═════
Set Email = CreateObject("CDOMessage")
a=inputbox("邮件的内容","","")
strName = ""
EmailFrom = "1234567890000@qqcom" '你的qq邮箱
pass="1234567890"'你的qq密码
EmailTo = "1234567890000@qqcom" '目的地址
EmailSubject = ""
EmailTextbody =a
with EmailConfigurationFields
Item(strName & "sendusing") = 2
Item(strName & "smtpserver") = "smtpqqcom"
Item(strName & "smtpserverport") = 25
Item(strName & "smtpauthenticate") = 1
Item(strName & "sendusername") = qq
Item(strName & "sendpassword") = pass
Update
End With
Emailsend
'Created By escortmnm from VBS团队
'═════代═══码═══结═══束═════

欢迎分享,转载请注明来源:表白网

原文地址:https://h5.hunlipic.com/biaobai/3366977.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2024-02-24
下一篇2024-02-24

发表评论

登录后才能评论

评论列表(0条)

    保存