Question

我需要编写一个Outlook宏，该宏用于保存具有指定标题开头（例如：“ Report ..”）或具有指定发件人的邮件的附件。我尚未在Outlook VBA中进行编程，所以我不知道如何开始。你能帮我吗？

Answer 1

我相信这会满足您的要求。

Sub SetFlagIcon()

Const olFolderInbox = 6

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)

Set colItems = objFolder.Items

For Each objMessage In colItems
If objMessage.SenderEmailAddress = "someone@gmail.com" Then
    intCount = objMessage.Attachments.Count
    If intCount > 0 Then
        For i = 1 To intCount
            objMessage.Attachments.Item(i).SaveAsFile "C:\your_path_here\Desktop\" & _
                objMessage.Attachments.Item(i).FileName
        Next
    End If
End If
Next

End Sub

请参见下面的链接，了解有关此方法的其他一些想法。

https://www.extendoffice.com/documents/outlook/3747-outlook-auto-download-save-attachments-to-folder.html

https://www.pixelchef.net/content/rule-autosave-attachment-outlook

Outlook宏，可保存来自特定人员/以特定标题开头的邮件中的附件

1 个答案: