如何利用OUTLOOK Express通过各人邮箱地址发邮件

lusia2008 · 发表于 2010-12-16 12:08

求助：每月的工资表出来后，如何实现通过每行中员工的邮箱一次性发送工资条到对应的员工邮箱中去，原来每次一个一个发很浪费时间。

[ 本帖最后由 lusia2008 于 2010-12-16 12:15 编辑 ]

lhdcxz · 发表于 2010-12-16 12:23

最好做个简单的附件来说明问题。

lusia2008 · 发表于 2010-12-16 14:46

请看附件，假设我想一次性将张一、张二、张三、李国的工资条分别发至123@139.com、1234@139.com、12345@139.com、123456@139.com邮箱中，应该如何处理。

apollokk · 发表于 2010-12-16 16:10

用组件,像JMAIL什么的都可以发,不过要先安装相关的文件

lhdcxz · 发表于 2010-12-16 16:46

试试看。我用我的QQ邮箱已经成功
（1、不需要登录QQ邮箱也不需要打开QQ）
（2、邮件接收者打开附件时不会出现对话框）。
提示：开启服务要进入QQ邮箱-设置-账户-开启POP3/SMTP。然后退出QQ
但是你要更改这4行代码（改为你自己的用户名和自己的QQ邮箱和你自己的QQ密码）
1、改用户名（用右键单击工作表的名字--查看代码--在ThisWorkbook里面）
  Private Sub Workbook_BeforeClose(Cancel As Boolean)
If (Application.UserName = "*****") Then pass2.Show '这里的****应该改为你自己的电脑的用户名
End Sub
2、改QQ邮箱信息（用右键单击工作表的名字--查看代码--在窗体---PASS2里面）
With Email
............
.FROM = "*************" '发件人QQ邮箱应该直接写到代码的" "里面，例如12345678@qq.com
   .Item(NameSpace & "sendusername") = "**********"  ''发件人QQ邮箱应该直接写到代码的" "里面，例如12345678@qq.com
   .Item(NameSpace & "sendpassword") = "**********" '发件人QQ邮箱密码应该直接写到代码的" "里面，例如1111111
.............
   .Update
End With
其中“一般员工明细表”D列的邮箱地址应该改为你需要发送到的地址（现在是实验的地址）

[ 本帖最后由 lhdcxz 于 2010-12-22 07:34 编辑 ]

lhdcxz · 发表于 2010-12-17 13:57

1楼的先生怎么不看看呢？到底可以不可以？

lhdcxz · 发表于 2010-12-22 07:36

已经改正了一个BUG（邮件接收者打开邮件附件的时候出现“是否发送”对话框），见5楼2010-12-22的附件

lusia2008 · 发表于 2011-1-12 16:51

我按照该方法，没有发送成功，不知错在哪里

lhdcxz · 发表于 2011-1-12 17:02

没有附件，就不知道错误在什么地方（你可以用几个模拟数据，但是数据可以是假的，数据的行列位置要是真的，还有，你用的是不是QQ邮箱？如果不是，发送服务器也不一样）
也可以看看 http://club.excelhome.net/thread-665669-1-1.html

[ 本帖最后由 lhdcxz 于 2011-1-12 17:03 编辑 ]

志65 · 发表于 2017-10-30 23:54

lhdcxz 发表于 2010-12-16 16:46
试试看。我用我的QQ邮箱已经成功
（1、不需要登录QQ邮箱也不需要打开QQ）
（2、邮件接收者打开附件时不会 ...

你好，我尝试了一下，可是不成功，提示“其他错误！（超时、文件太大、邮箱已满）“。
那么要怎么解决？

		自动登录	找回密码
密码			免费注册

[求助] 如何利用OUTLOOK Express通过各人邮箱地址发邮件

回复 5楼 lhdcxz 的帖子