2

するVBAスクリプトはありますか

  • 連絡先グループごとに下書きメールを作成する
  • 「TO」フィールドに連絡先グループの連絡先を入力
  • 均一な件名で
  • 均一なボディで
  • ...本文に署名が含まれている場合はボーナス

背景: 私の連絡先リストには、約 50 の連絡先グループがあり、それぞれがクライアントを表し、それぞれに複数の連絡先が含まれています。月に一度、各クライアントに請求書をメールで送信する必要があります。これには現在、

  • 50 の連絡先グループごとにメールを作成する
  • 件名を 50 の下書きのそれぞれにコピーする
  • 50 の下書きのそれぞれに本文をコピーする

VBA を介してメールを作成するためのリファレンスはたくさん見つかりましたが、連絡先グループを使用してそれを強化することについては何もありません。

    Sub NewEmail()
    Dim myOutlook As Outlook.Application
    Dim objMailMessage As Outlook.MailItem
    Set myOutlook = Outlook.Application
    Set objMailMessage = myOutlook.CreateItem(0)
        With objMailMessage
            .To = "" '?
            .Subject = "Email subject"
            .Body = "Email body." 'Msg + Signature?
            .Display
            .Save
            .Close olPromptForSave
        End With
    End Sub
4

1 に答える 1

1

コードの最初に、「連絡先グループ」への参照を追加する必要があります。「Grupa Testowa」(英語で「テスト グループ」) という名前のグループがあるとします。したがって、コードを次のように変更します。

Sub NewEmail()
    'new part of the code here
    Dim CF As Folder
    Set CF = Application.Session.GetDefaultFolder(olFolderContacts)

    Dim DLI As DistListItem
    Set DLI = CF.items("Grupa Testowa")

    'your code here with one modification within With...End With
    With objMailMessage
        .To = DLI
    '...rest of your code
    End with
End sub

詳細DistListItem Objectについては、MSDN の説明を確認してください。

于 2013-05-13T20:37:54.247 に答える