Як отримати інформацію про вкладення у вибраній пошті в Outlook?

Для отриманих електронних листів, що додаються із вкладеннями, іноді вам може знадобитися детальна інформація про вкладення, наприклад, відображуване ім'я, ім'я файлу тощо. Насправді, код VBA може допомогти вам легко отримати список інформації про вкладення в поточній вибраній електронній пошті в Outlook. Будь ласка, ознайомтеся з наведеним нижче посібником для отримання детальної інформації.

Отримати список інформації про вкладення у вибраній пошті в Outlook

Отримати список інформації про вкладення у вибраній пошті в Outlook

1. Виберіть електронний лист із вкладеннями, в яких ви хочете отримати інформацію про них.

2 Натисніть кнопку інший + F11 клавіші на клавіатурі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. Потім двічі клацніть на Project1 > Об'єкт Microsoft Outlook > ThisOutlookSession відкрити Project1 - ThisOutlookSession вікно. Дивіться знімок екрана:

4. Потім скопіюйте та вставте наведений нижче код VBA у вікно Project1 - ThisOutlookSession.

Код VBA: отримати список інформації про вкладення

Option Explicit
Public Sub GetAttachmentList()
    Dim selItem As Object
    Dim aMail As MailItem
    Dim aAttach As attachment
    Dim Report As String
    
    For Each selItem In Application.ActiveExplorer.Selection
        If selItem.Class = olMail Then
            Set aMail = selItem
            For Each aAttach In aMail.Attachments
                Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
                Report = Report & GetAttachmentInfo(aAttach)
            Next
            Call CreateReportEmail("Attachment Report", Report)
        End If
    Next
End Sub
 
Public Function GetAttachmentInfo(attachment As attachment)
    Dim Report
    GetAttachmentInfo = ""
    Report = Report & "Index: " & attachment.Index & vbCrLf
    Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
    Report = Report & "File Name: " & attachment.FileName & vbCrLf
    Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
    Report = Report & "Path Name: " & attachment.PathName & vbCrLf
    Report = Report & "Position: " & attachment.Position & vbCrLf
    Report = Report & "Size: " & attachment.Size & vbCrLf
    Report = Report & "Type: " & attachment.Type & vbCrLf
    
    GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub 

5. прес F5 клавішу на клавіатурі для запуску коду VBA.

6. Тепер a Макрос з'явиться діалогове вікно, клацніть на прогін кнопки.

7 Після натискання кнопки прогін кнопка в Макрос У діалоговому вікні буде створено нове вікно повідомлення з усією інформацією про вкладення вибраної електронної пошти, переліченою всередині тіла електронної пошти. Дивіться знімок екрана:

примітки: Цей код VBA можна застосувати до Outlook 2007, 2010 та 2013

---

Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення Pro: Пакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

👩🏼‍🤝‍👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів  /  Розділіть групу контактів на окремі групи  /  Видаліть нагадування про день народження ...

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

Детальніше       Безкоштовне завантаження      Купити