outlook如何用VBA导出收件人邮箱&发件日期

远方未来

求助：如主题-outlook客户端或者网页版office 365邮件，如何导出excel-收件邮箱-收件日期。


背景：
1、这个邮箱使用系统分发邮件，系统能导出发送邮件记录excel明细，每天300封；
2、因邮箱内存99G，此前邮箱故障自动删除了一些邮件，现已通过技术恢复了大部分，邮件总数4w封。

问题：需要查找比对邮件缺失，缺失邮件一般有抄送，通过联系抄送人员获取。

途径：已有系统导出发送明细-每天每个发件人邮箱一般只发一次，想通过outlook客户端用VBA或者其他方式，提取发件邮箱、发件日期，进行自动比对，看看哪些缺失。

难点：不会VBA，如何实现已发送文件夹（有子文件夹按月份建立）邮件，历遍，得到一个excel或txt文件，有发件邮箱、发件日期，如能提取发件主题等那是锦上添花。

约定的童话

Sub ExportEmailData()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim olItem As Object
    Dim i As Integer
    Dim ws As Worksheet
   
    ' 创建一个新的工作表
    Set ws = ThisWorkbook.Sheets.Add
   
    ' 添加标题行
    ws.Cells(1, 1).Value = "收件人邮箱"
    ws.Cells(1, 2).Value = "发件日期"
   
    ' 初始化Outlook应用程序和命名空间
    Set olApp = New Outlook.Application
    Set olNamespace = olApp.GetNamespace("MAPI")
   
    ' 获取收件箱文件夹
    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)
   
    ' 遍历收件箱中的邮件
    i = 2 ' 从第二行开始写入数据
    For Each olItem In olFolder.Items
        If TypeOf olItem Is Outlook.MailItem Then
            ' 写入收件人邮箱和发件日期到工作表
            ws.Cells(i, 1).Value = olItem.To
            ws.Cells(i, 2).Value = olItem.ReceivedTime
            i = i + 1
        End If
    Next olItem
   
    ' 释放对象
    Set olItem = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub

远方未来

约定的童话 发表于 2023-8-26 19:52
Sub ExportEmailData()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namesp ...

谢谢回复。给大佬反馈下：
1、以上代码在excel、outlook均无法使用，F5运行后提示：“编译错误，用户定义类型未定义”；
2、主要是需要输出《已发送邮件》的邮箱、发件日期、主题（锦上添花），是已发送邮件缺失较多（既往超内存自动删除）。

我算是VBA小白，不太看得懂代码，但是代码应该输出excel，应该要有一个路径，没有看到编码有路径。

远方未来

远方未来 发表于 2023-8-28 09:50
谢谢回复。给大佬反馈下：
1、以上代码在excel、outlook均无法使用，F5运行后提示：“编译错误，用户定 ...

这里路径是只输出文件保存的地址的意思，不知道我的理解是否准确

约定的童话

远方未来 发表于 2023-8-28 09:50
谢谢回复。给大佬反馈下：
1、以上代码在excel、outlook均无法使用，F5运行后提示：“编译错误，用户定 ...

引用outlook对象了没？

远方未来

还是不行的，outlook和excel能勾的我都勾选了