Outlook Randomly Not attaching (attachment file)

Outlook not attaching code 100% of the time

  • .

    Votes: 0 0.0%
  • .

    Votes: 0 0.0%

  • Total voters
    0
Status
Not open for further replies.

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
 
Status
Not open for further replies.
Top