将Excel中的数据插入到Outlook中的表中-InsertingdatafromExcelintoatableinoutlook

The simplest way to get the job done is to use the Word object model for modifying the message body.

完成工作的最简单方法是使用Word对象模型来修改邮件正文。

The Outlook object model provides three different ways for working with item bodies:

Outlook对象模型提供了三种使用项主体的方法:

1. Body - a plain text.

身体 - 纯文本。

2. HTMLBody - an HTML markup.

HTMLBody - HTML标记。

3. The Word Editor. Outlook uses Word as an email editor, so you can use it to format the email message. The WordEditor property of the Inspector class returns an instance of the Document class which represents the message body.

Word编辑器。 Outlook使用Word作为电子邮件编辑器,因此您可以使用它来格式化电子邮件。 Inspector类的WordEditor属性返回表示消息正文的Document类的实例。

You can read more about all these ways in the Chapter 17: Working with Item Bodies in MSDN.

您可以在第17章:在MSDN中使用项目主体中阅读有关所有这些方法的更多信息。

For example:

mail.GetInspector().WordEditor

Make sure to include it by going to Tools > References > Microsoft Excel 14.0 Library Object (14.0 is the version of your Excel. Mine is 2010).

确保通过转到“工具”>“参考”>“Microsoft Excel 14.0库对象”(14.0是Excel的版本.Mine是2010)来包含它。

Once done with that, you can proceed as follow:

完成后,您可以按以下步骤操作:

Sub GetInfo()
'Define an Excel object
Dim ExcelApp As New Excel.Application
'Define objects
Dim WB As Workbook
Dim WS As Worksheet
Dim r As Object
Dim L As Long
'Visible = false meaning Excel will be running invisible
ExcelApp.Visible = False
Set WB = ExcelApp.Workbooks.Open("Path to Excel file")
Set WS = WB.Worksheets(1) '1 is the first sheet
L = WS.Cells(WS.Rows.Count, 1).End(-4162).Row 'finding the lastrow of data considering (1 means column A of your table. If A (1) is not in your table, change it to whatever letter)
Set r = WS.Range("A1:C" & L) 'Adjust it to the columns of your data
Dim Table As Variant 'Table is 1-based
Table = r.Value
'Quit Excel
WB.Close
ExcelApp.Quit

'Outlook goes go here

End Sub