Письма, классифицированные по имени вложения - PullRequest
Новая
       24

Письма, классифицированные по имени вложения

0 голосов
/ 13 мая 2019

Я бы хотел, чтобы при запуске макроса я классифицировал электронные письма, содержащие вложения с определенным именем.

Исходя из предыдущего обсуждения, я предполагаю, что часть кода будет 

ElesIf InStr(1, olItem.Attachments(0).DisplayName, "example", vbTextCompare) > 0 Then olItem.Categories = "CAT1"

Iхотел бы включить его в мой текущий макрос: 

Public Sub autocategories()
    Dim olItem As Object
    For Each olItem In Application.ActiveExplorer.Selection
        If InStr(1, olItem.Subject, "=SUB1=", vbTextCompare) > 0 Then
            olItem.Categories = "SUB1"
        ElseIf InStr(1, olItem.Subject, "=SUB2=", vbTextCompare) > 0 Then
            olItem.Categories = "SUB2"
        ElseIf InStr(1, olItem.Sender, "SEN1", vbTextCompare) > 0 Then
            olItem.Categories = "SEN1"
        ElseIf InStr(1, olItem.Sender, "SEN2", vbTextCompare) > 0 Then
            olItem.Categories = "SEN2"
        ElseIf InStr(1, olItem.Body, "BOD1", vbTextCompare) > 0 Then
            olItem.Categories = "BOD1"
        ElseIf InStr(1, olItem.Body, "BOD2", vbTextCompare) > 0 Then
            olItem.Categories = "BOD2"
        End If
        olItem.Save
    Next olItem
    Set olItem = Nothing
End Sub

Цель состоит в том, чтобы улучшить способ назначения электронных писем, которые мы получаем ежедневно.

...