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

huang1314wei

qq邮箱的端口是465吧，好像不是25

weiyingde

小花鹿 发表于 2018-2-24 13:33
我做过和你同样的实验，最后也是失败，据别人说，用QQ发邮件有的人行，有的人不行
用163试试

感谢你的关注，连续一两个星期，我都在进行这个方面的尝试，都没有成功，自己都快没信心了。
谢谢你的指点。我想还是继续试验一下。

weiyingde

jsgj2023 发表于 2018-2-24 13:50
http://service.mail.qq.com/cgi-bin/help?subtype=1&&id=28&&no=371#2
记得当时是按照这个说明配置的!

非常感激你，你的这个做法，我两年以前就有过，当时听人说要有腾信公司的支持，所以打消了念头。
后来看到了您的成功尝试之后又重新燃起来希望，谢谢的指导，我会继续尝试，如有问题，继续向你请教。

小花鹿

weiyingde 发表于 2018-2-24 14:42
感谢你的关注，连续一两个星期，我都在进行这个方面的尝试，都没有成功，自己都快没信心了。
谢谢你的指 ...

支持你，成功了最好分享一下

ww87725244

weiyingde 发表于 2018-2-24 14:46
非常感激你，你的这个做法，我两年以前就有过，当时听人说要有腾信公司的支持，所以打消了念头。
后来看 ...

我XP也试了，在send就卡住了，API倒是没有问题

weiyingde

ww87725244 发表于 2018-2-24 17:45
我XP也试了，在send就卡住了，API倒是没有问题

谢谢你的提醒。
求APi方法，能否给个实例让我学学。
期待的回复和指导。
先谢了。

ww87725244

weiyingde 发表于 2018-2-24 17:51
谢谢你的提醒。
求APi方法，能否给个实例让我学学。
期待的回复和指导。

你比我好啊，我的错误提示直接是乱码，如图：
方法二就是API办法，献丑了！！

ww87725244

weiyingde 发表于 2018-2-24 17:51
谢谢你的提醒。
求APi方法，能否给个实例让我学学。
期待的回复和指导。

附上代码

1. Option Explicit
   
2. Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
   
3. (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
   
4. ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   
5. Sub 发送邮件办法二()
   
6. ShellExecute 0, vbNullString, "mailto:449295679@qq.com", "你好", vbNullString, 1
   
7. End Sub

复制代码

weiyingde

ww87725244 发表于 2018-2-24 17:55
附上代码

明天研究一下，看行不行；若不实行再讨教。

weiyingde

ww87725244 发表于 2018-2-24 17:55
附上代码

这个我主要是用来发成绩单的。能发附件吗？若是不能就失去意义了。
希望继续指导。