excel - 将模板从 Excel 复制到 Outlook

Question

我有一个驻留在 excel 文件中的模板。单击预览按钮后，该模板将显示在 Outlook 中，以及它的主题、to 等。

我有这段代码可以正常工作，但不能在正文字段中工作。

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

这是驻留在上述范围内的模板。


谁能帮我解决这个问题？我试过 this来自 Ron de Bruin，但我无法让它发挥作用。这只给出了一个“看不见的 table ”的产品。

Answer 1

编辑: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