在電子郵件HTML正文中複製範圍

到目前爲止，我對這裏的另一個趨勢只見到一個細胞中只有身體複製的方式，它的工作原理：

Sub Macro1() 
    Dim mainWB As Workbook 
    Dim CCID 
    Dim SendID 
    Dim subject 
    Dim body 
    Dim otlApp 
    Dim OLmail As MailItem 

    Set otlApp = CreateObject("Outlook.Application") 
    Set OLmail = otlApp.CreateItem(olMailItem) 

    Dim oAttach As Outlook.Attachment 
    Dim sPath As String 

    SendID = NameToRange("Email_To") 
    subject = "Email1" 

    With OLmail 
     .To = SendID 
     If CCID <> "" Then 
      .cc = CCID 
     End If 
     .subject = subject 
     .Attachments.Add "S:\Documents\Graph1.jpeg", olByValue, 0 

     .HTMLBody = .HTMLBody & "<B>Hello,</B><br>" _ 
     & "<br><B>Introduction</B><br>" & _ 
        "<br>" & mainWB.range([101, 42],[102, 50]).Value & _ 
        "<br><B>Graph:</B><br>" _ 
        & "<img src='Graph1.jpg'" & "width='600' height='300'>" _ 

     .display 
    End With 
end sub

來源

2016-04-14 Spotless

只是試圖瞭解你的問題。您是否試圖用VBA解析電子郵件？ – 2016-04-14 13:24:29

我通過VBA發送電子郵件。這是所有的工作，我發送圖片和文字。現在，我嘗試在這封電子郵件中發送一系列值（html body），並且我很努力。 – Spotless

好吧，我假設你在創建原始代碼時遵循了一些網絡教程，博客或其他堆棧溢出問題。你可以請發送鏈接？它將爲您的問題提供背景。 – 2016-04-14 13:27:40

嘗試通過它定義範圍，然後循環這樣的。

Sub Macro1() 

Dim mainWB As Workbook 
Dim CCID 
Dim SendID 
Dim subject 
Dim body 
Dim otlApp 
Dim OLmail As MailItem 

'****************************** 
Dim rng As Range    '* 
Dim cell As Range   '* 
Dim EMBody As String   '* 
'****************************** 
Set rng = Range("") 'range '* 
For Each cell In rng   '* 
EMBody = EMBody & cell.Value '* 
EMBody = EMBody & Chr(13) '* 
Next cell     '* 
'****************************** 

Set otlApp = CreateObject("Outlook.Application") 
Set OLmail = otlApp.CreateItem(olMailItem) 

Dim oAttach As Outlook.Attachment 
Dim sPath As String 

SendID = NameToRange("Email_To") 
subject = "Email1" 

With OLmail 
    .To = SendID 
    If CCID <> "" Then .CC = CCID 
    End If 
    .subject = subject 
    .Attachments.Add "S:\Documents\Graph1.jpeg", olByValue, 0 
    .body = EMBody 
    .HTMLBody = "" 'put whatever else you need besides the range values 
    .display 
End With 

End Sub

來源

2016-04-14 14:16:38 Alex

在電子郵件HTML正文中複製範圍

回答

相關問題