用於選擇發件人和簽名的 VBA 代碼

Question

在 Excel 中，我使用這樣的代碼通過 Outlook 開始發送電子郵件：

Set mOutlookApp = GetObject("", "Outlook.application")
Set OutMail = mOutlookApp.CreateItem(0)

With OutMail
    .To = "blahblah@blah.com"
    .Subject = "More BLAH here"
    .HTMLBody = "Message Text" & .HTMLBody ' This preserves the Signature in the message.
    .Display
End With

通常，當我發送（手動）電子郵件時，我可以選擇從普通地址以外的地址發送（通過按“發件人”按鈕）。

此外，我可以從我保存的幾個簽名中選擇一個。

如何在 VBA 代碼中完成這些壯舉？

Answer 1

設置MailItem.SendUsingAccount屬性，調用Display （此時 Outlook 將插入簽名），讀取HTMLBody屬性（它現在將包含簽名），將其與您自己的數據合並（注意，不能簡單地連接 2 個 HTML 字符串） , 設置HTMLBody屬性。

Answer 2

將1更改為您要發送的帳號

.SendUsingAccount = OutApp.Session.Accounts.Item(1)

就簽名而言，它們存儲在%USERPROFILE%\\Application Data\\Microsoft\\Signatures您可以遍歷簽名並選擇相關的簽名