Note: The other languages of the website are Google-translated. Back to English
Logga in  \/ 
x
or
x
Registrera  \/ 
x

or

Hur kopierar jag alla bifogade namn när du svarar i Outlook?

När du svarar på ett RTF-e-postmeddelande (formaterat som Rich Format) i Outlook kopieras alla bifogade namn och klistras in automatiskt i meddelandetexten (se skärmdump nedan). Men när du svarar på en HTML-e-post i Outlook saknas bilagor i svaret på e-post. Här kommer den här artikeln att presentera några metoder för att kopiera alla bifogade namn när du svarar på e-post eller i de mottagna e-postmeddelandena direkt.


Kopiera alla bifogade namn när du svarar med att ändra HTML till RTF

Om vi ​​har konverterat HTML-e-postmeddelandet till RTF innan vi svarar kopieras alla bifogade namn till det svarande meddelandet efter att ha klickat på Hem> Svara i Outlook.

1. Dubbelklicka för att öppna e-postmeddelandet vars bilagor du behöver kopiera och klicka sedan på Meddelande > Handlingar > Redigera meddelande i meddelandefönstret. Se skärmdump:

2. Fortsätt för att klicka Formatera text > Rik textoch spara och stäng sedan e-postmeddelandet.

3. Nu återgår du till huvudvyn. Fortsätt att välja e-postmeddelandet och klicka Hem > Svara.

4. Nu kopieras alla bifogade namn från det ursprungliga e-postmeddelandet och klistras in i det svarande meddelandet som visas nedan. Skriv svaret och skicka det.

Kopiera alla bilagors namn när du svarar med VBA

Denna metod introducerar ett VBA-makro för att kopiera alla bifogade namn när du svarar på ett e-postmeddelande och klistra sedan in namnen i meddelandetexten för att svara på e-post i Outlook.

1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic for Applications-fönstret.

2. I den vänstra Project Explorer, expandera Project 1, dubbelklicka för att öppna ThisOutlookSession fönstret (se skärmdump nedan) och klistra sedan in koden nedan i fönstret.

VBA: Kopiera alla bifogade namn när du svarar på ett e-postmeddelande 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. Klicka verktyg > referenser.

4. I fönstret Referenser - Project 1 för Outlook 2016, vänligen kontrollera Microsoft Word 16.0-objektbibliotek referens i rutan Tillgängliga referenser och klicka på OK knapp. Se skärmdump:

Anmärkningar: Välj Microsoft Word 15.0-objektbibliotek referens om du arbetar med Outlook 2013 eller Microsoft Word 14.0-objektbibliotek referens med Outlook 2010.

5. Spara VBA och stäng fönstret Microsoft Visual Basic for Applications.

6. Nu återgår du till Outlook-huvudgränssnittet. Välj e-postmeddelandet du ska svara och klicka på Hem > Svara or Svara alla.
Anmärkningar: Om bilagans namn inte kopieras och klistras in i det svarande e-postmeddelandet, starta om din Outlook och svara igen.

Och nu kopieras alla bifogade namn från det valda e-postmeddelandet och klistras in i det svarande e-postmeddelandet. Se skärmdump:


Kopiera alla bifogade namn när du svarar med ett fantastiskt verktyg

Om du har Kutools för Outlook installerad kan du använda den Kopiera namn funktionen för att snabbt kopiera alla bifogade namn från ett mottaget e-postmeddelande och sedan enkelt klistra in det svarande meddelandet i Outlook.

Kutools för Outlook: Lägg till mer än 100 praktiska verktyg för Outlook, gratis att prova utan begränsning på 60 dagar. Läs mer      Gratis testversion nu

1. Välj e-postmeddelandet du ska svara och klicka på Kutools > Tillbehörsverktyg > Kopiera namn.

Sedan kommer en dialogruta fram och berättar att bifogade namn kopieras till urklipp. Klick OK att stänga den.

2. Fortsätt för att klicka Hem > Svara för att svara på det valda e-postmeddelandet.

3. I svarsmeddelandefönstret placerar du markören i meddelandetexten och trycker på ctrl + V för att enkelt klistra in bilagans namn.

Svara enkelt valda e-postmeddelanden med alla originalbilagor i Outlook

I allmänhet tas originalbilagor bort när du svarar på ett e-postmeddelande i Outlook. Men med fantastiskt Svara med bilaga funktion i Kutools för Outlook, kan du enkelt behålla alla bilagor i e-postmeddelanden när du svarar det i Outlook. Klicka för 60 dagars gratis provperiod utan begränsning!
svara med bilagor


Relaterade artiklar:


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus flik 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.