主题：VB用邮箱发信的错误
裂偶、荡
[专家分：0] 发布于 2010-08-24 11:59:00
Sub sendemail()
If Not send Then
Dim NameS As String
Dim Email As Object
NameS = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "1111111111111@qq.com"
Email.To = "111111111@qq.com"
Email.Subject = "速递"
Email.Textbody = "QQ:" & Text1.Text & "-------" & Text2.Text & vbCrLf & "DNA问题一：" & Form1.Combo1.Text & "------------" & Form1.Text1.Text & Form1.Text4.Text & vbCrLf & "DNA问题二：" & Form1.Combo2.Text & "------------" & Form1.Text2.Text & Form1.Text5.Text & vbCrLf & "DNA问题三：" & Form1.Combo3.Text & "------------" & Form1.Text3.Text & Form1.Text6.Text
Email.Configuration.Fields.Item(NameS & "sendusing") = 2
Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.qq.com"
Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25
Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
Email.Configuration.Fields.Item(NameS & "sendusername") = "*************"
Email.Configuration.Fields.Item(NameS & "sendpassword") = "************"
Email.Configuration.Fields.Update
Email.send
End If
End Sub
如果我使用这段代码发送邮件的话,就会提示以下错误:
[img]http://25171.5d5d.info/QQ截图未命名aaaa.JPG[/img]
[img]http://25171.5d5d.info/QQ截图未命名1.JPG[/img]
而且邮件也收不到.
如果我用On Error 的话
虽然错误没有再显示了，邮件还是收不到。
[fly]小弟等你的回答，谢谢![/fly]
回复列表 （共7个回复）
沙发
孙瑞 [专家分：590] 发布于 2010-09-01 11:17:00
研究中……
板凳
天天学习 [专家分：4570] 发布于 2010-09-04 08:51:00
邮件无法发送到 SMTP 服务器。传输错误代码为 0x80040217。服务器响应为 not available
3 楼
天天学习 [专家分：4570] 发布于 2010-09-04 09:00:00
如果有126的邮箱，可以先用126的smtp.126.com测试下。
我这里测试时，126的没问题，smtp.qq.com就会出错。
4 楼
moke5 [专家分：30] 发布于 2010-09-10 23:22:00
寻找一直寻找机会的人！
一个趋势中的趋势的项目！
一个直销和传销终结者的项目！
一个帮助普通创业者成功的项目！
我们在互联网上正在拓展一个生意项目,现在正在寻求合作伙伴。我们认为成功的关键是你是什么人？还有你和谁在一起。我们在乎的是--您是否是有激情、有梦想的人。有意者请跟我们联系，我们和您谈谈，给您讲解一些生意概念，或许我们可以合作。一个集即时网游、交友，娱乐游戏，网络品牌代理商城，互联网平台项目招商进行中……详情QQ空间资料http://user.qzone.qq.com/909065437/infocenter
网商咨询 摩客天宇QQ 909065437
5 楼
xiaomer [专家分：0] 发布于 2010-09-26 09:53:00
Private Declare Function icePub_speedMailText Lib "icePubDll.dll" (ByVal strMyname As String, ByVal sendMail As String, ByVal toMailList As String, ByVal strSubject As String, ByVal strText As String) As Integer
Dim a As Integer
Dim str1 As String
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "请填好数据～"
Exit Sub
End If
a = icePub_speedMailText("", Text1, Text2, Text3, Text4)
'身份（空则默认为机器名）,from,to,标题,文本内容
If a = 0 Then
MsgBox "发送成功"
Else
str1 = "发送失败[" + Str(a) + "]"
MsgBox str1
End If
'icePubDll.dll获得baidu即可
6 楼
C易特联盟 [专家分：60] 发布于 2010-10-03 21:35:00
C易特元亨QQ919169870
最新互助式项目。
这是一个互助的模式。
不推广人也有钱赚的。分A B两个网。
不推广的人在A网。推广的人 在B网。
B网推广的人帮助A网。
A网赚取6000元出局。
B网就多了。
详情了解加QQ919169870
http://blog.sina.com.cn/s/blog_6b19ec920100liv6.html
C易特奖励制度
http://blog.sina.com.cn/cyite6
C易特更多资料博客
7 楼
gfan [专家分：60] 发布于 2010-10-28 22:13:00
承接各种编程项目,主要语言包括Delphi,VC,VB,asp 如有需要请加Q: 383147818 注明: pfan项目
我来回复
您所在位置：