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

ammyc

好好学习天天向上

wmqz.130

weiyingde 发表于 2018-2-28 17:31
好的，谢谢你的热心帮助。

楼主，你好，之前在本帖也参考了测试，都是成功的。你现在的问题是有的成功。有的不成功吗？

还是用163的邮箱没成功呢？

weiyingde

wmqz.130 发表于 2018-2-28 22:34
楼主，你好，之前在本帖也参考了测试，都是成功的。你现在的问题是有的成功。有的不成功吗？

还是用16 ...

我有两种方式发送是成功的：
第一种，发送方和接收方都是QQ邮箱，是CDO用STMP端口；
第二种，发送方是163.com，接收方是QQ邮箱，是jmail用STMP端口
我想用Jmail发送，发送和接收方都是用QQ邮箱，但没有成功。
一直到现在都念念不忘，耿耿于怀。
你若有新的信息，请提供。

weiyingde

分享一个自动登录论坛的代码，以作备用并方便大家。
大家若有类似的代码请上传至此以备用。
代码如下：
VBA自动登陆论坛的代码
Sub EP()
   Dim IE As Object, timeie As Date
   Dim sUser As String, sPwd As String
   'sUser = "Excel教程" 'InputBox("请键入用户名：")
  ' sPwd = "123456" 'InputBox("请键入登录密码：")
   On Error Resume Next
   Set IE = CreateObject("InternetExplorer.application")
   IE.Visible = True
   IE.Navigate "http://www.excelpx.com/login.asp"  '只把这一句话改了就OK了
   timeie = DateAdd("s", 60, Now())  '最久等待60秒
   Do While IE.Busy And Not IE.ReadyState = READYSTATE_COMPLETE
       DoEvents
       If timeie < Now() Then
           MsgBox "无法连接网站,请重新执行"
           IE.Quit
           Exit Sub
       End If
   Loop
   IE.Document.all.UserName.Value = "ID"
   IE.Document.all.Password.Value = "密码"
   IE.Document.all.submit.Click '         还有这一句话改了就OK了

weiyingde

用vba自动登电子邮箱的代码
见http://www.pooban.com/html/25/n-67525.html
Sub Goto163()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All(9).Value = "myusername"
.Document.Forms(0).All(13).Value = "mypassword"
.Document.Forms(0).All(35).Click
End With
MsgBox "Ok"
End Sub

或者：

Sub Goto163()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All("username").Value = "myusername"
.Document.Forms(0).All("password").Value = "mypassword"
.Document.Forms(0).All("登录邮箱").Click
End With
MsgBox "Ok"
End Sub

附：

Sub show163tags()
Dim i As Byte
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
On Error Resume Next
For i = 1 To 100
If Len(.Document.Forms(0).All(i).Name) > 0 Then Debug.Print "i=" & i; "  name=" & .Document.Forms(0).All(i).Name
Next
End With
MsgBox "ok"
End Sub

返回：

i=9  name=username
i=13  name=password
i=17  name=selType
i=24  name=remUser
i=26  name=secure
i=35  name=登录邮箱
i=40  name=登录网盘
i=62  name=style
i=63  name=product

wmqz.130

weiyingde 发表于 2018-3-1 08:54
我有两种方式发送是成功的：
第一种，发送方和接收方都是QQ邮箱，是CDO用STMP端口；
第二种，发送方是1 ...

JMail 64位邮件发送组件  有没有？有的话上传下。我注册测试下，我系统是64位的。

wmqz.130

weiyingde 发表于 2018-3-1 08:54
我有两种方式发送是成功的：
第一种，发送方和接收方都是QQ邮箱，是CDO用STMP端口；
第二种，发送方是1 ...

楼主，经我测试 使用JMail发送QQ邮件，QQ邮箱是接收方是成功的。

一、我下载安装使用JMail组件
jmail_free.rar (419.93 KB, 下载次数: 83)

2018-3-1 23:33 上传

点击文件名下载附件

二、我用来测试发送邮件的附件（内含代码）。

使用JMail发送邮件.rar (16.76 KB, 下载次数: 87)

2018-3-1 23:35 上传

点击文件名下载附件

weiyingde

wmqz.130 发表于 2018-3-1 23:36
楼主，经我测试 使用JMail发送QQ邮件，QQ邮箱是接收方是成功的。

一、我下载安装使用JMail组件

谢谢你提供代码。快开学了，又要忙开了，稍后再找机会测试代码。
很庆幸，有了三种方式发送信息和附件。
我想一直把这个帖子写下去，作为一个专门探讨VBA与网络交互的一个技术贴
搜罗、积累一些代码，既提升自己的网络技术，也为后来的开发和利用提供技术资料。
你若有这方面的兴趣，希望你加入进来。
再次感谢你。

weiyingde

wmqz.130 发表于 2018-3-1 22:58
JMail 64位邮件发送组件  有没有？有的话上传下。我注册测试下，我系统是64位的。

我没有64位的。有的话我会上传的。

weiyingde

wmqz.130 发表于 2018-3-1 23:36
楼主，经我测试 使用JMail发送QQ邮件，QQ邮箱是接收方是成功的。

一、我下载安装使用JMail组件

问一下：
.AddRecipientCC Sheet1.[B4]
“Sheet1.[B4]”，是什么样的文本，能否示范一个文本样式看看？
.FromName = Sheet1.[D2]
“Sheet1.[D2]”是发件人的QQ号还是QQ邮箱，还是其他邮箱？
期待你的答复。