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
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
witzker Outlook 2019 Pls. add a Prefix for OUTLOOK 2019 here Using Outlook 1
H Outlook 2019 intermittent search results Using Outlook 0
hstein POP3 latest Outlook Using Outlook 0
V Outlook 2003 and Windows 11 Using Outlook 4
J How to import many msg into different public folders in Outlook Outlook VBA and Custom Forms 7
I Outlook for Mac 2019 using on desktop and laptop IMAP on both need help with folders Using Outlook 1
A Reminder duplication Outlook and Outlook.com Using Outlook.com accounts in Outlook 5
F Moving Outlook to new PC Using Outlook 0
mll persistently customise columns in outlook advanced search Using Outlook 3
Ken Pascoe Outlook Categories Quick List Using Outlook 0
M All fonts in Outlook emails display with exaggerated character spacing Using Outlook 1
talla Can't open Outlook Item. Using Outlook 0
C Can't Locate an Unread Message in my Outlook view pane Using Outlook 0
C Outlook 2007 Removing then adding account restores junk email processing Using Outlook 0
P Importing other e-mail accounts into Outlook Using Outlook 1
J Read Outlook Form fields Outlook VBA and Custom Forms 3
B Inconsistent handling of message read/unread status by Outlook Using Outlook 3
R Rogue Outlook Rule ? Using Outlook 2
S vba outlook search string with special characters Outlook VBA and Custom Forms 1
F Wishlist Outlook suddenly began synchronizing deleted items every time I delete a single email. Using Outlook 2
U Outlook 2019 VBA run-time error 424 Outlook VBA and Custom Forms 2
P Outlook calendar and contacts sync problem-outlook disconnects Using Outlook.com accounts in Outlook 2
HarvMan Toggle between calendar and email in Outlook 365 Using Outlook 12
V Outlook error 500 Using Outlook 2
F Email being marked as Spam by Gmail and not being visible in Outlook Using Outlook 5
S Mac Outlook 365 Questions Using Outlook 1
M Outlook calendar is missing Using Outlook 2
G Save and Rename Outlook Email Attachments Outlook VBA and Custom Forms 0
G Trigger script without restaring outlook Outlook VBA and Custom Forms 7
T Have you written an articles about Outlook? Using Outlook 3
V Compound IF, OR, AND in Outlook form Outlook VBA and Custom Forms 4
A Any way to make Outlook Calendar invitations look right to Gmail/Google Calendar users? Using Outlook 3
R Outlook 365 update sets delete from server flag Using Outlook 1
M How to setup outlook after importing old account information - Entering email account info creates with "(1)" after the account! Using Outlook 1
P Prevent Outlook 2016 from using DASL filter Using Outlook 4
I Button PDF in Outlook Contact custom form Outlook VBA and Custom Forms 1
G VBA to save selected Outlook msg with new name in selected network Windows folder Outlook VBA and Custom Forms 1
X Outlook automation pull from PDF Using Outlook 6
O Outlook 365 - How to create / copy a new contact from an existing one? Using Outlook 3
M Gmail address associated with Outlook on new phone Using Outlook 9
D Cannot populate certain UserProperties in Outlook from Excel Outlook VBA and Custom Forms 2
F Excel VBA to move mails for outlook 365 on secondary mail account Outlook VBA and Custom Forms 1
G Outlook 2016: Want IMAP Data Files on My D: Drive and Not C: Drive Using Outlook 1
V Validating Outlook form with "OR" and "AND" Outlook VBA and Custom Forms 1

Similar threads

Top