Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

Hvordan kopieres alle vedhæftede navn, 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 navn, når du svarer med at ændre HTML til RTF

Hvis vi har konverteret HTML-e-mailen til RTF, før vi besvarer, kopieres alle vedhæftede filers navne til den svarende besked efter at have klikket Hjem> Svar i Outlook.

1. Dobbeltklik for at åbne den e-mail, hvis vedhæftede navn du skal kopiere, og klik derefter på 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 Forside > Svar.

4. Nu kopieres alle vedhæftnings navne fra den originale e-mail og indsættes i den svarende besked som vist nedenstående skærmbillede. Skriv venligst den besvarende besked, og send den.

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

Denne metode introducerer en VBA-makro til at kopiere alle vedhæftede navn, når du besvarer en e-mail, og indsæt derefter navnene i meddelelsesteksten for at besvare e-mail i Outlook.

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

2. Udvid Project 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æftnings 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øj > Referencer.

4. I åbningsvinduet Referencer - Project 1-vindue til Outlook 2016 skal du kontrollere Microsoft Word 16.0-objektbibliotek reference i feltet 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, og luk vinduet Microsoft Visual Basic til applikationer.

6. Nu vender du tilbage til Outlooks hovedgrænseflade. Vælg den e-mail, du vil svare på, og klik Forside > Svar or Svar alle.
Bemærk: Hvis vedhæftningsnavnene ikke kopieres og indsættes i den svarende e-mail, skal du genstarte din Outlook og svare igen.

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


Kopier alle vedhæftede navn, når du svarer med et 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 navne fra en modtaget e-mail og derefter indsætte den besvarende meddelelse let i Outlook.

Kutools til Outlook: Tilføj mere end 100 praktiske værktøjer til Outlook, der er gratis at prøve uden begrænsning på 60 dage. Læs mere      Gratis prøveperiode nu

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

Derefter kommer en dialog ud og fortæller dig, at vedhæftede navnene kopieres til udklipsholderen. Klik på OK at lukke det.

2. Klik videre Forside > Svar for at svare den valgte e-mail.

3. I det svarende meddelelsesvindue skal du placere markøren i meddelelsens brødtekst og trykke på Ctrl + V nøgler for nemt at indsætte vedhæftede filer.

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. Klik for 60-dages gratis prøveperiode uden begrænsning!
svar med vedhæftede filer


Relaterede artikler:


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.