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.
Similar threads
Thread starter Title Forum Replies Date
kburrows Outlook Email Body Text Disappears/Overlaps, Folders Switch Around when You Hover, Excel Opens Randomly and Runs in the Background - Profile Corrupt? Using Outlook 0
K Outlook 2019 Randomly Disconnecting from Gmail Servers Using Outlook 8
M Outlook 2016 Outlook randomly unhides from taskbar Using Outlook 12
O Outlook 2013 deleting emails randomly Using Outlook 0
B Outlook 2003 randomly not auto forwarding Using Outlook 0
S Outlook 2007 Rules randomly stopping working (non-Exchange Server) Using Outlook 6
B SelectionChangeEventHandler randomly disappears in Outlook 2007 Outlook VBA and Custom Forms 1
ughlook Open multiple contacts in NEW Outlook? Using Outlook 2
G Outlook translation feature is off Using Outlook 2
J Outlook 2010 does not let me put any account Using Outlook.com accounts in Outlook 3
P 3 of 5 PST files don't install from d:\outlook but only from D:\ Using Outlook 7
HarvMan January Windows 10 preview update force installs new Outlook Using Outlook 1
L Outlook 2010 - new installation on Windows 11 - aplzod32.dll is not a valid Add-in Using Outlook 12
J Outlook troubleshooting/logging - option grayed out Using Outlook 2
B Arrows missing from Outlook emails vertical scrollbar Using Outlook 0
G Outlook 2021 (New) doesn't respect default browser Using Outlook 8
B Outlook or iPhone turning tabs into spaces in Outlook Notes Using Outlook 1
P newly installed Office 365 includes OLD Outlook Using Outlook 6
R Outlook ribbon menu default? Using Outlook 7
H Spam email in Gmail not visible in Outlook Using Outlook 3
J How to transfer Win 10 Outlook to new Windows 11 pc? Using Outlook 11
J Renegade spam URL line displayed in old local Outlook 365 email title Using Outlook 3
G Reduce whitespace in Outlook desktop Contact Cards display Using Outlook 3
C Outlook classic via 365 Using Outlook 2
Dr. Demento Analogous Outlook code to read info into an array (or collection or whatever) Outlook VBA and Custom Forms 7
S Repair Outlook Using Outlook 8
V Outlook Form ListBox is not editable Outlook VBA and Custom Forms 2
F Outlook's contacts Using Outlook 1
D Outlook 2003 stopped dead Using Outlook 2
G Cannot receive emails from gmail account in Outlook 365 Using Outlook 1
E "Cannot display the folder. MS Outlook cannot access the specified file location" Using Outlook 8
P Outlook 2016 Working Offline Using Outlook 2
Rupert Dragwater Cannot reestablish gmail (email address) account in Outlook 365 Using Outlook 11
O Outlook 365 synchronisieren Exchange Server Administration 1
kburrows Outlook Classic - JPG files are corrupted when opened or saved Using Outlook 3
F Sync Outlook Calendar Using Outlook 0
G Change default font size in sticky notes - Outlook Desktop 2021 Using Outlook 2
C VBA in "New Outlook?" Using Outlook 0
D New Outlook with Business Basic Plans Using Outlook 0
D Outlook 2021 not working with Outlook 2003 installed Using Outlook 5
D Outlook 2003 stopped working - get they dialog box asking for username & Password Using Outlook 2
T Outlook 2021 hangs in close on taskbar occasionally Using Outlook 1
M Duplicate removal feature in Outlook 2021 is faulty Using Outlook 2
D.Moore Outlook COM addins source folder Using Outlook 12
P Removing Outlook 365 Account from Send/Receive Using Outlook 3
kburrows Outlook Automatically Merging Contacts Using Outlook 2
A Outlook 2016 Outlook 2016 vs. New Outlook Using Outlook 4
D Outlook Desktop App Email Software Using Outlook 0
efire9207 VBA Outlook Contacts Outlook VBA and Custom Forms 6
M Outlook not logging in to server Using Outlook 0

Similar threads

Back
Top