VBAでOutlookのメール本文を抽出するには

2年 ago
陽, 向宇
1 minute

VBAプログラミングを活用すれば、Outlookメールの内容を抽出して活用することができます。以下にそのためのコード例を提示します。

Sub ExtractEmailContent()
Dim OutlookApp As Object
Dim OutlookNamespace As Object
Dim Folder As Object
Dim MailItem As Object
Dim i As Integer
' 创建Outlook应用程序对象
Set OutlookApp = CreateObject("Outlook.Application")
' 获取Outlook命名空间
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
' 指定要提取的邮件文件夹
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox)
' 遍历邮件文件夹中的所有邮件
For i = 1 To Folder.Items.Count
' 获取每个邮件项
Set MailItem = Folder.Items(i)
' 提取邮件内容并输出到Immediate窗口
Debug.Print "邮件主题: " & MailItem.Subject
Debug.Print "发件人: " & MailItem.SenderName
Debug.Print "收件人: " & MailItem.To
Debug.Print "发送时间: " & MailItem.SentOn
Debug.Print "邮件正文: " & MailItem.Body
' 可以根据需要提取其他邮件属性，例如附件等
' 释放邮件项对象
Set MailItem = Nothing
Next i
' 释放Outlook对象
Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing
End Sub

このコードを使用するには、VBAエディター上のモジュールにこのコードを置き、ExtractEmailContentマクロを実行します。すると、このコードは既定の受信トレイ内にあるすべてのメールを順番にたどり、そのメールの件名、送信者、受信者、送信日時、およびメール本文をイミディエイトウィンドウに出力します。必要に応じて、このコードを変更して別のメールの属性を抽出したり、内容を別の場所に書き出したりできます。

bannerAds