Question

我正在尝试从特定文件夹中的未读电子邮件中提取信息，并将其粘贴到结构化的excel文件中。我需要主题，正文，发件人，接收时间，对话ID和附件名称。我没有使用VBA宏的经验，所以请帮助:)。重要提示：它必须是一个Outlook宏，而不是一个Excel宏。

我有以下代码，但它给我错误

“运行时错误'9'：下标超出范围。

set pipeline [open "| zcat foo.gz"]
set data [read $pipeline]
close $pipeline

Answer 1

根据测试代码的方法，您可以尝试添加row = row+1并使用此方法获取“删除项目”：

Set olNs = Application.GetNamespace("MAPI")
Set DeletedFolder = olNs.GetDefaultFolder(olFolderDeletedItems)
    For Each Item In objFolder.Items
        objExcel.Worksheets("Sheet1").Cells(row, 1).Value = Item.Sender
        objExcel.Worksheets("Sheet1").Cells(row, 2).Value = Item.Subject
        objExcel.Worksheets("Sheet1").Cells(row, 3).Value = Item.ReceivedTime
        objExcel.Worksheets("Sheet1").Cells(row, 4).Value = Item.ConversationID
        objExcel.Worksheets("Sheet1").Cells(row, 5).Value = Item.Body
        row = row + 1
    Next

VBA Outlook宏-在Excel中获取邮件信息

1 个答案: