Prompt user for info on Send then add that info to the mail being sent
10,120
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
SenderName = InputBox("Please enter your name")
Item.Body = Item.Body + SenderName
End Sub
This is a simple script to do the job.
Author by
CodeQrius
Updated on June 04, 2022Comments
-
CodeQrius almost 2 years
I want to prompt the user to enter their name in an input box, when they hit Send.
Once they input the info and click Ok, I want to append the name to the end of the message and then let the message go.