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

weiyingde

wmqz.130 发表于 2018-3-2 16:42
我在114楼中的邮件测试  系统环境是  win7旗舰版系统.

我把你的密码改成了简版，只有密码的地方是假的，其他的都是我是我测试的原始代码。
但测试的结果是发送失败，你看一看，错误在什么地方。
Sub JMailSendEmail()
    Dim JmailMsg As Object, Status$
    Set JmailMsg = CreateObject("JMail.Message")
    With JmailMsg
        .MailServerUserName = "542420482qq.com"
        .MailServerPassWord = "AAAAA88888888" '为登录QQ账号的密码，为保密，此处为假的。
        .AddRecipient "542420482qq.com"
        .AddRecipientCC "3512140978@qq.com"
        .From = "542420482qq.com"
        .FromName = "542420482"
        .Charset = "gb2312"
        .ContentType = "text/html"
        .Priority = 3
        .Logging = True
        .Silent = True
        .Subject = "这是一封11211班的测试邮件"
        .Body = "各位小伙伴，这是使用VBA + Jmail发送的邮件，收到请回复，谢谢。"
        .HtmlBody = HtmlBody
        If .Send("smtp.qq.com") Then Status = "邮件发送成功" Else Status = "邮件发送失败"
        .Close
    End With
    Set JmailMsg = Nothing
    MsgBox Status
End Sub

wmqz.130

weiyingde 发表于 2018-3-2 17:31
我把你的密码改成了简版，只有密码的地方是假的，其他的都是我是我测试的原始代码。
但测试的结果是发送 ...

经测试，发现你的代码应改为如下代码。（我用我QQ邮箱信息按你的格式发送是成功的）

1. Sub JMailSendEmail()
   
2.     Dim JmailMsg As Object, Status$
   
3.     Set JmailMsg = CreateObject("JMail.Message")
   
4.     With JmailMsg
   
5.         .MailServerUserName = "542420482@qq.com"
   
6.         .MailServerPassWord = "AAAAA88888888" '为登录QQ账号的密码，为保密，此处为假的。
   
7.         .AddRecipient "542420482@qq.com"
   
8.         .AddRecipientCC "3512140978@qq.com"
   
9.         .From = "542420482@qq.com"
   
10.         .FromName = "542420482"
    
11.         .Charset = "gb2312"
    
12.         .ContentType = "text/html"
    
13.         .Priority = 3
    
14.         .Logging = True
    
15.         .Silent = True
    
16.         .Subject = "这是一封11211班的测试邮件"
    
17.         .Body = "各位小伙伴，这是使用VBA + Jmail发送的邮件，收到请回复，谢谢。"
    
18.         .HtmlBody = HtmlBody
    
19.         If .Send("smtp.qq.com") Then Status = "邮件发送成功" Else Status = "邮件发送失败"
    
20.         .Close
    
21.     End With
    
22.     Set JmailMsg = Nothing
    
23.     MsgBox Status
    
24. End Sub

复制代码

weiyingde

wmqz.130 发表于 2018-3-2 21:26
经测试，发现你的代码应改为如下代码。（我用我QQ邮箱信息按你的格式发送是成功 ...

你的改动是在在邮箱中加入一个“@”吗？我更正过来后，试了一试，还是失败。

weiyingde

你的改动是在在邮箱中加入一个“@”吗？我更正过来后，试了一试，还是失败。

wmqz.130

weiyingde 发表于 2018-3-3 08:28
你的改动是在在邮箱中加入一个“@”吗？我更正过来后，试了一试，还是失败。

是的，我就是多加了个“@”， 但是你为什么会失败，我真是不知道了。我xp，win7，win10环境都测试了，都是成功的。你再检测下你QQ邮箱设置，或者你新注个QQ号再试试。我猜极有可能是你QQ邮箱设置的问题。因为代码都是一样的呀，还有就是你再用我发的jmail组件，安装一下。看看是不是JMAIL组件的问题。

weiyingde

还真不是，请看http://club.excelhome.net/thread-566650-1-1.html
第四楼，附件是：
你附件我已经安装，不知道控件名称是什么，安装过程中感觉不一样。
我发过来你看看是不是这个jmail？

weiyingde

空间名称是w3 jamil free,是吗？

wmqz.130

weiyingde 发表于 2018-3-3 22:01
还真不是，请看http://club.excelhome.net/thread-566650-1-1.html
第四楼，附件是：
你附件我已经安装， ...

不是这个附件，我发的附件是本帖106楼。是完整的安装版。不是dll文件。

weiyingde

我的引用的名称是：，你也发一个引用的图像过来，其就知道了

weiyingde

我已经找到了新安装的位置"c:\\programfile\dimac\w3jmail"。并且重新添加了引用，很可惜仍旧没有成功。
我的系统是win7旗舰版，office2010.