通過 Excel VBA 從當前查看的電子郵件中提取數據

Question

我是 Excel VBA 新手，仍在努力理解 Excel VBA。 我正在努力讓我的團隊成員的生活更輕松。

感謝有人能指出我如何從當前查看的電子郵件中檢索文本並將信息粘貼到 Excel 電子表格上的方向。

電子郵件看起來像這樣。

Name: Tan AK
Contact number: 65-12223456

====================================== 想提取出細節

例如

Cell A1 should display the first sentence
Cell A2 should display the second sentence.

感謝有人可以幫助我。

Answer 1

像您這樣的一般問題在這里不受歡迎。 下面我提供的信息應該可以幫助您入門。 如果您遇到困難，請嘗試以下問題：

我想達到 A，但下面的六條語句做的是 B。我看不出我做錯了什么。

關注單個問題並展示您嘗試過的內容的問題通常會很快得到解答。

---

Outlook 安全系統使 Excel 宏從 Outlook 讀取比將 Outlook 宏寫入 Excel 更加困難。

另一方面，分發 Excel 宏要容易得多，因為您可以通過電子郵件將工作簿發送給您的每個朋友，他們可以立即使用它。 使用 Outlook 宏，您必須導出模塊，然后每個朋友都必須導入它。

我建議您從 Outlook 宏開始。 當您已經了解了足夠多的內容以使該宏滿足您的需求時，您可能會開始探索從 Outlook 閱讀的問題。

---

這個小小的 Outlook 宏顯示了如何訪問選定的電子郵件：

Option Explicit
Public Sub DemoExplorer()

  Dim Exp As Outlook.Explorer
  Dim ItemCrnt As MailItem
  Dim NumSelected As Long

  Set Exp = Outlook.Application.ActiveExplorer

  NumSelected = Exp.Selection.Count

  If NumSelected = 0 Then
    Debug.Print "No emails selected"
  Else
    For Each ItemCrnt In Exp.Selection
      With ItemCrnt
        Debug.Print "From " & .SenderName & " Subject " & .Subject
      End With
    Next
  End If

End Sub

---

下面答案中的 Outlook 宏創建了一個 Excel 工作簿，並將收件箱中每封電子郵件的詳細信息導出到其中。 這演示了您將需要的許多技術。 也許更重要的是，它顯示了電子郵件的文本和 html 正文對於 VBA 宏的外觀。 這將幫助您將正文拆分為句子。

如何使用 VBA 或宏將 Outlook 郵件消息復制到 Excel 中