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

or

Wie kopiere ich die Namen aller Anhänge, wenn ich in Outlook antworte?

Wenn Sie eine RTF-E-Mail (als Rich Format formatiert) in Outlook beantworten, werden alle Namen der Anhänge kopiert und automatisch in den Nachrichtentext eingefügt (siehe Abbildung unten). Beim Beantworten einer HTML-E-Mail in Outlook fehlen jedoch Anhänge beim Beantworten von E-Mails. In diesem Artikel werden einige Methoden zum Kopieren des Namens aller Anhänge beim Beantworten von E-Mails oder in den empfangenen E-Mails direkt vorgestellt.


Kopieren Sie die Namen aller Anhänge, wenn Sie mit der Änderung von HTML in RTF antworten

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 DEINE 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 Home > 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.

Kopieren Sie die Namen aller Anhänge, wenn Sie mit VBA antworten

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 ThisOutlookSession 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 > Referenzen.

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:

Hinweis: 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 Home > antworten or Allen antworten.
Hinweis: 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:


Kopieren Sie alle Anhangsnamen, wenn Sie mit einem erstaunlichen Werkzeug antworten

Wenn Sie Kutools für 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.

Kutools für Outlook: Fügen Sie mehr als 100 praktische Tools für Outlook hinzu, die Sie innerhalb von 60 Tagen ohne Einschränkung testen können. Weiterlesen      Kostenlose Testversion

1. Wählen Sie die E-Mail aus, auf die Sie antworten möchten, und klicken Sie auf Kutools > 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 Home > 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. Klicken Sie hier für eine kostenlose 60-Tage-Testversion ohne Einschränkung!
Antwort mit Anhängen


In Verbindung stehende Artikel:


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 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.