2 Gyors módszer több Outlook e-mail mellékletlistájának kinyomtatására

Néha ki kell bontania és ki kell nyomtatnia több e-mail mellékletlistáját. Ebben a cikkben 2 módszert tanítunk meg ennek megszerzésére.

Ha több e-mailt kap több melléklettel a referenciákhoz, érdemes lehet kinyomtatni ezeket a mellékletek neveit. Ebben a helyzetben hogyan szerezheti be ömlesztve? A továbbiakban megtanítunk Önnek 2 módot arra, hogy gyorsan kinyomtassa a több Outlook e-mail mellékletlistáját.

1. módszer: Mellékletlista nyomtatása és másolása Rich Text formátumban

1. A legelején nyisson meg egy Outlook e-mailt.
2. Ezután az Üzenet ablakban kattintson a „Műveletek” elemre, és válassza az „Üzenet szerkesztése” lehetőséget.
3. Ezután lépjen a „Szöveg formázása” fülre, ahol válassza ki a „Rich Text” formátumot.
4. Egyszerre láthatja, hogy az e-mail mellékletek átkerültek a törzsbe.
5. Ezután kattintson a „Válasz” gombra az „Üzenet” fül „Válasz” csoportjában.
6. A következő levélben a mellékletlista már a törzsben volt, mint az alábbi képernyőképen.
7. Most átmásolhatja a mellékletek listáját egy új e-mailbe.
8. Később ezzel a módszerrel másolja át más e-mailek mellékletlistáját az új levélbe.
9. Végül a szokásos módon kinyomtathatja ezt az új levelet.

2. módszer: Mellékletlisták nyomtatása az Outlook VBA-n keresztül

1. Kezdésként nyomja meg az „Alt + F11” billentyűkombinációt az Outlook VBA szerkesztő megnyitásához.
2. Ezután másolja be a következő VBA-kódot egy modulba.

Sub PrintAttachmentListsOfManyEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objTempMail As Outlook.MailItem
    
    'Get the selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       'Input the attachment lists into a temp mail
       Set objTempMail = Outlook.Application.CreateItem(olMailItem)
 
       For i = 1 To objSelection.Count
           If objSelection(i).Class = olMail Then
              Set objMail = objSelection(i)
              If objMail.Attachments.Count > 0 Then
 
                 objTempMail.Body = objTempMail.Body & vbCr & "-------------------------------------------------------------------------------------------------------------" & vbCr & vbCr & i & ". " & objMail.Subject & vbCr & vbCr & "Attachment List:" & vbCr
 
                 For n = 1 To objMail.Attachments.Count
                     Set objAttachment = objMail.Attachments(n)
                     objTempMail.Body = objTempMail.Body & vbCr & "<<" & objAttachment.FileName & " Size: " & Round(objAttachment.Size / 1024, 1) & " KB>>"
                 Next
              End If
           End If
       Next

       'Print the temp mail
       objTempMail.PrintOut
     End If
End Sub

3. Ezután adja hozzá ezt a makrót a Gyorselérési eszköztárhoz a következő cikkre hivatkozva: "A VBA kód futtatása az Outlookban".
4. Végül próbálja ki ezt a makrót.

• Először válasszon több e-mailt.
• Ezután kattintson a makró gombra a Gyorselérési eszköztárban.
• Ezeknek az e-maileknek a mellékletlistáját azonnal ki kell nyomtatni.

Használja a Tip-top Outlook javítóeszközt

Ha az Outlook fájljainak sérülését észleli, az a legjobb hír, hogy a közelmúltban készült Outlook adatmentéséről van szó. Lehetővé teszi, hogy megszabaduljon a bonyolult Outlook-fájljavításoktól. De előfordulhat, hogy a biztonsági másolatot nem lehet visszaállítani. Ekkor egy kiválóbb és professzionálisabb javítóeszközhöz kell folyamodnia, mint pl DataNumen Outlook Repair. Meg tudja javítani korrupt PST perceken belül.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve javítás mdf és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com