OUTLOOK发送附件【未解决】

thierryco · 发表于 2009-3-5 15:37

请教各位大侠，我想用outlook vba自动成批发送邮件，并添加附件，写了一个程序，这样我就可以发送附件了，但是问题是：
1、每次只能发送相同内容
2、如果附件不存在的话就会发生错误
我想要做到的是，1）可以运行宏的时候，可以将不同文件发送给不同的人，大概40个。2）如果某个附件不存在，则不发送这个人，其他的人还继续发送，或者在内容中写上"今天没有报告"。

每天都要发送40多个报告，太痛苦了，谢谢各位大侠了，小弟感激不尽！！
Sub SendMail()
Dim ItemUsageEmail As Outlook.MailItem
Set ItemUsageEmail = Application.CreateItem(olMailItem)
With ItemUsageEmail
.To = "123@163.com"
.Subject = "Report"
.Body = "This is a example"
.Attachments.Add "d:\bbb\2.docx"
.Display
End With
End Sub

[ 本帖最后由 thierryco 于 2009-3-5 15:58 编辑 ]

thierryco · 发表于 2009-3-5 15:46

哇，才这几分钟，就有这么多点击率了，多些大家的支持，相信我的问题一定能解决了~~

thierryco · 发表于 2009-3-5 15:58

第一个问题我想了下，用笨办法，复制40个这样的语句，把DIM的文件名更改下就可以了，最关键的就是判断是否有附件，然后自动选择是否发送

aaaaabbbbb · 发表于 2009-3-5 20:21

请参考以下帖子.

http://club.excelhome.net/thread-400669-1-1.html

thierryco · 发表于 2009-3-6 00:17

原帖由 aaaaabbbbb 于 2009-3-5 20:21 发表
请参考以下帖子.

http://club.excelhome.net/thread-400669-1-1.html

上面的代码我就是参考以上帖子得来的，关键我的问题没有得到解决。

aaaaabbbbb · 发表于 2009-3-6 23:28

这个帖子里的代码可比你的要复杂多了,你的是最简单的发邮件的代码 . EXCEL里判断一下是否有附件的路径,如是空,则跳过,不给前面的地址发送.

thierryco · 发表于 2009-3-8 00:38

楼上说的那个帖子的程序我运行不正常啊

aaaaabbbbb · 发表于 2009-3-10 23:12

有什么问题?

roof · 发表于 2009-3-12 11:44

Sub SendMail()

MMyNames = Array("张三@163.com", "李四@tom.com", "王五@hotmail.com") '收件人地址
MyDocuments = Array("张三.doc", "李四.doc", "王五.doc") '附件文件名,注意与收件人的一一对应关系

For DCount = 0 To UBound(Mynames) '设定循环次数，即收件人数。

MyFile = Dir("d:\bbb\" & MyDocuments(DCount)) '尝试从硬盘提取附件，逐个检测附件是否存在。

If Len(MyFile) > 0 Then '如果附件存在就进入发邮件程序。否则忽略。

   Call Sendthis(MyNames(Dcount), MyDocuments(Dcount))


End If

Next Dcount

End Sub

Sub Sendthis(ByVal MyName, ByVal MyDocument As String)
Dim ItemUsageEmail As Outlook.MailItem
Set ItemUsageEmail = Application.CreateItem(olMailItem)
With ItemUsageEmail
      .To = MyName  '提取相应的收件人，发送邮件。
      .Subject = "Report"
      .Body = "This is a example"
      .Attachments.Add "d:\ddd\" & MyDocument
      '.Display
      .Send
      End With
ItemUsageEmail = Nothing
End Sub

[ 本帖最后由 roof 于 2009-3-14 13:50 编辑 ]

thierryco · 发表于 2009-3-14 08:52

原帖由 roof 于 2009-3-12 11:44 发表

试试这个吧。我没有outlook,不能测试。

Sub SendMail()
Dim ItemUsageEmail As Outlook.MailItem
Set ItemUsageEmail = Application.CreateItem(olMailItem)

MyNames = Array("张三@163.com", "李四@tom ...

谢谢帮助，已经非常感激了，已经很接近我的想法了，不过出现两个文件以上附件都有的时候，就会出现错误；

例如，张三.doc和李四.doc两个文件都有，发送就显示错误，显示出来只能发送一个，并且，将张三.doc发送给李四@tom了并非，张三@163.com。如果只有其中一个文件，则一点问题都没有。

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

[求助] OUTLOOK发送附件【未解决】