Zum Hauptinhalt springen

Kutools für Office — Eine Suite. Fünf Tools. Erledigen Sie mehr.

Wie wendet man eine Schaltfläche an, um eine E-Mail mit der aktuellen Word-Datei als Anhang zu senden?

Author Xiaoyang Last modified

Wenn Sie eine E-Mail aus einem Word-Dokument über Outlook senden und die aktuelle Word-Datei anhängen müssen, können Sie eine Befehlsschaltfläche einfügen, die die E-Mail per Klick versendet – es ist nicht nötig, Outlook manuell zu öffnen. Dieser Leitfaden zeigt, wie Sie dies schnell und einfach einrichten können.

Eine Schaltfläche zum Senden einer E-Mail mit der aktuellen Word-Datei als Anhang anwenden

Eine Schaltfläche zum Senden einer E-Mail mit der aktuellen Word-Datei als Anhang anwenden

Bitte folgen Sie diesen Schritten, um die Aufgabe in Ihrem Word-Dokument auszuführen:

  1. Fügen Sie zunächst eine Befehlsschaltfläche ein. Gehen Sie zu „Entwickler“ > „Legacy-Tools“ > „Befehlsschaltfläche (ActiveX-Steuerelement)“.

    Hinweis: Wenn Sie die Entwickler-Registerkarte im Menüband nicht sehen, besuchen Sie: Wie zeigt man die Entwickler-Registerkarte im Word-Menüband an.

    Developer tab with Controls group selected, Legacy Tools clicked, and Command Button highlighted
  2. Wählen Sie die Schaltfläche aus, klicken Sie dann unter der Registerkarte „Entwickler“ auf „Eigenschaften“. Geben Sie im Eigenschaftenfenster den Text, den Sie auf der Schaltfläche anzeigen möchten, in das Feld „Beschriftung“ ein.
    Properties button on the ribbon and Properties dialog popped up
  3. Schließen Sie das Eigenschaftenfenster. Klicken Sie dann mit der rechten Maustaste auf die Schaltfläche und wählen Sie „Code anzeigen“.
    View Code option on the context menu
  4. Fügen Sie im Fenster „Microsoft Visual Basic for Applications“ den folgenden Code zwischen den vorhandenen Subroutine-Tags ein: 
    Dim xOutlookObj As Object
Dim xEmail As Object
Dim xDoc As Document
Application.ScreenUpdating = False
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmail = xOutlookObj.CreateItem(olMailItem)
Set xDoc = ActiveDocument
xDoc.Save
With xEmail
    .Subject = "Fax-data"
    .Body = "This is a test email."
    .To = "yy@addin99.com"
    .Importance = olImportanceNormal
    .Attachments.Add xDoc.FullName
    .Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
    VBA window with the above code pasted

    Hinweis: Sie können Betreff, Nachrichtentext und Empfänger-E-Mail-Adresse im Code ändern, um Ihren tatsächlichen Nachrichtendetails zu entsprechen.

  5. Speichern und schließen Sie den VBA-Editor. Klicken Sie auf der Registerkarte „Entwickler“ auf „Designmodus“, um ihn zu deaktivieren. Wenn Sie nun auf die Befehlsschaltfläche klicken, wird automatisch eine E-Mail in Outlook erstellt, mit dem aktuellen Word-Dokument als Anhang.
    An email is created with the current Word document as an attachment
  6. Klicken Sie abschließend in Outlook auf die Schaltfläche „Senden“, um die Nachricht zu versenden.

Die besten Produktivitätstools für das Büro

Kutools for Word – Erweitern Sie Ihr Word-Erlebnis mit mehr als 100 bemerkenswerten Funktionen!

🤖 Kutools AI Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen ...

📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Bereich in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML ...) / Stapelweise Konvertierung zu PDF ...

✏ Text bearbeiten: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren (Zeilen und Spalten) / Tabelle in Text umwandeln ...

🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfeld / Verknüpfungen / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen ...

➕ Kreative Einfügen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfeld / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen in der Gruppe Einfügen ...

🔍 Präzise Auswahl: Einzelne Seiten, Referenztabellen, Form, Überschriftenabsatz gezielt festlegen / Navigation mit weiteren Auswählen -Features verbessern ...

⭐ Besondere Erweiterungen: Zu jedem Bereich navigieren / Automatisches Einfügen von wiederkehrendem Text / Zwischen Dokument-Fenster umschalten /11 Konvertierungs-Werkzeuge ...

🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Jetzt Kutools for Word herunterladen! 🚀
 

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Tools!

Enthält Office Tab Pro · Kutools für Excel · Kutools für Outlook · Kutools for Word · Kutools for PowerPoint

📦 Alle5 Tools in einer Suite erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Sofort Zeit sparen und Produktivität steigern

Die besten Produktivitätstools für das Büro

Kutools for Word – 100+ Tools für Word

Kostenloser Download Jetzt kaufen Mehr erfahren über Kutools