Hur listar jag alla bifogade namn i meddelandetexten när man skriver e-post i Outlook?

Finns det några bra sätt för oss att infoga alla bifogade namn i meddelandetexten när vi skriver ett e-postmeddelande i Outlook? Den här artikeln kommer jag att prata om hur man löser detta jobb i Outlook.

Lista alla bifogade namn i meddelandetexten när du skriver e-post med VBA-kod

Lista alla bifogade namn i meddelandetexten när du skriver e-post med en enkel funktion

Lista alla bifogade namn i meddelandetexten när du skriver e-post med VBA-kod

Gör med följande steg för att slutföra uppgiften:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession från Project1 (VbaProject.OTM) rutan för att öppna läget och sedan kopiera och klistra in följande kod i den tomma modulen.

VBA-kod: Lista alla bifogade namn i meddelandetexten:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As MailItem
    If Item.Class = olMail Then
        Set xMailItem = Item
        If xMailItem.Attachments.Count > 0 Then
          AddAttachmentNamesToBody
        End If
    End If
    End Sub

3. Fortsätt sedan med att klicka Insert > Modulerna, kopiera och klistra in koden nedan i den öppnade tomma modulen, se skärmdump:

VBA-kod: Lista alla bifogade namn i meddelandetexten:

Public Sub AddAttachmentNamesToBody()
    Dim xMailItem As MailItem
    Dim xAttachment As Attachment
    Dim xFileName As String
   Dim xInspector As Outlook.Inspector
    Dim xDoc As Word.Document
    Dim xWdSelection As Word.Selection
    On Error Resume Next
    Set xMailItem = Outlook.ActiveInspector.CurrentItem
    If xMailItem.Attachments.Count = 0 Then
        Exit Sub
    End If
    xFileName = ""
    For Each xAttachment In xMailItem.Attachments
        If xFileName = "" Then
            xFileName = " <" & xAttachment.FileName & "> "
        Else
            xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
        End If
    Next xAttachment
    Set xInspector = Outlook.Application.ActiveInspector()
    Set xDoc = xInspector.WordEditor
    Set xWdSelection = xDoc.Application.Selection
    xWdSelection.HomeKey Unit:=wdStory
    xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
    Set xMailItem = Nothing
    End Sub

4. Och klicka sedan på verktyg > Referensprojekt i Microsoft Visual Basic för applikationer fönster, i poppade ut Referenser-projekt1 dialogruta, kontrollera Microsoft Word -objektbibliotek alternativ från Tillgängliga referenser listruta, se skärmdump:

5. Klicka OK för att avsluta dialogrutan bör du lägga till makroknappen i Snabbåtkomstverktygsfält. I det nya Meddelande fönster, välj Fler kommandon från Anpassa snabbåtkomstverktygsfältet rullgardinsmeny, se skärmdump:

6. I Outlook-Val dialogrutan, gör följande:

(1.) Välj Makron från Välj kommandon från rullgardinsmeny;

(2.) Klicka på makronamnet som du precis har infogat;

(3.) Och klicka sedan på Lägg till för att lägga till makrot i Anpassa snabbåtkomstverktygsfältet.

7. Klicka sedan OK för att stänga dialogrutan, nu har makroknappen infogats i Snabbåtkomstverktygsfält, se skärmdump:

8. Nu, när du skapar ett nytt meddelande och klickar på makroknappen, kommer bilagornas namn att infogas ovanför meddelandetexten enligt följande skärmdump:

Lista alla bifogade namn i meddelandetexten när du skriver e-post med en enkel funktion

Kan vara ovanstående kod är lite svårt för dig att tillämpa, om du har Kutools för Outlook, med dess Kopiera namn funktionen kan du snabbt kopiera namnen på bilagorna i ett meddelande och klistra in dem var du än behöver.

När du har installerat Kutools för Outlook, gör så här:

1. Skapa först den nya e-postadressen du behöver och klicka sedan Kutools > Kopiera namn i det nya Meddelande fönster, se skärmdump:

2. Och sedan kommer en uppmaningsruta att dyka upp för att påminna dig om att bilagornas namn har kopierats till urklipp, se skärmdump:

3. Nu behöver du bara trycka Ctrl + V tangenterna tillsammans för att klistra in bilagornas namn i meddelandetexten du behöver, se skärmdump:

Fler relativa artiklar:

---

Bästa kontorsproduktivitetsverktyg

Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook

🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...

📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP)  /  Schemalägg Skicka e-post  /  Auto CC/BCC enligt regler när du skickar e-post  /  Automatisk vidarebefordran (avancerade regler)   /  Lägg automatiskt till hälsning   /  Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...

📨 Email Management: Hämta enkelt e-postmeddelanden  /  Blockera bluff-e-postmeddelanden av ämnen och andra  /  Ta bort duplicerade e-postmeddelanden  /  Avancerad Sökning  /  Konsolidera mappar ...

📁 Bilagor Pro: Batch Spara  /  Batch lossa  /  Batchkomprimera  /  Automatisk sparning   /  Auto Lossa  /  Automatisk komprimering ...

🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis   /  Öka din Outlook-produktivitet med flikar  /  Minimera Outlook istället för att stänga ...

👍 Underverk med ett klick: Svara alla med inkommande bilagor  /   E-postmeddelanden mot nätfiske  /  🕘Visa avsändarens tidszon ...

👩🏼‍🤝‍👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden  /  Dela upp en kontaktgrupp till individuella grupper  /  Ta bort påminnelser om födelsedag ...

Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.

Läs mer       Gratis nedladdning      Inköp