求使用QQ批量发送邮件的代码

泓()

不错 虽然还未试用 第一感觉很好

chenyg65

提示发送失败。
1、 我已把七楼老师随附件提供的jmail.dll文件，放到了c:\windows\system32下，并打开“运行”，输入regsvr32 jmail.dll，“确定”。
2、 要发送的邮件附件存在，发送邮件的QQ号密码正确。
3、 不知是不是stmp、送件人地址等信息录入错误。

chenyg65

下面是我的代码，老师帮助看一下错在哪里。
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Sub SendMail(Optional ByVal sSubject As String, Optional ByVal sBody As String, Optional ByVal sFileName As String)
   
Dim server ''定义个Jmail
Set server = CreateObject("jmail.Message") ''调用

server.Charset = "gb2312"
server.Silent = False
server.Priority = 1 '邮件状态,1-5 1为最高
server.MailServerUserName = "1469146671@qq.com"  'Email帐号
server.MailServerPassWord = "y123456a"  '你的Email密码，即1469146671的登录密码

server.FromName = "1469146671" '发信人姓名
server.From = "1469146671@qq.com"  '发邮件地址地

server.Subject = sSubject '主题
server.AddRecipient "759430270@qq.com"  '收信人地址
server.body = sBody '信件正文
server.AddAttachment sFileName
server.send ("smtp.qq.com")
server.Close
Set server = Nothing
End Sub


Sub 发送邮件()
    On Error Resume Next
'        If Me.ComboBox1.Value = "" Then Exit Sub
    Err.Clear
    SendMail "工资", "核对工资", "D:\book1.xls"
    If Err.Number <> 0 Then
       MsgBox "发送失败", vbOKOnly + vbInformation, "提示"
    Else
       MsgBox "发送成功", vbOKOnly + vbInformation, "提示"
    End If
End Sub

wudixin96

我用自己的QQ邮箱测试是没问题的。

chenyg65

谢谢，感谢老师的再次回复。我再看看是什么问题。还是不行再问。

chenyg65

改来改去，还是发送失败。请老师再帮助看一看如下代码哪里不对，请特别留意红色部分。
1、 我已把七楼老师随附件提供的jmail.dll文件，放到了c:\windows\system32下，并打开“运行”，输入regsvr32 jmail.dll，“确定”。
2、 要发送的邮件附件存在，发送邮件的QQ号密码正确。
3、 不知是不是stmp?送件人地址等信息录入错误?
4、QQ号为1469146671的向QQ为759430270发送邮件。主题是“工资”，正文是“核对工资”，附件是“D:\book1.xls”，QQ1469146671的登录密码是“y123456a”。
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Sub SendMail(Optional ByVal sSubject As String, Optional ByVal sBody As String, Optional ByVal sFileName As String)
   
Dim server ''定义个Jmail
Set server = CreateObject("jmail.Message") ''调用

server.Charset = "gb2312" '请解释一下这一名
server.Silent = False
server.Priority = 1 '邮件状态,1-5 1为最高
server.MailServerUserName = "1469146671"  'Email帐号
server.MailServerPassWord = "y123456a"  '你的Email密码，即1469146671的登录密码

server.FromName = "1469146671" '发信人姓名
server.From = "1469146671@qq.com"  '发邮件地址地

server.Subject = sSubject '主题
server.AddRecipient "759430270@qq.com"  '收信人地址
server.body = sBody '信件正文
server.AddAttachment sFileName
server.send ("smtp.qq.com") '服务器地址'pop.qq.com
server.Close
Set server = Nothing
End Sub


Sub 发送邮件()
    On Error Resume Next
'        If Me.ComboBox1.Value = "" Then Exit Sub
    Err.Clear
    SendMail "工资", "核对工资", "D:\book1.xls"
    If Err.Number <> 0 Then
       MsgBox "发送失败", vbOKOnly + vbInformation, "提示"
    Else
       MsgBox "发送成功", vbOKOnly + vbInformation, "提示"
    End If
End Sub

[ 本帖最后由 chenyg65 于 2010-4-28 13:40 编辑 ]

wudixin96

Charset那里不用管，只是编码

Mailseverusername要写全 @qq.com

Smtp.qq.com是没错的， pop.qq.com是接收邮件用的

chenyg65

Mailseverusername写全了还是不行。
请用我传的附件测试一下。

chenyg65

说明：
1、 我已把七楼老师随附件提供的jmail.dll文件，放到了c:\windows\system32下，并打开“运行”，输入regsvr32 jmail.dll，“确定”。
2、 要发送的邮件附件存在，发送邮件的QQ号密码正确。
3 、不知是不是stmp?送件人地址等信息录入错误?
4、QQ号为1469146671的向QQ为759430270发送邮件。主题是“工资”，正文是“核对工资”，附件是“D:\book1.xls”。QQ1469146671的登录密码是“y123456a”。
请帮助看一下以下代码哪里有错?
Sub SendMail(Optional ByVal sSubject As String, Optional ByVal sBody As String, Optional ByVal sFileName As String)
   
Dim server ''定义个Jmail
Set server = CreateObject("jmail.Message") ''调用

server.Charset = "gb2312" '请解释一下这一名
server.Silent = False
server.Priority = 1 '邮件状态,1-5 1为最高
server.MailServerUserName = "1469146671@qq.com"  'Email帐号
server.MailServerPassWord = "y123456a"  '你的Email密码，即1469146671的登录密码

server.FromName = "1469146671" '发信人姓名
server.From = "1469146671@qq.com"  '发邮件地址地

server.Subject = sSubject '主题
server.AddRecipient "759430270@qq.com"  '收信人地址
server.body = sBody '信件正文
server.AddAttachment sFileName
server.send ("smtp.qq.com") '服务器地址'pop.qq.com
server.Close
Set server = Nothing
End Sub
最好对附件作一下测试

wudixin96

原帖由 chenyg65 于 2010-4-28 19:51 发表
说明：
1、 我已把七楼老师随附件提供的jmail.dll文件，放到了c:\windows\system32下，并打开“运行”，输入regsvr32 jmail.dll，“确定”。
2、 要发送的邮件附件存在，发送邮件的QQ号密码正确。
3 、不知是不是 ...

我测试没问题，用我自己的QQ是没问题