Wie kann man beim Antworten in Outlook alle Anhangsnamen automatisch übernehmen?

Wurde die HTML-E-Mail vor dem Antworten in RTF konvertiert, werden nach einem Klick auf „Start“ > „Antworten“ in Outlook sämtliche Anhangsnamen automatisch in die Antwortnachricht übernommen.

1. Öffnen Sie die E-Mail, deren Anhangsnamen Sie kopieren möchten, durch Doppelklick und klicken Sie anschließend im Nachrichtenfenster auf Nachricht > Aktionen > Nachricht bearbeiten. Siehe Screenshot:

2. Klicken Sie nun auf Text formatieren > Rich Text und senden Sie anschließend die E-Mail.

3. Sie kehren nun zur Hauptansicht zurück. Wählen Sie die E-Mail erneut aus und klicken Sie auf Start > Antworten.

4. Alle Anhangsnamen wurden nun aus der Original-E-Mail kopiert und – wie im folgenden Screenshot gezeigt – in die Antwortnachricht eingefügt. Verfassen Sie Ihre Antwort und senden Sie sie ab.

Antworten Sie mühelos Antworten auf mehrere ausgewählte E-Mails, wobei alle ursprünglichen Anhänge in Outlook erhalten bleiben

Normalerweise entfernt Outlook beim Beantworten einer E-Mail die ursprünglichen Anhänge. Mit der hervorragenden Antworten mit Anhang-Funktion von Kutools für Outlook behalten Sie jedoch mühelos alle Anhänge beim Antworten in Outlook bei.

Falls Sie Kutools für Outlook installiert haben, können Sie dessen Namen kopieren-Funktion nutzen, um schnell alle Anhangsnamen aus einer empfangenen E-Mail zu kopieren und diese anschließend einfach in die Antwortnachricht in Outlook einzufügen.

1. Wählen Sie die E-Mail aus, auf die Sie antworten möchten, und klicken Sie auf KUTOOLS PLUS > Anhangswerkzeuge > Namen kopieren.

Anschließend wird ein Dialogfeld angezeigt, das Ihnen mitteilt, dass der Anhangsname in die Zwischenablage kopiert wurde. Klicken Sie auf OK, um es zu schließen.

2. Klicken Sie nun auf Start > Antworten, um auf die ausgewählte E-Mail zu antworten.

3. Platzieren Sie im Antwortnachrichtenfenster den Cursor im Nachrichtentext und drücken Sie die Tasten Strg+V, um den Anhangsnamen einfach einzufügen.

Diese Methode stellt ein VBA-Makro vor, das beim Antworten auf eine E-Mail automatisch alle Anhangsnamen kopiert und diese anschließend in den Nachrichtentext der Antwort-E-Mail in Outlook einfügt.

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Erweitern Sie im linken Projektfenster-Explorer das Projekt 1, doppelklicken Sie auf ThisOutlookSession, um das Fenster zu öffnen (siehe Screenshot unten), und fügen Sie anschließend den folgenden Code ein.

VBA: Kopieren aller Anhangsnamen beim Antworten auf eine E-Mail in 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. Klicken Sie auf Extras > Verweise.

4. Aktivieren Sie im geöffneten Fenster „Verweise – Projekt 1“ für Outlook 2016 den Verweis Microsoft Word 16,0 Object Library im Bereich „Verfügbare Verweise“ und klicken Sie auf die Schaltfläche OK. Siehe Screenshot:

Hinweis: Wählen Sie den Verweis Microsoft Word 15,0 Object Library, wenn Sie mit Outlook 2013 arbeiten, oder den Verweis Microsoft Word 14,0 Object Library bei Outlook 2010.

5. Speichern Sie das VBA-Skript und schließen Sie das Fenster von Microsoft Visual Basic for Applications.

6. Kehren Sie nun zur Hauptoberfläche von Outlook zurück. Wählen Sie die E-Mail aus, auf die Sie antworten möchten, und klicken Sie auf Start > Antworten oder Allen antworten.
Hinweis: Falls der Anhangsname nicht automatisch in die Antwort-E-Mail kopiert und eingefügt wird, starten Sie Outlook neu und versuchen Sie es erneut.

Alle Anhangsnamen aus der ausgewählten E-Mail wurden nun in die Antwort-E-Mail eingefügt. Siehe Screenshot: