搬运代码遇到2个问题请教大佬..........

106368319

想实现的功能，遍历OUTLOOK收件箱，把所有邮件保存为.msg格式。
代码如下有2个问题，
1.运行后只能保存256封邮件就停止了，而收件箱里实际上有1万多封邮件。



2.收件箱里有会议邀请的邮件，这种邮件默认就没法保存。所以遇到会议邮件代码就停止。需要大神帮忙增加一个判断，只有类型为 mailitem 的时候才另存为.msg格式。

Sub test2()
    Dim outlookItem As Object
    Dim outlookMail As MailItem
    Dim outlookFldr As Folder
    Dim outlookName As Namespace
    Dim oLoolAtt As Attachment
    Dim objItem As Object
    Dim strPath As String
    Dim strFilename As String
    Set outlookName = Application.GetNamespace("MAPI")
    Set outlookFldr = outlookName.GetDefaultFolder(olFolderInbox)

    On Error Resume Next
    For Each outlookMail In outlookFldr.Items

        strPath = "C:\下载\msgMails\"
        strFilename = DateToString(outlookMail.ReceivedTime) & "_" & Int(100 + (999 - 100 + 1) * Rnd)
        outlookMail.SaveAs strPath & strFilename & ".msg", olMSGUnicode
    Next
End Sub

Function DateToString(d As Date) As String
Dim s As String
s = Format([d], "yyyymmddhhnnss")
DateToString = s
End Function

求大神帮忙，不胜感激！

Learner2022

你储存的位置错了啊 你那个是数组的维度 就类似于excel的列一样 只支持256列 你应该存在arr的第一个位置里 也就是excel的行里面

Learner2022

就像这样

106368319

Learner2022 发表于 2022-6-1 10:40
就像这样

谢谢大佬，似懂非懂。