The Mailing_OnReceiveMail event occurs after a message has been accepted. The mail message can be accessed using the intrinsic Mail Object.
. . .
' Create a backup of the received message
Set NewMail = Mailing.CreateMail(Mail)
NewMail.Receivers.Add , "firstname.lastname@example.org"
NewMail.Subject = Mail.Subject & " Received on: " & Now
Set NewMail = Nothing
' Forward the original mail to the sales department
Mail.Receivers.Add , "email@example.com"
A mailing project can listen to more than one incoming queue, mails arriving from all queues will trigger this event.
Mailing_OnAcceptMail, SubmitMail, RemoveReceivedMail