将文本和发件人的电子邮件地址添加到邮件正文[保持中]

Question

我需要将电子邮件转发到票务系统，并且为了使系统创建票证，电子邮件正文必须包含：

#original_sender {EMAIL ADDRESS OF SENDER}

我想创建一个宏以通过击键或单击自定义工具栏中的内容来自动完成此任务。

我可以使用一个简单的脚本吗？它需要做的只是在该文本和“发件人”电子邮件地址之前添加到邮件正文的顶部。

Answer 1

尝试以下操作

Option Explicit
Public Sub Example()
    Dim Forward_Email As MailItem
    Dim Item As Outlook.MailItem
    Dim Email As String

    Set Item = Application.ActiveExplorer.Selection.Item(1)

    If Item.SenderEmailType = "SMTP" Then
        Email = Item.SenderEmailAddress
    Else
        If Item.SenderEmailType = "EX" Then
            Email = Item.Sender.GetExchangeUser().PrimarySmtpAddress
        End If
    End If

    Set Forward_Email = Item.Forward

    With Forward_Email
        .To = ""
        .Subject = Item.Subject

        .HTMLBody = "Email Address : " & Email & "<BR><BR>" & Item.HTMLBody
        .Display
    End With

    Set Forward_Email = Nothing
End Sub