特定のドメイン内のすべての連絡先に電子メールをバッチ送信する方法

Outlookソリューション 2025 年 9 月 29 日

特定のドメインのすべての連絡先にメールをバッチ送信したい場合があります。この場合、この記事で紹介した方法を使用して、すばやく取得できます。

いくつかの理由で、Outlookの特定のドメイン内のすべての連絡先に電子メールを送信する必要がある場合があります。たとえば、メールアドレスが確かに特定のメールドメインにあるすべての同僚にメールを送信する必要があります。これらの連絡先を手動で見つけると、かなり面倒になります。したがって、ここではそれを取得するための簡単な方法を紹介します。以下は、詳細な手順とVBAコードです。

特定のドメイン内のすべての連絡先に電子メールをバッチ送信する

まず、Outlookアプリケーションを起動します。
次に、「Alt + F11」キーボタンを押して、OutlookVBAエディターにアクセスします。
次に、使用されていないモジュールを開くか、新しいモジュールを直接挿入する必要があります。
続いて、次のVBAコードをコピーして貼り付けます。

Sub SendanEmailtoAllContactsinSpecificDomain()
    Dim objContactsFolder As Outlook.Folder
    Dim objItem As Object
    Dim objContact As Outlook.ContactItem
    Dim strEmail1Address, strEmail2Address, strEmail3Address As String
    Dim objMail As Outlook.MailItem
    Dim objMailRecipients As Outlook.Recipients
 
    Set objMail = Application.CreateItem(olMailItem)
    Set objMailRecipients = objMail.Recipients
    Set objContactsFolder = Application.Session.GetDefaultFolder(olFolderContacts)
 
    For Each objItem In objContactsFolder.Items
        If objItem.Class = olContact Then
           Set objContact = objItem
           strEmail1Address = objContact.Email1Address
           strEmail2Address = objContact.Email2Address
           strEmail3Address = objContact.Email3Address

           'Change the specific email domain
           If InStr(strEmail1Address, "@datanumen.com") > 0 Then
              objMail.Recipients.Add (strEmail1Address)
           ElseIf InStr(strEmail2Address, "@datanumen.com") > 0 Then
              objMail.Recipients.Add (strEmail2Address)
           ElseIf InStr(strEmail3Address, "@datanumen.com") > 0 Then
              objMail.Recipients.Add (strEmail3Address)
           End If
 
        End If
    Next objItem
 
    objMail.Display
End Sub

その後、Outlookマクロのセキュリティレベルを低に変更する必要があります。
オプションで、このような電子メールを頻繁に送信する必要がある場合は、クイックアクセスツールバーに新しいマクロを追加することもお勧めします。
この時点で、試してみることができます。ツールバーの「実行」アイコンをクリックします。
最終的に、新しい電子メールがポップアップ表示されます。次のスクリーンショットのように、特定の電子メールドメインにあるすべての電子メールアドレスが「宛先」フィールドに含まれていることがわかります。

PSTエラーに直面してもパニックにならない

アクセスできないPSTエラー、ウイルスに感染したPSTファイル、または破損したOutlook PSTデータなど。ただし、落ち着いてできるだけ早く解決することをお勧めします。まず第一に、あなたは解像度を試すことができますtarOutlookを使用します。問題が解決しない場合は、受信トレイの修復ツールであるScanpst.exeに戻ることができます。しかし、それが何の効果ももたらさないと仮定すると、あなたは次のようなより経験豊富なツールに頼ることができます DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。破損したSQL と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com