Peter Berlin
Member
- Outlook version
- Outlook 2013 64 bit
- Email Account
- POP3
Hello. I am using Office 2013. I have excel vba working great except for outlook doesn't attach the file 100% of the time. Sometimes it attaches and sometimes it doesn't. It only acts up for remote (out of the office) individuals. The excel macro runs and attaches an email in outlook and saves it to the draft folder. Do I need to add a sleep command before and after the attachment code? Code is attached. Thanks, Peter
Code:
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.SentOnBehalfOfName = "abc@abc.com"
'.Display
.To = dis_contacts
.cc = rok_contacts
.BCC = ""
'.Subject = "Agreement #" & Temp & " Pre Pop Form (" & strDistrict & " - " & expr_date & ")" & " Distributor: " & strDistributor & " Customer: " & cust_name
.Subject = "Agreement #" & Temp & " Pre Pop (" & strBO & " - " & expr_date & ") " & " Customer: " & strCustomerID & " - " & cust_name & " Distributor: " & strDistributorID & " - " & strDistributorName
'SPA 4000****** Pre Pop (SubRegion - Exp Date) 99xxxxxx Customer Name 99xxxxxx APRxxx Distributor Name
Dim sMsgBody As String
sMsgBody = "......" & vbCr & vbCr
sMsgBody = sMsgBody & "I......" & vbCr
sMsgBody = sMsgBody & " " & vbCr
.body = sMsgBody
Sleep (9000)
.Attachments.Add (dbfile)
.Display
Sleep (9000)
.Save
.Close olPromtForSave
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
