主题：[原创]含泪哭着跪求！！利用vb发邮件，哪位高手进来看看！！！~~~~~
weitao201
[专家分：40] 发布于 2007-07-18 20:33:00
用vb发邮件。
请高手按照以下要求写好代码就行了，谢谢~~~~
先照这个写，具体我可以改。。
在form1窗口中的text1.text得到字符串AnswerX
然后将AnswerX发送到以下地址：
发送邮件信箱：abc@163.com
发信服务器：smtp.163.com
密码：123456
首信邮件信箱：cba@163.com
收信服务器：pop3.163.com
各位高手帮帮啊，今天就要代码，谢谢了！
感激不尽！！！！
回复列表 （共30个回复）
21 楼
big123456 [专家分：50] 发布于 2007-07-20 15:58:00
Private Sub Form_Load()
Dim NameS As String
Dim Email As Object
NameS = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "bigwei@126.com" //你自己的油箱号码
Email.To = "bigwei@126.com" // 你自己的油箱号码（可以和上面相同）
Email.Subject = "用VB代码发的邮件！" //相当于邮件里的标题
Email.Textbody = "你收到用VB代码发送的邮件了！"//相当于邮件里的内容
Email.Configuration.Fields.Item(NameS & "sendusing") = 2
Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.126.com"//邮件服务器
Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25//端口号
Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
Email.Configuration.Fields.Item(NameS & "sendusername") = "bigwei"//油箱号码@前面的名字
Email.Configuration.Fields.Item(NameS & "sendpassword") = "119"//你油箱的密码
Email.Configuration.Fields.Update
Email.Send
End Sub
22 楼
big123456 [专家分：50] 发布于 2007-07-20 15:59:00
确实好 顶一下 另招聘 技术人员共同合作赚钱项目 懂不懂技术都可以加QQ517131679
23 楼
啊远 [专家分：2610] 发布于 2007-07-20 16:32:00
Private Sub Form_Load()
Dim NameS As String
Dim Email As Object
NameS = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "bigwei@126.com" //发件人的邮箱地址
Email.To = "bigwei@126.com" // 收件人的邮箱地址
Email.Subject = "用VB代码发的邮件！" //邮件标题
Email.Textbody = "你收到用VB代码发送的邮件了！"//邮件内容
Email.Configuration.Fields.Item(NameS & "sendusing") = 2
Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.126.com"//邮件发送服务器
Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25//邮件发送服务器开放的端口号 Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
Email.Configuration.Fields.Item(NameS & "sendusername") = "bigwei"//发件人的帐号
Email.Configuration.Fields.Item(NameS & "sendpassword") = "119"//发件人的密码
Email.Configuration.Fields.Update
Email.Send
End Sub
24 楼
i0war0 [专家分：0] 发布于 2007-08-06 12:25:00
太感谢啦,实在感谢,我注册就是为了进来感谢的,第一次进这么好的站,第一次这么快解决问题.谢谢各位;乐于助人的同志们
25 楼
superajl [专家分：190] 发布于 2007-08-14 09:46:00
那怎么收信呢？啊远大哥呢个否也做一个？
26 楼
lele2007 [专家分：0] 发布于 2007-11-13 14:31:00
我想问下，怎么把 Email.Subject = "用VB代码发的邮件！"
Email.Textbody = "你收到用VB代码发送的邮件了！"
改成：text1.text和text2.text里输入的数据库呢？这样比较方便
27 楼
rzfc [专家分：230] 发布于 2007-11-14 19:50:00
学习学习,好!
28 楼
francofan [专家分：0] 发布于 2009-05-19 14:15:00
获益不浅 谢谢分享！
29 楼
hhllis [专家分：0] 发布于 2009-05-20 22:58:00
不顶不行....试了非常好学习了
30 楼
zj_jk [专家分：0] 发布于 2009-06-18 00:31:00
谢谢高手 不顶不行啊！！！
我来回复
您所在位置：