从Outlook电子邮件中删除电子邮件标题

Question

我有以下代码将Outlook邮件项目提取到电子表格中。我有两个问题：

1. 我想提取电子邮件的正文，Excel处理该代码需要花费很长时间。有更快的方法吗？

2. 是否有一种方法可以清除电子邮件标题，即电子邮件实际正文开始之前的内容。

   设置OutlookApp =新的Outlook.Application     设置OutlookNamespace = OutlookApp.GetNamespace（“ MAPI”）     设置文件夹= OutlookNamespace.GetDefaultFolder（olFolderInbox）.Folders（“ Test”）

   i = 3
   MsgBox "Click OK to begin extracting emails", vbOKCancel
   For Each itm In Folder.Items
       DoEvents
       If TypeOf itm Is MailItem Then
           Set olMailItem = itm
           ActiveSheet.Cells(i, "A") = olMailItem.SenderName
           ActiveSheet.Cells(i, "B") = olMailItem.Subject
           ActiveSheet.Cells(i, "C") = olMailItem.CreationTime
       end if
    next