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

huangdqrui

各位高手请赐教：

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

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

huangdqrui

版主，快赐教啊~

aaaaabbbbb

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

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

huangdqrui

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

aaaaabbbbb

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

pschuah

可以寄excel来看吗?

aaaaabbbbb

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

pschuah

thanks you.

changtao

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

csb2000cn

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