-不显示所有项目excelvbaoutlook-

Excel VBA Outlook电邮项目-不显示所有项目

excelvbaoutlook

Excel VBA Outlook电邮项目-不显示所有项目,excel,vba,outlook,populate,mailitem,Excel,Vba,Outlook,Populate,Mailitem,下面的代码难以接收收件箱中的所有电子邮件我的列表框中的第一项是今天和2014年4月22日的一封电子邮件——尽管我的邮箱包含的内容远不止这种Sub CheckEmail()On Error Resume NextDim outApp As Outlook.ApplicationDim outNs As Outlook.NamespaceDim outFldr As Outlook.MAPIFolderDim outEmail As Outlook.MailItemDim p

下面的代码难以接收收件箱中的所有电子邮件

我的列表框中的第一项是今天和2014年4月22日的一封电子邮件——尽管我的邮箱包含的内容远不止这种

Sub CheckEmail()
On Error Resume Next
Dim outApp As Outlook.Application
Dim outNs As Outlook.Namespace

Dim outFldr As Outlook.MAPIFolder
Dim outEmail As Outlook.MailItem
Dim p As Integer
p = 0
Set outApp = CreateObject("Outlook.Application")
Set outNs = outApp.GetNamespace("MAPI")
Set outFldr = outNs.GetDefaultFolder(olFolderInbox)

Dim searcht As String
'find search string
' do search
        For Each outEmail In outFldr.Items

            With fmShowsInboxEmails.ListBox1
                .AddItem outEmail.EntryID
                .List(p, 1) = outEmail.ReceivedTime
                .List(p, 2) = outEmail.Subject
                .List(p, 3) = outEmail.SenderEmailAddress
                .List(p, 4) = outEmail.Attachments.Count
            End With
            p = p + 1

        Next outEmail
On Error GoTo 0
Set outApp = Nothing
Set outNs = Nothing
Set outFldr = Nothing
Set outEmail = Nothing

fmShowsInboxEmails.Show
End Sub

“下一封电邮的类型不匹配”

收件箱中的项目毋须是短信项目

一旦您将电邮作为变体，在添加到列表框之前，请先测试outEmail是否是短信项。

我觉得Outlook只统计脱机文件夹中本地储存的电邮-因此储存在服务器上的电邮不会成为Outpldr的一部分。邮件

您是否注意到它没有列举的电邮的任何具体信息？我注意不到！有些电邮会在明天和以后列举每封电邮，直到最后一封电邮停止。一个列表框只能容纳这么多电邮，65534封。返回了多少封？我在家里设置了我的工作交换电子邮件，大约是在列举第一封电子邮件的时间。明显的调试是在错误恢复下一次时删掉你的

。使用它几乎没有什么好的理由，特别是当您试图调试函数输出中的特性时。