来自Outlook的电子邮件，主题中包含Excel单元格值

1 回答

• 1

  见下面的例子

  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
  

  回复于 2024-04-29T16:55:11+08:00