Question

我创建了宏来过滤具有给定编号的Outlook电子邮件，然后检查是否有任何电子邮件计数（如果是），则检查： -电子邮件主题->电子邮件正文->电子邮件发件人如果一切正常，则返回该电子邮件已经发送。

可悲的是，由于if语句我的宏运行得非常慢，有什么方法可以加快它的速度吗？

没有其他方法可以进行过滤，因为此自动电子邮件每天发送大约65k的邮件。在Outlook帐户上，我有2封电子邮件，这就是为什么必须选择它我已经通过删除不需要的if语句使我的代码更快了-仍然可能会删除检查电子邮件发件人的最后一条语句，但首先需要删除所有不可靠的电子邮件


Dim last_number As Long
    last_number = ThisWorkbook.Worksheets(2).Cells(Rows.Count, 2).End(xlUp).Row 'last number to check


Set Ns = myOlApp.GetNamespace("MAPI")
Set olSharedName = Ns.CreateRecipient("e-mail@adress.pl") 'pointing e-mail adress 
Set Folder = Ns.GetSharedDefaultFolder(olSharedName, olFolderInbox) 

Set numery = ThisWorkbook().Sheets(2).Range(Cells(2, 2), Cells(last_number, 2)) 'range of numbers to check


For Each number In numery

    textToFind = number
    strFilter = "@SQL=" & Chr(34) & "urn:schemas:httpmail:textdescription" & Chr(34) & " like '%" & textToFind & "%'" 'creating text to filter

    Set filteredItems = Folder.Items.Restrict(strFilter) 'filtering by number

If filteredItems.Count = 0 Then

        number.Offset(0, 7) = "No"
Else
    x = 0
    For Each OutMail In filteredItems
        number.Offset(0, 8 + x) = OutMail.Subject
        x = x + 1
            If InStr(1, OutMail.Subject, "TEXT", vbTextCompare) <> 0 Then 'check if subject has desired "text" in it
                     If InStr(1, OutMail.Body, numer, vbTextCompare) <> 0 Then 'Check if e-mail has desired number in it
                If InStr(1, OutMail.Sender, "E-mail sender", vbTextCompare) <> 0 Then 'Check if e-mail sender is correct = this will be probably deleted after cleaning of this inbox
                number.Offset(0, 7) = "Tak"
                GoTo new_number
                End If
            End If
        End If
    Next OutMail
    number.Offset(0, 7) = "There were e-mail but without correct topic" ' information that there were e-mail but not with correct subject
End If
new_number:
Next number

感谢帮助。

Answer 1

使用Restrict方法应用过滤器非常有效。但是，如果以后有多个条件，则不能在消息正文（在示例代码中，由其DAV命名空间引用的Body属性）中搜索具有特定关键字的项目。我建议将它们添加到过滤器字符串中，并在以后不使用大量If语句的情况下精确搜索此类项目。例如：

strFilter = "@SQL=" & Chr(34) & "urn:schemas:httpmail:textdescription" & Chr(34) & " like '%" & textToFind & "%' AND " & Chr(34) & "urn:schemas:httpmail:subject" & Chr(34) & " like '%TEXT%'"

您可以在以下文章中详细了解Find / FindNext和Restrict方法：

此外，您可能会发现Application类的AdvancedSearch方法，它具有以下优点：

搜索是在另一个线程中执行的。您不需要手动运行另一个线程，因为AdvancedSearch方法会在后台自动运行它。
可以在任何位置（即超出某个文件夹的范围）搜索任何项目类型：邮件，约会，日历，便笺等。可以将Restrict和Find / FindNext方法应用于特定的Items集合（请参阅Outlook中Folder类的Items属性）。
完全支持DASL查询（自定义属性也可用于搜索）。您可以在MSDN的Filtering文章中了解有关此内容的更多信息。为了提高搜索性能，如果为商店启用了“即时搜索”，则可以使用“即时搜索”关键字（请参阅Store类的IsInstantSearchEnabled属性）。
您可以随时使用Search类的Stop方法停止搜索过程。

有关更多信息，请参见Advanced search in Outlook programmatically: C#, VB.NET。

“如果”语句放慢了前景VBA宏

1 个答案: