VBA无法稳定地发出附件?!

musicfree_uibe 2005-12-23 09:43:52
求教各位大侠,我在VBA中调用Outlook发邮件,因为要发出很多封邮件给不同的收件人,每封邮件都要有附件,可是在实际运用过程中,经常发现发出去的邮件第一封是有附件的,但是其后的都没有附件,或者都没有附件,参考了MSDN,加上了调用Save方法,可是还是没有改善。请各位大大帮帮忙看看程序,究竟应该怎么改了....

谢谢!

Sub Send_Mail_To_CBA(att As String)
On Error Resume Next
Dim objOutlook As New Outlook.Application
Dim objMail As MailItem
Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
If AddrBackup = "" Then
.To = Addr
Else
.To = AddrBackup
End If
.Subject = "Test"
.Body = "Welcome!"

.Attachments.Add att, olByValue
.Save


.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub
...全文
31 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
musicfree_uibe 2005-12-23
没人用过么?
回复
相关推荐
发帖
Office开发/ VBA
创建于2007-08-27

4998

社区成员

其他开发语言 Office开发/ VBA
申请成为版主
帖子事件
创建了帖子
2005-12-23 09:43
社区公告
暂无公告