win7旗舰版下：VBA代码无法发送QQ邮件（附件），折腾我几天未决，大侠救我

小花鹿

wmqz.130 发表于 2018-2-24 22:05
我的代码和你的相同。我试了试，发送是成功的。

据别人说，有的人成功，有的人不成功，网上查也是这种说法，没有好的解决方法，我觉得是QQ的问题

weiyingde

小花鹿 发表于 2018-2-24 22:13
据别人说，有的人成功，有的人不成功，网上查也是这种说法，没有好的解决方法，我觉得是QQ的问题

是系统的原因吗？若是有别的尝试请提供。

weiyingde

wmqz.130 发表于 2018-2-24 22:05
我的代码和你的相同。我试了试，发送是成功的。

你用的是什么系统？
请看五楼和六楼的两幅图，在你的系统里，进入相关的界面看看，你的是那副图的情形？

weiyingde

小花鹿 发表于 2018-2-24 22:13
据别人说，有的人成功，有的人不成功，网上查也是这种说法，没有好的解决方法，我觉得是QQ的问题

是你身边的人，还是网上的？你若是有过尝试的话，请关注一下他们的系统；若有有价值的信息，请分享呀！

小花鹿

weiyingde 发表于 2018-2-25 08:47
是系统的原因吗？若是有别的尝试请提供。

我写的代码绝大多数是给别人用的，最好不要做什么设置，设置多了用户学不会，所以，像这种在设置上比较复杂的方法就不再尝试了，简单的设置还是可以的

wmqz.130

weiyingde 发表于 2018-2-25 08:51
你用的是什么系统？
请看五楼和六楼的两幅图，在你的系统里，进入相关的界面看看，你的是那副图的情形？

我昨天是xp系统下试的，今天又换了一个win10测试，都没有问题，我仔细看了你的代码。发现可能是如下问题
1、 .Item(STUl & "sendusername") = "542420482@qq.com" 应改为
.Item(STUl & "sendusername") = "542420482"
2、如果还不成功，那么可能是你QQ邮箱设置上的问题。
3、这段代码的运行环境和系统本身应该没有关系。
4、你一楼发上来的错误提示是stmp服务器的问题，这个问题是邮件服务器出错了，而你是用的QQ邮箱，邮件服务器并不是你的机器。因此得出了，上面的第三条。

weiyingde

小花鹿 发表于 2018-2-25 09:02
我写的代码绝大多数是给别人用的，最好不要做什么设置，设置多了用户学不会，所以，像这种在设置上比较复 ...

以你掌握的情况看，你认为发送不成功可能是什么原因？

小花鹿

weiyingde 发表于 2018-2-25 09:06
以你掌握的情况看，你认为发送不成功可能是什么原因？

这个不好说，这么长时间了，如果找到原因网上就会有统一的解决办法，但是现在还没有，或者我们没有找到

weiyingde

小花鹿 发表于 2018-2-25 09:13
这个不好说，这么长时间了，如果找到原因网上就会有统一的解决办法，但是现在还没有，或者我们没有找到

谢谢你坦诚相告，若后续有这方面的新的信息和感悟，请不吝赐教。

weiyingde

jsgj2023 发表于 2018-2-24 13:43
我也是很久以前配置过,具体过程有些繁琐,
当时没录制视频,
现在基本忘了怎么配置,

你这个使用插件完成的吧？
还问一句：能发送附件吗？