UC知道vbs高手进 如何领用vbs发邮件？
来源：百度知道 编辑：UC知道 时间：2024/09/28 17:23:55
利用OE的就别说了...要求运行后将D:\1.RAR作为附件发送到12345678@qq.com (用来发送的邮箱地址为123456@qq.com 密码为123456789 如果可以匿名发送再加50分)
我自己有个脚本 但是不行 谁可以想出新的方法或修改我这个也可以..记住 自己先测试下 一定要成功（追加220分！阳光 绝对信守承诺 !）否则不给分.
我的脚本:namespace="http://schemas.microsoft.com/cdo/configuration/"
set email=CreateObject("CDO.Message")
email.From="1234567@163.com"
email.To="1234567@qq.com"
email.Subject="i love you"
email.Textbody="i will love you forever!"
Email.AddAttachment "d:\1.rar"
with email.Configuration.Fields
.Item(namespace&"sendusing")=2
.Item(namespace&"smtpserver")="smtp.163.com"
.Item(namespace&"smtpserverport")=25
.Item(namespace&"smtpauthenticate")=1
.Item(namespace&"sendusername")="1234567&quo
我自己有个脚本 但是不行 谁可以想出新的方法或修改我这个也可以..记住 自己先测试下 一定要成功（追加220分！阳光 绝对信守承诺 !）否则不给分.
我的脚本:namespace="http://schemas.microsoft.com/cdo/configuration/"
set email=CreateObject("CDO.Message")
email.From="1234567@163.com"
email.To="1234567@qq.com"
email.Subject="i love you"
email.Textbody="i will love you forever!"
Email.AddAttachment "d:\1.rar"
with email.Configuration.Fields
.Item(namespace&"sendusing")=2
.Item(namespace&"smtpserver")="smtp.163.com"
.Item(namespace&"smtpserverport")=25
.Item(namespace&"smtpauthenticate")=1
.Item(namespace&"sendusername")="1234567&quo
你可以考虑不用给分
写程序很少会有人帮你写好.最终要自己懂逻辑才ok
以下是程序方面建议.当然你要有可以运转的环境…
你可以选择购买SMTP组件或者使用m$内建提供的CDO(Collaboration Data Objects ) 组件来做
在 VB 中你可以引用 [Microsoft CDO for Windows 2000 Library]将函式库引用至你的专案中
相关资料你可以到m$网站查询
http://support.microsoft.com/default.aspx/ph/6384/en-us/?sid=198
***程序代码提供你参考 ***
Dim objCDO As New CDO.Message
With objCDO
.From = ”发信人”
.To = ”收信者”
.Subject = ”邮件主旨”
.TextBody = ”输入您的邮件内容”
.Fields.Update
.Configuration(”http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
.Configuration(”http://schemas.microsoft.com/cdo/configuration/smtpserver”) = ”发信邮件服务器”<