Ինչպե՞ս գտնել Outlook- ում ընտրված փոստի մեջ կցորդների տեղեկատվության ցուցակը:

Ստացված նամակների համար, որոնք կցված են կցորդներով, երբեմն կարող է անհրաժեշտ լինել իմանալ հավելվածների մանրամասն տեղեկատվությունը, ինչպիսիք են ցուցադրման անունը, ֆայլի անունը և այլն: Իրականում, VBA կոդը կարող է օգնել ձեզ հեշտությամբ ստանալ Outlook- ում ընթացիկ ընտրված էլփոստի կցորդների տեղեկատվության ցուցակը: Լրացուցիչ մանրամասների համար զննեք ստորև ներկայացված ձեռնարկը:

Outlook- ում ստացեք կցորդների տեղեկատվության ցուցակը ընտրված փոստում

Outlook- ում ստացեք կցորդների տեղեկատվության ցուցակը ընտրված փոստում

1. Ընտրեք կցորդներով էլփոստը, որը ցանկանում եք ստանալ դրանց մասին տեղեկատվությունը:

2. Սեղմեք ալտ + F11 ստեղնաշարի ստեղները `բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

3. Դրանից հետո կրկնակի կտտացրեք այն Project1 > Microsoft Outlook օբյեկտ > ԱյսOutlookSession- ը բացելու համար 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. Հիմա ա Մակրո երկխոսության պատուհանը հայտնվում է, սեղմեք Վազում կոճակը:

7. Սեղմելուց հետո Վազում կոճակը Մակրո երկխոսության տուփ, կստեղծվի հաղորդագրության նոր պատուհան `էլփոստի մարմնի ներսում նշված ընտրված էլփոստի բոլոր կցորդների վերաբերյալ տեղեկություններով: Տեսեք,

ՆշումԱյս VBA կոդը կարող է կիրառվել Outlook 2007, 2010 և 2013 թվականների համար

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ Pro: Խմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

Կարդալ ավելին       Անվճար ներբեռնում      Ձեռք բերել