当前位置：首页 → 问答吧 → 如何自动发邮件和发送附件

如何自动发邮件和发送附件

时间：2008-05-08

来源：互联网

各位高手请赐教：

我每个月要将上几百份对账单（已客户代码命名的PDF文件），通过OUTLOOK发送，主题是：客户代码+"对账单"。另外有个EXCEL FILE的地址本（客户代码、联系人、邮箱地址）。有什么办法可以让系统自动发送邮件呢？包括自动了解对账单的PDF附件，主题也是自动显示客户代码的？

特别说明：我是一个新手，太高深的不懂。请多指教~~~~~

作者: huangdqrui 发布时间: 2008-05-08

版主，快赐教啊~

作者: huangdqrui 发布时间: 2008-05-11

下面的代码看明白了就可以自己写一个程序解决这个问题。

Sub AddAttachment()
    Dim myOlApp As New Outlook.Application
    Dim myItem As Outlook.MailItem
    Dim myAttachments As Outlook.Attachments
    Set myItem = myOlApp.CreateItem(olMailItem)
    Set myAttachments = myItem.Attachments
    myAttachments.Add "C:\Test.doc", _
        olByValue, 1, "Test"
    myItem.Subject = "test"
    myItem.Display
End Sub

作者: aaaaabbbbb 发布时间: 2008-05-12

我可以自动发了，但每次需要点击YES来进行下一封邮件的发送。有没有像OFFICE那个复制粘贴，遇到相同文件名时会提示“是否替换？全是/是/否”中选择“全是"的控件，那样的话我就不用点击多次YES了。

作者: huangdqrui 发布时间: 2008-06-11

不可以，这是OUTLOOK的特性，本论坛已经有讨论过这个问题多次，请搜索一下。

作者: aaaaabbbbb 发布时间: 2008-06-13

可以寄excel来看吗?

作者: pschuah 发布时间: 2008-12-19

可以学习一下这个帖子，就能解决楼主的问题了。
http://club.excelhome.net/thread-199798-1-1.html

作者: aaaaabbbbb 发布时间: 2008-12-20

thanks you.

作者: pschuah 发布时间: 2008-12-22

LZ的需求跟我最近刚刚替朋友编完的一个程序类似，特此提供，希望对LZ有所帮助。

附件

Excel控制群发邮件.rar(93.33 KB)

2008-12-22 12:41, 下载次数: 342

作者: changtao 发布时间: 2008-12-22

谢谢CHANGTAO兄的分享
我看到你是用FOR循环来一个一个发送的
我的附件只有一个文件,但是收件人却有很长的一大串
能不能做到OUTLOOK里面那样一种效果,就是在.TO或是.CC后面能跟上一个动态数组(含多个收件人地址)
号外: 为什么我的邮件发送宏运行之后,如果不打开OUTLOOK就永远不会发出去,要到哪里设置?

作者: csb2000cn 发布时间: 2008-12-23

好东东，非常感谢提供。学习了

作者: geering 发布时间: 2009-01-18

为什么会出现:
"编译错误
找不到工程或库"

作者: rita393 发布时间: 2009-02-24

可参考此贴.
http://club.excelhome.net/thread-400669-1-1.html

作者: aaaaabbbbb 发布时间: 2009-02-25

你好！
为什么我运行的时候出现错误代码429ActiveX部件不能创建呢，请指教，在线等~~

作者: feudaemon 发布时间: 2009-04-12

请在VBA开发模式下，工具->引用->找到Microsoft Outlook12..

作者: changtao 发布时间: 2009-04-20

AetiVX不能创建对像错误，代码429，请指点一下！

作者: wflqj123 发布时间: 2009-06-11

下载了这个代码，觉得应该很有用，但是调试的时候遇到Createobject的时候就会提示错误：429。
我是个菜鸟，搜了下解决办法，说是在引用里勾选Microsoft Outlook 9.0 Object Library，我在我的电脑里的引用里查了下，找到并勾选了Microsoft Outlook 11.0 Object Library，但还是不行，请高手指条明路吧~~

作者: cranberries 发布时间: 2010-05-05

如果你的PDF文件原来是从WORD文件转化而来，要不试试WORD中的“邮件合并”，那里有个合并后从OUTLOOK直接发邮件的选项（只是所有的邮件主题只能是一个且是一样的）。而且前提是WORD，OUTLOOK是统一版本（我们公司用的都是OFFICE 2007的）

作者: addisyang 发布时间: 2010-05-07

学习学习，一定要学习！

作者: yb010 发布时间: 2010-10-25