2016-09-13 56 views
1

之前您關閉這個問題,因爲它「沒有任何意義」和「這是不可能的」發送不同內容的一封電子郵件爲每個收件人,請聽我說:(用cc場)

問題:

我們實施跟蹤像素(我可下載的專屬網址GIF文件)在我們發送使用我們的系統的每封電子郵件,這有助於我們跟蹤電子郵件的打開。這裏的問題是,當我們的CC幾個收件人跟蹤像素被下載,我們無法檢測已經打開了該郵件,因爲所有的電子郵件抄送的內容必須是相同的。

可能的解決方案:

如果SMTP服務器是控制注入跟蹤像素的SMTP可以在郵件正文從接收者通過發佈每個接收者使用不同的網址更改爲收件人,假裝收到的所有收件人相同的信息。

然而,使用公共SMTP服務器(例如谷歌的SMTP)這似乎並不可能,但也有企業(AirMail舉例)仍然是能夠做到這一點,發送每個收件人不同的內容(不同的跟蹤網址在cc消息中)。當我檢查電子郵件標題時,它們似乎是從Google郵件服務器發送的(客戶端帳戶使用gmail.com帳戶)。這怎麼可能?

回答

0

他們正在爲每個人唯一的消息。沒有什麼真正的神奇。通常某種類型的郵件合併。

+0

這是不是一個選項,因爲消息顯示所有收件人收到了同樣的消息,再次,除非它在SMTP級別 –

+1

運氣好的解決這個一個操縱?我正面臨類似的問題。 –

+0

你會做這樣的事情對於IMG SRC: /myimage.gif?id=1234 而且,你必須在Web服務器級別的處理程序搶ID,並記錄下來。 /1234.gif其中1234是id。圖像實際上並不存在,你只是有一個處理服務立標圖像,並記錄1234 同樣,你也可以做這樣的事情: –

0

雖然我沒有給你一個C#解決方案,這裏是一個很好的解決方案VBA,使用Excel。

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

+0

我不認爲你閱讀問題 –