此处添加两个前期绑定，
Microsoft Outlook 16.0 Object Library
Microsoft Word 16.0 Object Library
此处为什么要对Word进行前期绑定引用呢？因为邮件的正文其实是一个Word文档页面。我们可以像写入Word那样进行书写邮件，如果你会Word VBA，那么今天这个问题就很简单啦。
Sub InsertTableToEmailBody2()Application.ScreenUpdating = FalseDim olApp As Outlook.ApplicationDim olMail As Outlook.MailItemDim olInspector As Outlook.InspectorDim olDocument As Word.DocumentDim olRange As Word.RangeDim olShape As Word.InlineShapeSet olApp = New Outlook.ApplicationSet olMail = olApp.CreateItem(olMailItem)Range("A1").CurrentRegion.CopySet olInspector = olMail.GetInspectorSet olDocument = olInspector.WordEditorSet olRange = olDocument.ContentolMail.DisplayolDocument.Paragraphs(1).Range.SelectWith olDocument.Application.Selection.Text = "Hello!!" & Chr(10) & "以下是一个Excel复制的表格" & Chr(10).EndKey.Paste.EndKey.Text = Chr(10) & "以上表格为复制生成，保留了原格式"End WithWith olMail.To = "jaresfzz@163.com".Subject = "这是一封带表格的测试邮件".SendEnd WithApplication.ScreenUpdating = TrueEnd Sub
第9行：创建Outlook APP对象
第10行：创建邮件
第11行：复制活动工作表A1单元格所在区域
第12行：获取邮件检查器
第13行：获取Word编辑器
第15行：显示邮件
第16行：选中第一段
第17-23行：将文字写入邮件正文，表格粘贴到邮件正文
第24-28行：设置收件人-主题-发送邮件
好了，本期教程就到这里啦，走过路过的点个关注分享一下吧，谢谢啦
