求使用QQ批量发送邮件的代码
阅读权限70
在线时间 小时
& & & & & & & &
回复 7楼 wudixin96 的帖子
不错 虽然还未试用 第一感觉很好
阅读权限30
在线时间 小时
提示发送失败。
1、 我已把七楼老师随附件提供的jmail.dll文件，放到了c:\windows\system32下，并打开“运行”，输入regsvr32 jmail.dll，“确定”。
2、 要发送的邮件附件存在，发送邮件的QQ号密码正确。
3、 不知是不是stmp、送件人地址等信息录入错误。
阅读权限30
在线时间 小时
下面是我的代码，老师帮助看一下错在哪里。
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 = &&&&'Email帐号
server.MailServerPassWord = &y123456a&&&'你的Email密码，即的登录密码
server.FromName = && '发信人姓名
server.From = &&&&'发邮件地址地
server.Subject = sSubject '主题
server.AddRecipient &&&&'收信人地址
server.body = sBody '信件正文
server.AddAttachment sFileName
server.send (&&)
server.Close
Set server = Nothing
Sub 发送邮件()
& & On Error Resume Next
'& && &&&boBox1.Value = && Then Exit Sub
& & Err.Clear
& & SendMail &工资&, &核对工资&, &D:\book1.xls&
& & If Err.Number && 0 Then
& && & MsgBox &发送失败&, vbOKOnly + vbInformation, &提示&
& && & MsgBox &发送成功&, vbOKOnly + vbInformation, &提示&
& & End If
07:52 上传
点击文件名下载附件
11.58 KB, 下载次数: 34
阅读权限95
在线时间 小时
我用自己的QQ邮箱测试是没问题的。
阅读权限30
在线时间 小时
回复 14楼 wudixin96 的帖子
谢谢，感谢老师的再次回复。我再看看是什么问题。还是不行再问。
阅读权限30
在线时间 小时
& & & & & & & &
改来改去，还是发送失败。请老师再帮助看一看如下代码哪里不对，请特别留意红色部分。
1、 我已把七楼老师随附件提供的jmail.dll文件，放到了c:\windows\system32下，并打开“运行”，输入regsvr32 jmail.dll，“确定”。
2、 要发送的邮件附件存在，发送邮件的QQ号密码正确。
3、 不知是不是stmp?送件人地址等信息录入错误?
4、QQ号为的向QQ为发送邮件。主题是“工资”，正文是“核对工资”，附件是“D:\book1.xls”，QQ的登录密码是“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 = &&&&'Email帐号
server.MailServerPassWord = &y123456a&&&'你的Email密码，即的登录密码
server.FromName = && '发信人姓名
server.From = &&&&'发邮件地址地
server.Subject = sSubject '主题
server.AddRecipient &&&&'收信人地址
server.body = sBody '信件正文
server.AddAttachment sFileName
server.send (&&) '服务器地址'
server.Close
Set server = Nothing
Sub 发送邮件()
& & On Error Resume Next
'& && &&&boBox1.Value = && Then Exit Sub
& & Err.Clear
& & SendMail &工资&, &核对工资&, &D:\book1.xls&
& & If Err.Number && 0 Then
& && & MsgBox &发送失败&, vbOKOnly + vbInformation, &提示&
& && & MsgBox &发送成功&, vbOKOnly + vbInformation, &提示&
& & End If
[ 本帖最后由 chenyg65 于
13:40 编辑 ]
13:39 上传
点击文件名下载附件
12.78 KB, 下载次数: 9
阅读权限95
在线时间 小时
& & & & & & & &
Charset那里不用管，只是编码
Mailseverusername要写全 @qq.com
是没错的， 是接收邮件用的
阅读权限30
在线时间 小时
Mailseverusername写全了还是不行。
请用我传的附件测试一下。
18:04 上传
点击文件名下载附件
14.73 KB, 下载次数: 3
阅读权限30
在线时间 小时
1、 我已把七楼老师随附件提供的jmail.dll文件，放到了c:\windows\system32下，并打开“运行”，输入regsvr32 jmail.dll，“确定”。
2、 要发送的邮件附件存在，发送邮件的QQ号密码正确。
3 、不知是不是stmp?送件人地址等信息录入错误?
4、QQ号为的向QQ为发送邮件。主题是“工资”，正文是“核对工资”，附件是“D:\book1.xls”。QQ的登录密码是“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 = &&&&'Email帐号
server.MailServerPassWord = &y123456a&&&'你的Email密码，即的登录密码
server.FromName = && '发信人姓名
server.From = &&&&'发邮件地址地
server.Subject = sSubject '主题
server.AddRecipient &&&&'收信人地址
server.body = sBody '信件正文
server.AddAttachment sFileName
server.send (&&) '服务器地址'
server.Close
Set server = Nothing
最好对附件作一下测试
19:51 上传
点击文件名下载附件
14.73 KB, 下载次数: 29
阅读权限95
在线时间 小时
原帖由 chenyg65 于
19:51 发表
1、 我已把七楼老师随附件提供的jmail.dll文件，放到了c:\windows\system32下，并打开“运行”，输入regsvr32 jmail.dll，“确定”。
2、 要发送的邮件附件存在，发送邮件的QQ号密码正确。
3 、不知是不是 ... 我测试没问题，用我自己的QQ是没问题
(77.95 KB, 下载次数: 2)
20:37 上传
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by求EXCEL工资表模板并且还可以转成工资条打印的模板,有意者请发邮箱 ，非常谢谢！_百度知道
求EXCEL工资表模板并且还可以转成工资条打印的模板,有意者请发邮箱 ，非常谢谢！
我有更好的答案
界面简洁。有丰富的查询分析功能，以及不实行计件制的工厂设计，就用蓝冰工资软件，行政事业单位提高工资管理水平。网站上可以预览主要界面！蓝冰工资软件(商贸版)专为商贸企业，功能强大，自由灵活的选择与打印，价格低廉，不用做任何事就能看到效果 。主要界面如同EXCEL，但添加了查找范围限定的功能及智能输入功能，主要报表。软件附带有试用数据，服务业。旨在帮助用户提高工资管理水平
求EXCEL工资表模板并且还可以转成工资条打印的模板,有意者请发邮箱，非常感谢
其他类似问题
您可能关注的推广
excel工资表的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求excel工资表可以转成工资条打印的模板！谢谢！请发邮箱_百度知道
求excel工资表可以转成工资条打印的模板！谢谢！请发邮箱
提问者采纳
执行“插入”→“行”命令，使这种格式一直填充至工资表的结束行，执行“编辑”→“粘贴”命令，执行“编辑”→“定位”命令。
第二步 填充数据，归根结底就是让Excel制作的工资表格中，所以数字可任意输），选中工资表A列的数据区域，在打开的“定位条件”对话框中：执行“编辑”→“定位”命令，在打开的“定位”对话框中单击“定位条件”按钮，一行工资细目数据，当然纯手工的一行一行插入显然是个“不可能完成的任务”，在打开的“定位条件”对话框中，然后选中交叉的四个单元格，一行员工的记录，在打开的“定位”对话框中单击“定位条件”按钮：复制表头的工资细目数据，选择“空值”。
第三步 定位空行。如果在每一个员工数据的上面插入一行工资细目数据显然我们的要求也就完成了，然后单击“确定”按钮（如图 6），这时会选中刚插入的空行，这里需要有点小技巧，然后单击“确定”按钮。
第一步，选择“空值”：在工资细目的右侧两列中其实用Excel打印工资条，这时工资条就算制作完成了，交叉输入任意数字（主要是为了后面的“空位”空值。
第四步，每一行的前面插入了一个空行，这时便会从第三行开始，双击右下角的“填充柄”
其他类似问题
excel工资表的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求excel的人员工资表，请发送至＠qq．com_百度知道
求excel的人员工资表，请发送至＠qq．com
我有更好的答案
其他类似问题
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求做一张员工工资表Excel文件 发送到 谢啦_百度知道
求做一张员工工资表Excel文件 发送到 谢啦
提问者采纳
不及时关闭问题的话还要扣分呢。我已经看到你在我邮箱里给我的留言了，这个问题就关闭了。 我的QQ。你把我采纳为最佳答案我一会就给你发过去，谢谢你的好评.com ：@qq，邮箱：，你十分钟后可查看
提问者评价
Thank you!
其他类似问题
其他1条回答
到EXCEL模板里找
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}