Wenn wir die HTML-E-Mail vor dem Antworten in RTF konvertiert haben, werden die Namen aller Anhänge in die Antwortnachricht kopiert, nachdem Sie in Outlook auf Start> Antworten geantwortet haben.

1. Doppelklicken Sie, um die E-Mail zu öffnen, deren Anhangsnamen Sie kopieren müssen, und klicken Sie dann auf Nachricht > Aktionen > Nachricht bearbeiten im Nachrichtenfenster. Siehe Screenshot:

2. Klicken Sie weiter Text formatieren > Rich-Text-und speichern und schließen Sie die E-Mail.

3. Nun kehren Sie zur Hauptansicht zurück. Wählen Sie die E-Mail weiter aus und klicken Sie auf Startseite > antworten.

4. Jetzt werden die Namen aller Anhänge aus der ursprünglichen E-Mail kopiert und wie im folgenden Screenshot in die Antwortnachricht eingefügt. Bitte verfassen Sie die Antwortnachricht und senden Sie sie.

Diese Methode führt ein VBA-Makro ein, um die Namen aller Anhänge beim Beantworten einer E-Mail zu kopieren und die Namen dann in den Nachrichtentext der Beantwortung von E-Mails in Outlook einzufügen.

1. Drücken Sie Andere + F11 Tasten gleichzeitig, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Erweitern Sie im linken Projektexplorer das Projekt 1, doppelklicken Sie, um das zu öffnen DieseOutlookSession Fenster (siehe Abbildung unten) und fügen Sie dann den folgenden Code in das Fenster ein.

VBA: Kopieren Sie den Namen aller Anhänge, wenn Sie eine E-Mail in Outlook beantworten

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. Klicken Sie Tools > Bibliographie.

4. Überprüfen Sie im Eröffnungsfenster Referenzen - Projekt 1 für Outlook 2016 die Option Microsoft Word 16.0-Objektbibliothek Klicken Sie im Feld Verfügbare Referenzen auf und klicken Sie auf OK Taste. Siehe Screenshot:

Note: Bitte wählen Sie die Microsoft Word 15.0-Objektbibliothek Referenz, wenn Sie mit Outlook 2013 arbeiten, oder Microsoft Word 14.0-Objektbibliothek Referenz mit Outlook 2010.

5. Speichern Sie den VBA und schließen Sie das Fenster Microsoft Visual Basic für Applikationen.

6. Nun kehren Sie zur Hauptoberfläche von Outlook zurück. Wählen Sie die E-Mail aus, auf die Sie antworten möchten, und klicken Sie auf Startseite > antworten or Allen antworten.
Note: Wenn die Anhangsnamen nicht kopiert und in die antwortende E-Mail eingefügt werden, starten Sie Outlook neu und antworten Sie erneut.

Und jetzt wird der Name aller Anhänge aus der ausgewählten E-Mail kopiert und in die antwortende E-Mail eingefügt. Siehe Screenshot:

Wenn Sie Kutools for Outlook installiert, können Sie seine anwenden Namen kopieren Funktion zum schnellen Kopieren aller Anhangsnamen aus einer empfangenen E-Mail und zum einfachen Einfügen der Antwortnachricht in Outlook.

1. Wählen Sie die E-Mail aus, auf die Sie antworten möchten, und klicken Sie auf Kutoolen > Anbaugeräte > Namen kopieren.

Dann erscheint ein Dialogfeld, in dem Sie erfahren, dass die Namen der Anhänge in die Zwischenablage kopiert werden. Klicken OK um es zu schließen.

2. Klicken Sie weiter Startseite > antworten um die ausgewählte E-Mail zu beantworten.

3. Setzen Sie im Fenster für antwortende Nachrichten den Cursor in den Nachrichtentext und drücken Sie Ctrl + V Tasten zum einfachen Einfügen der Anhangsnamen.

Beantworten Sie ausgewählte E-Mails ganz einfach mit allen Originalanhängen, die in Outlook gespeichert sind

Im Allgemeinen werden ursprüngliche Anhänge entfernt, wenn eine E-Mail in Outlook beantwortet wird. Aber mit fantastisch Antworte mit Anhang Mit der Funktion von Kutools for Outlook können Sie problemlos alle Anhänge von E-Mails behalten, wenn Sie diese in Outlook beantworten.