Hi
I have not been able to find a solution to this that fits.
Basically I have a procedure below that generates a personalised email (pulling some data from a form). What I would like to be able to do is log to an event table if the email was then sent. If the user discards the eamil then no action will be needed.
Code:
Private Sub btnActivate_Click() On Error GoTo Err_Handler
Dim ALL RELEVANT VARIABLES
Set Instance of outlook etc...
With objMail
.BodyFormat = olFormatHTML
.To = vTo
.CC = vCC
.Subject = "Blah"
.Display
End With
'Reset the outlook variable
Set objMail = Nothing
Set olApp = Nothing
Exit_Handler:
Exit Sub
Err_Handler:
Resume Exit_Handler
End Sub