CODEWITHSUNDEEP
vbaoutlook
CodeQrius
CodeQrius

Reputation: 429

Prompt user for info on Send then add that info to the mail being sent

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.

Upvotes: 2

Views: 10312

Answers (1)

Shoban
Shoban

Reputation: 23016

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.

Upvotes: 2

Related Questions