RE: Tracking if a message was sent with OL Reference

[Ogmius]

Hey all, im using a createobject reference (see below) to call an outlook mail message... I wanted to track if it is sent or not so that I can take the final composed message and store it in a database (This is for message tracking from within my application) See code below, any suggestions would be helpful! Thanks!

Dim olMailItem
    Dim olApp As Object
    Dim objMail As Object
        Set olApp = CreateObject("Outlook.Application")
        Set objMail = olApp.CreateItem(olMailItem)
 
    Set objMail = olApp.CreateItem(olMailItem)
 
    With objMail
        If (strRecipientName <> "") And (IsNull(strRecipientName) = False) Then .To = strRecipientName
        .HTMLBody = strMailTemplateInfo
        .Subject = "Critical Call IM" & KillZeros(Mid(frmMain.lblTickInfo.Caption, 3, 13)) & " - " & strMsgSubType & " - " & frmMain.txtKnownApps
        On Error GoTo DialogOpen
        .Display
    End With