电子邮件从Outlook与主题的Excel单元格值

我如何发送电子邮件从Outlook中包含Excel文件中的主题的单元格值?

我发现每一个可能的代码发送电子邮件从Excel中,但我真的想打开电子邮件,并从Excel文件中具有单元格值。

而这一切都是从Outlook而不是从Excel完成的。 谢谢。

见下面的例子

Option Explicit Sub Cell_Value_in_Subject() Dim olItem As Outlook.MailItem Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSht As Excel.Worksheet Dim sPath As String sPath = "C:\Temp\Book1.xlsx" '<- Update ' // Excel Set xlApp = CreateObject("Excel.Application") ' // Workbook Set xlBook = xlApp.Workbooks.Open(sPath) ' // Sheet Set xlSht = xlBook.Sheets("Sheet1") Debug.Print xlSht.Range("A1") '<- Print Value in immediate window ' // Create e-mail Item Set olItem = Application.CreateItem(olMailItem) With olItem .To = "Om3r@Email.com" .Subject = xlSht.Range("A1") .HTMLBody = xlSht.Range("A2") & " is Cell Value" .Display End With ' // Close xlBook.Close SaveChanges:=True ' // Quit xlApp.Quit '// CleanUp Set xlApp = Nothing Set xlBook = Nothing Set xlSht = Nothing Set olItem = Nothing End Sub