Question

我目前正在处理我在这里找到的VBA代码。不幸的是，我坚持使用着名的＆＃34;用户定义的未定义的错误消息＆＃34;

Function ListFolders(MyFolder As Outlook.MAPIFolder, Level As Integer, Output As Range) As Range

我通过＆＃34;用户定义的未定义的错误消息＆＃34;来坚持上面的直播，我试图处理最常见的错误，但一切似乎都没问题。在下面找到完整的功能。

    Dim olFolder As Outlook.MAPIFolder

    Dim olItem As Outlook.MailItem

    Dim lngCol As Long



    For Each olFolder In MyFolder.Folders

        lngCol = ((Level - 1) * 8) + 1

        Output.Offset(0, lngCol) = olFolder.Name

        Set Output = Output.Offset(1)
If olFolder.DefaultItemType = olMailItem Then

            For Each olItem In olFolder.Items

                If olItem.Class = olMail Then

                    With Output

                        .Offset(0, lngCol + 1) = olItem.SenderName ' Sender

                        .Offset(0, lngCol + 2) = olItem.Subject ' Subject

                        .Offset(0, lngCol + 3) = olItem.ReceivedTime ' Received

                        .Offset(0, lngCol + 4) = olItem.ReceivedByName ' Recepient

                        .Offset(0, lngCol + 5) = olItem.UnRead ' Unread?

                        .Offset(0, lngCol + 6) = olItem.ReplyRecipientNames '

                        .Offset(0, lngCol + 7) = olItem.SentOn



                    End With

                    Set Output = Output.Offset(1)

                End If

            Next

        End If



End Function

用户定义的类型未定义错误消息 - 用于提取电子邮件的VBA代码

0 个答案: