问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

VB 发送邮件,提示:无法发送到邮件SMTP服务器0x80040217

发布网友 发布时间:2022-05-03 00:52

我来回答

3个回答

热心网友 时间:2022-06-28 19:44

出错的原因是:

Const Email_From = "邮箱"  应改为具体的邮箱:如:12345678@qq.com

Const Email_To = "收件邮箱" 应改为具体的邮箱:如:12345678@qq.com

修改后的代码:

Private Sub Command1_Click()
Dim CDO As Object
Const Email_From = "123@qq.com" '请修改
Const Password = "123456"'请修改
Const Email_To = "123@qq.com"'请修改
Set CDO = CreateObject("CDO.Message")
CDO.Subject = "From Demon wang "
CDO.From = Email_From
CDO.To = Email_To
CDO.TextBody = "Hello world!"
'cdo.AddAttachment = "C:\hello.txt"
Const schema = "http://schemas.microsoft.com/cdo/configuration/"   

With CDO.Configuration.Fields
.Item(schema & "sensing") = 2
.Item(schema & "smtpserver") = "smtp.qq.com"
.Item(schema & "smtpauthenticate") = 1
.Item(schema & "sensername") = "123" '注意:是123,而不是Email_From
.Item(schema & "sendpassword") = Password
.Item(schema & "smtpserverport") = 25
.Item(schema & "smtpusessl") = True
.Item(schema & "smtpconnectiontimeout") = 60
.Update
End With
CDO.Send
   If Err.Number <> 0 Then
       MsgBox "无法发送邮件:" & Err.Description
   Else
       MsgBox "邮件发送成功", vbInformation
   End If
End Sub

热心网友 时间:2022-06-28 19:45

QQ邮箱smtp的端口号为465,而不是25

.Item(schema & "smtpserverport") = 465

热心网友 时间:2022-06-28 19:45

邮箱的smtp服务没有打开
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
wps字体颜色改不了怎么办 玩lol我想走体格极端蛮王全攻击的那种符文怎么加求高手赐教 ,感激不... ...觉得不会玩,求高手赐教,个人觉得钱不够买装备,发育慢 ...加技能点,可以通地狱的,我玩的是1.11的,只为单机,求高手赐教... ...只有R技能的AD加成较高,为什么选AD呢,请高手赐教 lol小丑什么打法好(我现在用的是物攻流)出装也说说~请高手赐教~... 北京首都医科大附属附属复兴医院门诊部地址 首都医科大学附属医院首都医科大学附属复兴医院 北京复兴医院规模 求海贼王动画中所有红发香克斯的出镜 王毅说中国人均8000美元,有吗 王毅外长说的人均8000美元的第二大经济体是什么意思 VBA-邮件无法发送到smtp服务器 8000w美元单子什么梗? 王毅说的中国人均8000美元什么意思 Iphone接收邮件正常,发邮件总提示&quot;无法连接发件服务器applesmtp.163.com&quot; 邮件无法发送到 SMTP 服务器。传输错误代码为 0x80040217。服务器响应为 not available 邮件发不出去,说SMTP服务器没反应,怎么解决??? 加盟小面店到底有利润吗?面馆发展怎么样? 有想法开个面馆,想知道一碗面的大概利润在多少 现在开一家小面馆一个月平均利润有好多,希望懂这行的给点意见 开个面馆的利润怎么样? 开面馆利润怎么样 开一家面馆利润究竟有多大? 手机忘记密码,可以用其他手机解锁吗 如何把有密码的手机解锁 手机无密码解锁,手机锁屏密码忘怎么办 都江堰市有哪些中职中专学校? 文科职高有哪些专业? 成都职高有哪些 德马库斯·考辛斯的年薪是普通人的几倍?你有哪些了解? 在outlook中无法发送邮件,问怎么设置smtp. java mail 发邮件连接不上smtp服务器怎么办 人均gdp8000美元能源产业怎么发展 当人均gdp达到8000美元后的社会特征 2015年中国人均达到8000美金了吗 8000万美元是多少人民币 赓续血脉是什么意思? 赓续血脉是什么意思 赓续荣光是什么意思 绵延庚续什么意思??? 赓续的用法是什么? 迷你方块酥怎样做才好吃? 迷你方块的所有指令 迷你方块可以到多少层? 迷你方块可以到多少层? 蓝丰蓝莓适合南方种植吗? 我的世界1.14.6迷你方块 跫然是什么意思 “跫然”这个词语是什么意思