Мне нужна помощь в кодировании VBA, чтобы узнать, могу ли я загружать вложения электронной почты из электронных писем Outlook и сохранять их в разных папках на моем ПК.

Question

Я установил код для загрузки вложений электронной почты на мой компьютер. но теперь я застрял в точке, где я хочу загрузить определенные вложения электронной почты в определенных местах на моем ПК

Answer 1

Это должно помочь вам начать. Поместите это в модуль в Outlook. Вам нужно будет изменить информацию о папке и т. Д.

Public Sub SaveAttachmentsToDisk()

    Dim currentExplorer As Explorer
    Dim currentSelection As Selection
    Dim ndxItem As Outlook.MailItem
    Dim attachFile As Outlook.Attachment

    Const SaveFolder As String = "C:\OutlookAttachments\"

    Set currentExplorer = Application.ActiveExplorer
    Set currentSelection = currentExplorer.Selection

    If currentSelection.Count <= 0 Then Exit Sub
    If TypeName(currentSelection.Item(1)) <> "MailItem" Then Exit Sub

    For Each ndxItem In currentSelection
        Debug.Print ndxItem.Body
        For Each attachFile In ndxItem.Attachments
            If VBA.Right$(attachFile.DisplayName, 3) <> "jpg" And VBA.Right$(attachFile.DisplayName, 3) <> "png" Then
                attachFile.SaveAsFile SaveFolder & attachFile.FileName
            End If
        Next attachFile
    Next ndxItem

End Sub