如何通過 Outlook VBA 僅向特定域中的人發送純文本電子郵件

Outlook解決方案 2025 年 9 月 29 日
立即分享：

某些用戶希望僅向電子郵件地址位於特定域中的收件人發送純文本電子郵件。 本文將介紹一個聰明的方法來獲取它。

在我之前的文章中，如何始終以純文本格式為特定聯繫人發送 Outlook 電子郵件”，您可以通過 2 種方法僅向特定聯繫人發送純文本電子郵件。 如果你想將這樣的郵件發送給特定郵件域內的所有聯繫人，使用那篇文章中的2種方式會有點愚蠢和麻煩。 因此，在這裡我們將與您分享另一種更有效的方法。

通過Outlook VBA僅將純文本電子郵件發送給特定域中的電子郵件

僅向特定域中的人發送純文本電子郵件

  1. 首先，您應該啟動 Outlook 應用程序。
  2. 然後，您需要在 Outlook 主屏幕中按“Alt + F11”鍵按鈕。
  3. 接下來，“Microsoft Visual Basic for Applications”窗口將出現。 在其中，您應該打開“ThisOutlookSession”項目。
  4. 隨後，將以下VBA代碼複製並粘貼到該項目中。
'Occurs when sending an Outlook email
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim strAddress, strDomain As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       For Each objRecipient In objMail.Recipients
           'Get the recipient's email domain
           strAddress = objRecipient.Address
           strDomain = Right(strAddress, Len(strAddress) - InStr(strAddress, "@"))
 
           'If the domain is the specific one
           'Change the "datanumen.com" as per your needs
           If strDomain = "datanumen.com" Then
              'Convert the email format to plain text
              objMail.BodyFormat = olFormatPlain
              objMail.Save
              Exit For
           End If
      Next
    End If
End Sub

VBA 代碼 - 僅向特定域中的人發送純文本電子郵件

  1. 之後，您必須簽署此宏。 單擊“工具”>“數字簽名”，然後按照屏幕上的嚮導完成它。
  2. 稍後，退出當前窗口。 然後切換到“開發人員”選項卡並點擊“宏安全”按鈕。 在新的彈出對話框中，您應該更改設置以啟用數字簽名的宏。
  3. 最後，您可以拍攝了。 創建並撰寫一封電子郵件給特定電子郵件域中的一個收件人。 並點擊“發送”按鈕將其發送出去。 在此過程中，Outlook 會自動將電子郵件格式更改為純文本。

恢復損壞的 Outlook 文件

Outlook 容易受到病毒感染、惡意軟件攻擊、電涌等的影響。 因此，我們應該學習一些提示，以在損壞後還原Outlook數據。 首先，您應該檢查您的備份。 如果備份太舊或無法恢復，您可以使用內置工具 - Scanpst.exe。 當然，該 收件箱維修工具 並不總是有效。 因此，您最好準備一個可靠且有說服力的外部工具，例如 DataNumen Outlook Repair. 由於其高回收率，強烈推薦使用。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的SQL 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。