帮我用VBA写一个爬取邮件内容的代码

好的，我可以回答这个问题。以下是一个简单的 VBA 代码示例，可以用来爬取邮件内容：

Sub GetEmailContent()
Dim olApp As Outlook.Application
Dim olNamespace As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim olMail As Outlook.MailItem
Dim i As Integer

'创建 Outlook 应用程序对象
Set olApp = New Outlook.Application

'获取 Outlook 命名空间对象
Set olNamespace = olApp.GetNamespace("MAPI")

'选择收件箱文件夹
Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)

'遍历收件箱中的邮件
For i = 1 To olFolder.Items.Count
Set olMail = olFolder.Items(i)

'判断邮件是否为邮件项
If TypeOf olMail Is MailItem Then
'输出邮件主题和内容
Debug.Print "主题：" & olMail.Subject
Debug.Print "内容：" & olMail.Body
End If
Next i

'释放对象
Set olMail = Nothing
Set olFolder = Nothing
Set olNamespace = Nothing
Set olApp = Nothing
End Sub

希望这个代码对你有帮助！