heger.blogg.se - Outlook emails stuck in outbox 2016

Set OutApp = CreateObject("Outlook.Application") SheetPath = Workbooks("Upload.xlsm").Worksheets("Branch List").Range("J2").Value

For counter = 2 To 18īranchCode = Workbooks("Upload.xlsm").Worksheets("Branch List").Range("C" & counter).ValueīranchName = Workbooks("Upload.xlsm").Worksheets("Branch List").Range("A" & counter).ValueīranchEmail = Workbooks("Upload.xlsm").Worksheets("Branch List").Range("D" & counter).Value I've attempted using: DoEvents and Application.Wait (Now + TimeValue("0:00:03")) to no avail.

The code runs without error but only about 6 of the 17 emails go out, the balance are stuck in outbox and go out when I open Outlook and sync the folders myself. I'm attempting to send out emails with attachments via Outlook (initiated on Excel).