我正在尝试将一系列单元格复制到已经包含一些文本的Outlook电子邮件的主体上。我当前的代码如下,但一直崩溃:
Dim sourceWorkbook As Workbook
Dim outEmail As Object
Dim outContent As Object
Dim copiedRange As Range
Set sourceWorkbook = Workbook.Open("file location")
Set outEmail = GetObject(,"Outlook.Application")
Set outContent = objOut.CreateItem(0)
Set copiedRange = Sheet("sheet name").RangeToHtml("A1:D5")
copiedRange.Select
With Selection
.Copy
End With
With outContent
.Body = "blah blah blah"
.HTMLBody = RangeToHtml.copiedRange
End With
Dim sourceWorkbook As Workbook
Dim outEmail As Object
Dim outContent As Object
Dim copiedRange As Range
Set sourceWorkbook = Workbooks.Open("file location")
Set outEmail = GetObject(,"Outlook.Application")
Set outContent = outEmail.CreateItem(0)
Set copiedRange = sourceWorkbook.Sheets("sheet name").Range("A1:D5")
With outContent
.Body = "blah blah blah"
.HTMLBody = RangeToHtml(copiedRange)
End With
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句