Gå til hovedindhold

Hvordan kopierer man alle vedhæftede filers navne, når man svarer i Outlook?

Når du besvarer en RTF-e-mail (formateret som Rich Format) i Outlook, kopierer den alle vedhæftnings navne og indsættes automatisk i meddelelsesteksten (se skærmbillede nedenfor). Når der besvares en HTML-e-mail i Outlook, mangler vedhæftede filer imidlertid i besvarelsen af ​​e-mail. Her introducerer denne artikel nogle metoder til at kopiere alle vedhæftede navn, når du besvarer e-mails eller direkte i de modtagne e-mails.


Kopier alle vedhæftede filers navne, når du svarer med at ændre HTML til RTF

Hvis vi har konverteret HTML-e-mailen til RTF, før vi svarer, vil alle vedhæftede filers navne blive kopieret til svarmeddelelsen efter at have klikket på Hjem > Svar i Outlook.

1. Dobbeltklik for at åbne den e-mail, hvis vedhæftede filer du skal kopiere, og klik derefter Besked > handlinger > Rediger besked i meddelelsesvinduet. Se skærmbillede:

2. Klik videre Formatér tekst > Rig tekst, og gem derefter og luk e-mailen.

3. Nu vender du tilbage til hovedvisningen. Bliv ved med at vælge e-mailen, og klik Home > Svar.

4. Nu kopieres alle vedhæftede filers navne fra den originale e-mail og indsættes i svarmeddelelsen som vist nedenfor. Skriv venligst svarbeskeden og send den.

Kopier alle vedhæftede filers navne, når du svarer med VBA

Denne metode vil introducere en VBA-makro til at kopiere alle vedhæftede filers navne, når du besvarer en e-mail, og derefter indsætte navnene i meddelelsesteksten i den besvarende e-mail i Outlook.

1. Trykke andre + F11 taster samtidigt for at åbne vinduet Microsoft Visual Basic til applikationer.

2. Udvid projekt 1 i venstre Project Explorer, dobbeltklik for at åbne Denne OutlookSession vindue (se skærmbillede nedenfor), og indsæt derefter nedenstående kode i vinduet.

VBA: Kopier alle vedhæftede filers navn, når du besvarer en e-mail i Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. Klik Værktøjer > Referencer.

4. I åbningsvinduet Referencer – Projekt 1 til Outlook 2016 skal du kontrollere Microsoft Word 16.0-objektbibliotek reference i boksen Tilgængelige referencer, og klik på OK knap. Se skærmbillede:

Bemærk: Vælg venligst Microsoft Word 15.0-objektbibliotek reference, hvis du arbejder med Outlook 2013, eller Microsoft Word 14.0-objektbibliotek reference med Outlook 2010.

5. Gem VBA'en, og luk vinduet Microsoft Visual Basic for Applications.

6. Nu vender du tilbage til hovedgrænsefladen i Outlook. Vælg den e-mail, du vil besvare, og klik Home > Svar or Svar alle.
Bemærk: Hvis navnene på de vedhæftede filer ikke kopieres og indsættes i den besvarende e-mail, skal du genstarte din Outlook og svare igen.

Og nu kopieres alle vedhæftede filers navn fra den valgte e-mail og indsættes i den besvarende e-mail. Se skærmbillede:


Kopier alle vedhæftede filnavne, når du svarer med fantastisk værktøj

Hvis du har Kutools til Outlook installeret, kan du anvende dens Kopier navne funktion til hurtigt at kopiere alle vedhæftede filers navne fra en modtaget e-mail og derefter nemt indsætte dens svarmeddelelse i Outlook.

Kutools til Outlook: Ultimativt Outlook-værktøjssæt med over 100 praktiske værktøjer. Prøv det GRATIS i 60 dage, ingen begrænsninger, ingen bekymringer!   Læs mere ...   Start gratis prøveversion nu!

1. Vælg den e-mail, du vil besvare, og klik Kutools > Vedhæftningsværktøjer > Kopier navne.

Derefter kommer en dialog ud og fortæller dig, at vedhæftede filer er kopieret til udklipsholderen. Klik OK at lukke det.

2. Klik videre Home > Svar for at besvare den valgte e-mail.

3. I svarmeddelelsesvinduet skal du placere markøren i meddelelsesteksten og trykke på Ctrl + V taster for nemt at indsætte vedhæftede filers navne.

Svar let på valgte e-mails med alle originale vedhæftede filer gemt i Outlook

Generelt fjernes originale vedhæftede filer, når du besvarer en e-mail i Outlook. Men med fantastisk Svar med vedhæftet fil funktion af Kutools til Outlook, kan du nemt gemme alle vedhæftede filer i e-mails, når du besvarer det i Outlook.


svar med vedhæftede filer


Relaterede artikler:


Bedste kontorproduktivitetsværktøjer

Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook

🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...

📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP)  /  Planlæg Send e-mails  /  Auto CC/BCC efter regler ved afsendelse af e-mail  /  Automatisk videresendelse (avancerede regler)   /  Tilføj automatisk hilsen   /  Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...

📨 Email Management: Genkald nemt e-mails  /  Bloker svindel-e-mails af emner og andre  /  Slet duplikerede e-mails  /  Avanceret søgning  /  Konsolider mapper ...

📁 Vedhæftede filer ProBatch Gem  /  Batch adskilles  /  Batch komprimere  /  Automatisk gem   /  Automatisk afmontering  /  Automatisk komprimering ...

🌟 Interface Magic: 😊 Flere smukke og seje emojis   /  Boost din Outlook-produktivitet med fanebaserede visninger  /  Minimer Outlook i stedet for at lukke ...

👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer  /   Anti-phishing e-mails  /  🕘Vis afsenderens tidszone ...

👩🏼‍🤝‍👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails  /  Opdel en kontaktgruppe til individuelle grupper  /  Fjern fødselsdagspåmindelser ...

Over 100 Features Afvent din udforskning! Klik her for at finde mere.

Læs mere       Gratis download      Køb
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations