Kako pri sestavljanju e-pošte v Outlooku našteti vsa imena prilog v telo sporočila?

Ali obstajajo dobri načini, da pri sestavljanju e-pošte v Outlooku vstavimo vsa imena prilog v telo sporočila? V tem članku bom govoril o tem, kako rešiti to nalogo v Outlooku.

Pri sestavljanju e-pošte s kodo VBA navedite vsa imena prilog v telo sporočila

Pri sestavljanju e-pošte s preprosto funkcijo navedite vsa imena prilog v telo sporočila

Pri sestavljanju e-pošte s kodo VBA navedite vsa imena prilog v telo sporočila

Za dokončanje te naloge sledite naslednjim korakom:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession Iz Projekt1 (VbaProject.OTM) , da odprete način, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.

Koda VBA: V ime sporočila navedite vsa imena prilog:

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. Nato nadaljujte s klikom Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul, glejte posnetek zaslona:

Koda VBA: V ime sporočila navedite vsa imena prilog:

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. In nato kliknite Orodja > Reference v Microsoft Visual Basic za aplikacije okno, v izpuščenem Reference-Projekt1 pogovorno okno, preverite Knjižnica predmetov Microsoft Word možnost iz Razpoložljive reference seznam, glej posnetek zaslona:

5. Kliknite OK za izhod iz pogovornega okna, dodajte gumb makra v Orodna vrstica za hitri dostop. V novem Sporočilo okno, izberite Več ukazov Iz Prilagodite orodno vrstico za hitri dostop spustni meni, glej posnetek zaslona:

6. v Outlook Možnosti v pogovornem oknu izvedite naslednje postopke:

(1.) Izberite Makri Iz Izberite ukaze iz spustni seznam;

(2.) Kliknite ime makra, ki ste ga pravkar vstavili;

(3.) In nato kliknite Dodaj gumb za dodajanje makra v Prilagodite orodno vrstico za hitri dostop.

7. Nato kliknite OK da zaprete pogovorno okno, zdaj je gumb makra vstavljen v Orodna vrstica za hitri dostop, glej posnetek zaslona:

8. Zdaj, ko ustvarite novo sporočilo in kliknete gumb makra, bodo imena prilog vstavljena nad telo sporočila, kot je prikazano na naslednjem posnetku zaslona:

Pri sestavljanju e-pošte s preprosto funkcijo navedite vsa imena prilog v telo sporočila

Morda je zgornja koda nekoliko težja za uporabo, če jo imate Kutools for Outlook, Z njegovim Kopiraj imena funkcijo, lahko hitro kopirate imena prilog sporočila in jih prilepite kamor koli želite.

Po namestitvi Kutools for Outlook, naredite tako:

1. Najprej ustvarite novo e-pošto, ki jo potrebujete, in nato kliknite Kutools > Kopiraj imena v novem Sporočilo okno, glej posnetek zaslona:

2. Nato se prikaže okno s pozivom, ki vas opomni, da so bila imena prilog kopirana v odložišče, glejte posnetek zaslona:

3. Zdaj morate samo pritisniti Ctrl + V tipki skupaj, da prilepite imena prilog v telo sporočila, ki ga potrebujete, glejte posnetek zaslona:

Več relativnih člankov: