Как да получа информация за списък с прикачени файлове в избрана поща в Outlook?

За получените имейли, които са прикачени с прикачени файлове, понякога може да се наложи да знаете подробната информация за прикачените файлове, като показвано име, име на файл и т.н. Всъщност VBA кодът може да ви помогне лесно да получите информацията за списъка с прикачени файлове в текущия избран имейл в Outlook. Моля, прегледайте урока по-долу за повече подробности.

Вземете списък с информация за прикачени файлове в избрана поща в Outlook

Вземете списък с информация за прикачени файлове в избрана поща в Outlook

1. Изберете имейла с прикачени файлове, за който искате да получите информация.

2. Натисни Друг + F11 клавиши на клавиатурата, за да отворите Microsoft Visual Basic за приложения прозорец.

3. След това щракнете двукратно върху Project1 > Обект на Microsoft Outlook > ThisOutlookSession за да отворите Проект1 – 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: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...

📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP)  /  График за изпращане на имейли  /  Автоматично CC/BCC по правила при изпращане на имейл  /  Автоматично пренасочване (разширени правила)   /  Автоматично добавяне на поздрав   /  Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...

📨 Управление на Email: Лесно извикване на имейли  /  Блокиране на измамни имейли по теми и други  /  Изтриване на дублирани имейли  /  подробно търсене  /  Консолидиране на папки ...

📁 Прикачени файлове Pro: Пакетно запазване  /  Партидно отделяне  /  Партиден компрес  /  Автоматично запазване   /  Автоматично отделяне  /  Автоматично компресиране ...

🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони   /  Увеличете продуктивността на Outlook с изгледи с раздели  /  Минимизирайте Outlook, вместо да затваряте ...

???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове  /   Антифишинг имейли  /  🕘Показване на часовата зона на подателя ...

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

Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.

Вижте повече       Безплатно сваляне      покупка