Question

出于有效的个人原因**我正在尝试构建一个宏，清除正在回复的电子邮件的To，CC，Subject和Body（在撰写模式下？）。我下面的内容适用于正在阅读的电子邮件，但它不适用于正在修改/组合的电子邮件。

宏必须更改哪些内容才能处理正在撰写/编辑的电子邮件？

Sub ClearEmail()
    Dim olExplorer As Explorer
    Dim olSelection As Selection
    Dim email As MailItem
    Dim strSig As String, Sig As String

    Set olExplorer = Application.ActiveExplorer
    Set olSelection = olExplorer.Selection
    Set email = olSelection.Item(1)

    email.To = ""
    email.CC = "team@example.com"

    email.Subject = ""
    email.HTMLBody = vbCrLf & vbCrLf & vbCrLf & "Hello"
End Sub

^** _{我的Exchange个人资料搞砸了，已经有好几个星期了，兼职Exchange管理员很快就无法访问它。我可以成功发送电子邮件的唯一方法是打开收件箱组中的现有电子邮件，点击“全部回复”，清除字段并添加我的签名。然后我可以根据需要进行编辑并发送它没有任何问题。（电子邮件我只是编写并发送卡在发件箱中并且从未发送 - 有几十个。）我已经手动执行了几周。}
_{我不是Outlook / VBA程序员，所以请原谅我不知道正确的术语。}

来源：

http://www.rondebruin.nl/win/s1/outlook/signature.htm

http://www.vbforums.com/showthread.php?628044-Insert-text-into-current-outlook-message

Answer 1

这允许编辑当前正在撰写的电子邮件：

Dim theEmail As MailItem, oInspector As Inspector
Set oInspector = Application.ActiveInspector
Set theEmail = oInspector.CurrentItem

参考：

Working with current open email

Outlook - 以编程方式修改当前正在撰写/编辑的电子邮件

1 个答案: