Hi all,

I've created a Sub to send an email from excel as shown;

Sub SendAnEmailWithOutlook(CurrFile)
    
    Dim olApp As Outlook.Application
    Dim olMail As MailItem

    Set olApp = New Outlook.Application
    Set olMail = olApp.CreateItem(olMailItem)
    
    With olMail
        .To = "RLodge@tfs.textron.com"
        .CC = "JPalin@tfs.textron.com"
        .Subject = "Textron Schedule Agreements: " & Right(CurrFile, 13)
        .Attachments.Add CurrFile & ".xls"
        .Display
        .OriginatorDeliveryReportRequested = True
        .ReadReceiptRequested = True
    End With
     
    Set olMail = Nothing
    Set olApp = Nothing
End Sub
I need to find out how I can determine whether or not the email had actually been sent or not.

Any help appreciated! TIA