VBA无法稳定地发出附件？！

[musicfree_uibe]

求教各位大侠，我在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

[musicfree_uibe]

没人用过么？