將模板從Excel複製到Outlook

Question

我有一個駐留在Excel文件中的模板。一旦我點擊預覽按鈕，這個模板將顯示在outlook以及它的主題，以及等等。

我有這個代碼工作正常，但不工作在正文字段。

Sub previewMail() 
Dim objMail, objOutLook As Object 
Dim rngTo, rngCC, rngBCC, rngBody As Range 
Dim lRow As Long 
Dim i As Integer 


Set objOutLook = CreateObject("Outlook.Application") 
Set objMail = objOutLook.CreateItem(0) 
Set main = ThisWorkbook.Sheets("Main") 

lRow = main.Cells(Rows.Count, 2).End(xlUp).Row 

For i = 11 To lRow 
    With main 
     Set rngTo = .Range("B" & i) 
     Set rngBody = .Range(.Range("C10:N30"), .Range("C10:N30")) 
    End With 

    With objMail 
     .To = rngTo.Value 
     .Subject = "Sample" 
     'i like the rngbody to be here 
     .HTMLBody = RangetoHTML(rngBody)' from Ron de Bruin site 
     .Display 

    End With 
Next i 
End Sub 

這是駐紮在上述範圍內的模板。

任何人都可以請幫我解決這個問題嗎？我已經嘗試了Ron de Bruin的this，但我無法完成它的工作。這隻給出了一個「不可見表」的產品。

Answer 1

嘗試Range.PasteAndFormat wdChartPicture

例

Option Explicit 
Sub previewMail() 
    Dim objMail, Main, objOutLook As Object 
    Dim rngTo, rngCC, rngBCC, rngBody As Range 
    Dim lRow As Long 
    Dim i As Integer 
    Dim wordDoc As Word.Document '<--- 

    Set objOutLook = CreateObject("Outlook.Application") 
    Set objMail = objOutLook.CreateItem(0) 
    Set Main = ThisWorkbook.Sheets("Main") 
    Set wordDoc = objMail.GetInspector.WordEditor '<--- 

    lRow = Main.Cells(Rows.count, 2).End(xlUp).Row 

    For i = 11 To lRow 
     With Main 
      Set rngTo = .Range("B" & i) 
      Set rngBody = .Range(.Range("C10:N30"), .Range("C10:N30")) 
      rngBody.Copy '<--- 
     End With 

     With objMail 
      .To = rngTo.Value 
      .Subject = "Sample" 
      .Display 
      wordDoc.Range.PasteAndFormat wdChartPicture '<--- 
      ' Or 
      'wordDoc.Range.PasteAndFormat wdChartPicture & .HTMLBody = " " 
     End With 
    Next i 
End Sub 

確保引用設置對Microsoft Outlook和Microsoft Word Object庫

工具>參考......

Answer 2

編輯：OP已指示文本不在範圍內，但在範圍前的文本框中。

使用此代碼，以查找文本框名稱：

for i = 1 to activesheet.chartobjects.count 
    debug.print chartobjects(i).name 
next i 

它會像Textbox1的什麼的，然後使用（未經測試）：

dim strBody as string 
Set strBody = activesheet.chartobjects("Textbox1").Value 
.HTMLBody = strbody