通過 Outlook 電子郵件從篩選表發送數據

Question

我正在嘗試創建一個 VBA，它允許我向指定的分銷商發送 Outlook 電子郵件，其中包含有關項目的信息和來自過濾表數據的信息。 過濾器基於分銷商的名稱。 以下是我到目前為止編寫的代碼。

Sub EmailDistro_1()

Dim xStrFile As String

    Dim xOutApp As outlook.Application
    Dim xMailOut As outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    
    ActiveSheet.Range("Distributor").AutoFilter field:=2, Criteria1:=Cells(2, 2).Value
ActiveSheet.ListObjects("Distributor").Range.Copy

        
        With xMailOut
         .Display
            .To = Range("D2").Value
            .Subject = Range("B8").Value & " " & Range("B9").Value & " - " & Range("B11").Value & " Tile RFQ"
            .HTMLBody = "<p style='font-family:calibri;font-size:12.0pt'>" & Split(Range("C2").Value, " ")(0) & "," & "<br/>" & vbCrLf & "Can you please provide me with pricing, lead times AND rough freight to Zipcode 21850 (Forklift on site)." & "<br/>" & vbCrLf & "<br/>" & vbCrLf & .HTMLBody                           
     
         End With
    
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True

End Sub

照片 1 是我希望電子郵件的填充方式

照片 2 是我正在處理的 excel 表。

Answer 1

請注意，要將簽名添加到消息正文中，您需要在處理代碼中的HTMLBody屬性之前調用.Display方法。

您可以使用 Word 對象模型並將 Word 中表示的消息正文作為 Document 實例處理，因此您可以簡單地使用Paste方法將復制的數據插入 Excel。 WordEditor屬性返回正在顯示的消息的 Microsoft Word 文檔對象模型。 有關詳細信息，請參閱第 17 章：使用項目實體。