Outlook宏提示用户信息

Question

我想为Outlook创建一个宏，当他们点击Send时，会提示用户在输入框中输入他们的名字。一旦他们输入了信息并单击“确定”，我想将名称附加到消息的末尾，然后让消息继续。有什么想法吗？

Answer 1

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
SenderName = InputBox("Please enter your name")
Item.Body = Item.Body + SenderName
End Sub

这是一个简单的脚本来完成这项工作。