Wie antworte ich allen mit den Originalanhängen in Outlook?

Haben Sie jemals in Outlook auf „Allen antworten“ geklickt und dabei die ursprünglichen Anhänge verloren? Das ist wirklich frustrierend! Fragen Sie sich, wie Sie diese Anhänge beim Antworten an alle behalten können? Ja, das ist möglich! Lassen Sie uns gemeinsam herausfinden, wie Sie die ursprünglichen Anhänge problemlos in Ihre Antworten einfügen – für eine reibungslose und effiziente E-Mail-Verwaltung. Bleiben Sie dran!

Allen mit Originalanhängen antworten mit VBA-Code

Allen mit Originalanhängen antworten mit Kutools für Outlook

---

Allen mit Originalanhängen antworten mit VBA-Code

Outlook bietet hierfür keine direkte Funktion, aber mit dem folgenden VBA-Code lässt sich das gewünschte Ergebnis erzielen. Gehen Sie dazu wie folgt vor:

1. Starten Sie Outlook und halten Sie anschließend die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications auf ThisOutlookSession im Bereich Project1 (VbaProject.OTM), um das Modul zu öffnen, und fügen Sie dann den folgenden Code in das leere Modul ein.

VBA-Code: Allen mit ursprünglichen Anlagen antworten:

Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = ""
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function

3. Klicken Sie anschließend im Fenster Extras > Verweise auf Microsoft Visual Basic for Applications. Aktivieren Sie im erscheinenden Dialogfeld Verweise – Project1 die Option Microsoft Scripting Runtime in der Liste Verfügbare Verweise, siehe Screenshot:

4. Schließen Sie danach das Code-Fenster und fügen Sie die Makroschaltfläche zur Symbolleiste für den Schnellzugriff hinzu.

5. Öffnen Sie im Nachrichten-Fenster die E-Mail, auf die Sie allen mit Anlagen antworten möchten, und wählen Sie dann Weitere Befehleaus dem Dropdown-Menü Symbolleiste für den Schnellzugriff anpassen, siehe Screenshot:

6. Führen Sie im Dialogfeld Outlook-Optionen die folgenden Schritte aus:

(1.) Wählen Sie im Dropdown-Menü Makrosunter Befehle auswählen ausaus;

(2.) Klicken Sie auf den Namen des soeben eingefügten Makros;

(3.) Klicken Sie anschließend auf die Schaltfläche Hinzufügen, um das Makro zur Symbolleiste für den Schnellzugriff anpassen hinzuzufügen.

7. Klicken Sie nun auf OK, um das Dialogfeld zu schließen. Die Makroschaltfläche wurde nun in die Symbolleiste für den Schnellzugriff eingefügt – siehe Screenshot:

8. Klicken Sie nun auf die Makroschaltfläche. Danach öffnet sich das Antwortfenster mit den ursprünglichen Anlagen. Verfassen Sie Ihre Antwortnachricht und klicken Sie auf die Schaltfläche Senden, siehe Screenshot:

---

Allen mit Originalanhängen antworten mit Kutools für Outlook

Wenn Sie Kutools für Outlook installiert haben, können Sie mit der Funktion Mit Anlagen antworten mit nur einem Klick allen Empfängern samt Anhängen antworten.

Nach der Installation von Kutools für Outlookgehen Sie wie folgt vor:

1. Wählen Sie die Nachricht aus, auf die Sie allen Empfängern mit Anhängen antworten möchten, und klicken Sie dann auf Kutools > Mit ursprünglichen Anlagen allen antworten. Siehe Screenshot:

2. Das Antwortfenster öffnet sich nun mit den ursprünglichen Anhängen. Verfassen Sie Ihre Nachricht und senden Sie sie ab – siehe Screenshot:

Klicken Sie hier, um diekostenlose Version von Kutools für Outlook jetzt herunterzuladen!