首页 文章

从Excel向Outlook电子邮件添加单元格值

提问于
浏览 次
-1

我正在尝试将Excel中某行的某些单元格值添加到Outlook中的电子邮件中 .

Sub Email_Record()
'
' Email_Record Macro
' Email Records
'
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)

olMail.To = "example@email.com"
olMail.Subject = "Subject"
olMail.Body = "Hello," & vbTab & _
  "I could put text in here all day, but I can't get the cell values in here" & _
  vbTab & "Thank you."
olMail.Display

End Sub

从第2行想要添加列a，b和g

样本电子表格

enter image description here

excel vba outlook

1 回答

  • 0

    您需要生成格式良好的HTML字符串，然后将其分配给 HTMLBody 属性 .

    但最简单的解决方案是复制范围并使用Word对象模型将其粘贴到电子邮件中 .

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

    • Body - 表示Outlook项目的明文正文的字符串 .

    • HTMLBody - 表示指定项目的HTML正文的字符串 .

    • Word editor - 正在显示的消息的Microsoft Word文档对象模型 . Inspector 类的 WordEditor 属性从Word对象模型返回 Document 类的实例，您可以使用该实例设置消息正文 . 您可以在Chapter 17: Working with Item Bodies中阅读有关所有这些方法的更多信息 .

    回复于

相关问题