それはと、「それは不可能だ」「意味がない」ので、あなたがこの質問を却下する前に

Question

（CCフィールドを使用して）受信者ごとに異なるコンテンツを持つ単一の電子メールメッセージを送信する私を聞いてください。

問題：を

システムを使用して送信する各電子メールにトラッキングピクセル（一意のURLを持つダウンロード可能なGIFファイル）を実装すると、電子メールメッセージの開始を追跡するのに役立ちます。この問題は、いくつかの受信者を検索するとトラッキングピクセルがダウンロードされ、が見つかりません。は、すべての電子メールがCC'edであるため、内容が同じである必要があるためです。

考えられる解決策：SMTPサーバーは、トラッキングピクセルを注入制御した場合

、SMTPは、すべての受信者が受け取ったことをふり、異なるURLで各受信者を掲載することにより、受信者に、受信者からのメッセージ本文を変更することができます同じメッセージ。

しかし、これができていないようだが、それでもこれを行うことができるている企業（例えばAirMail）が受信者ごとに異なるコンテンツ（異なるトラッキングURLを送信して、そこにある公共のSMTPサーバ（例えば、GoogleのSMTP）を使用して、 ccメッセージで）。電子メールのヘッダーをチェックすると、グーグルSMTPサーバー（クライアントアカウントはgmail.comアカウントを使用）から送信されたようです。これはどのように可能ですか？

Answer 1

各個人に固有のメッセージを作成しています。本当に魔法はありません。通常、ある種類の差し込み印刷が行われます。

Answer 2

私はあなたのためにC＃ソリューションを持っていませんが、ここではExcelを使用して素敵なVBAソリューションです。

Sub Send_Files() 
'Working in Excel 2000-2016 
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 
    Dim OutApp As Object 
    Dim OutMail As Object 
    Dim sh As Worksheet 
    Dim cell As Range 
    Dim FileCell As Range 
    Dim rng As Range 

    With Application 
     .EnableEvents = False 
     .ScreenUpdating = False 
    End With 

    Set sh = Sheets("Sheet1") 

    Set OutApp = CreateObject("Outlook.Application") 

    For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants) 

     'Enter the path/file names in the C:Z column in each row 
     Set rng = sh.Cells(cell.Row, 1).Range("C1:Z1") 

     If cell.Value Like "?*@?*.?*" And _ 
      Application.WorksheetFunction.CountA(rng) > 0 Then 
      Set OutMail = OutApp.CreateItem(0) 

      With OutMail 
       .to = cell.Value 
       .Subject = "Testfile" 
       .Body = "Hi " & cell.Offset(0, -1).Value 

       For Each FileCell In rng.SpecialCells(xlCellTypeConstants) 
        If Trim(FileCell) <> "" Then 
         If Dir(FileCell.Value) <> "" Then 
          .Attachments.Add FileCell.Value 
         End If 
        End If 
       Next FileCell 

       .Send 'Or use .Display 
      End With 

      Set OutMail = Nothing 
     End If 
    Next cell 

    Set OutApp = Nothing 
    With Application 
     .EnableEvents = True 
     .ScreenUpdating = True 
    End With 
End Sub 

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