Wie fügt man eine Schaltfläche hinzu, um eine E-Mail mit dem aktuellen Word-Dokument als Anhang zu versenden?

Wenn Sie eine E-Mail direkt aus einem Word-Dokument über Outlook versenden und dabei die aktuelle Word-Datei als Anhang hinzufügen möchten, können Sie eine Befehlsschaltfläche einfügen, die die E-Mail mit nur einem Klick versendet – ganz ohne manuelles Öffnen von Outlook. Diese Anleitung zeigt Ihnen, wie Sie das schnell und einfach einrichten.

Eine Schaltfläche zum Senden einer E-Mail mit dem aktuellen Word-Dokument als Anhang hinzufügen

Eine Schaltfläche zum Senden einer E-Mail mit dem aktuellen Word-Dokument als Anhang hinzufügen

Führen Sie bitte die folgenden Schritte aus, um die Aufgabe in Ihrem Word-Dokument durchzuführen:

1. Fügen Sie zunächst eine Befehlsschaltfläche ein, indem Sie zu „Entwickler“ > „Legacytools“ > „Befehlsschaltfläche (ActiveX-Steuerelement)“ navigieren.

   Hinweis: Wenn Sie die Registerkarte „Entwickler“ im Menüband nicht sehen, besuchen Sie: So zeigen Sie die Registerkarte „Entwickler“ im Word-Menüband an.

   

2. Wählen Sie die Schaltfläche aus, und klicken Sie anschließend unter der Registerkarte „Entwickler“ auf „Eigenschaften“. Geben Sie im Bereich „Eigenschaften“ im Feld „Beschriftung“ den Text ein, der auf der Schaltfläche erscheinen soll.

   

3. Schließen Sie den Bereich „Eigenschaften“, klicken Sie anschließend mit der rechten Maustaste auf die Schaltfläche und wählen Sie „Code anzeigen“.

   

4. Fügen Sie im Fenster „Microsoft Visual Basic for Applications“ den folgenden Code zwischen die vorhandenen Subroutinen-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

   

   Hinweis: Sie können Betreff, Nachrichtentext und die E-Mail-Adresse des Empfängers im Code anpassen, um Ihre tatsächlichen Nachrichtendaten widerzuspiegeln.

5. Speichern und schließen Sie den VBA-Editor. Klicken Sie auf der Registerkarte „Entwickler“ auf „Entwurfsmodus“, um ihn zu deaktivieren. Sobald Sie nun auf die Befehlsschaltfläche klicken, wird automatisch eine E-Mail in Outlook mit dem aktuellen Word-Dokument als Anhang erstellt.

   

6. Klicken Sie zum Abschluss in Outlook auf die Schaltfläche „Senden“, um Ihre Nachricht zu versenden.

Beste Office-Produktivitätswerkzeuge

Kutools für Word – Verbessern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!

🤖KUTOOLS KI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI-Korrekturlesen …

📘Dokument-Meisterschaft: Seiten aufteilen, Dokumente zusammenführen, Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML …), stapelweise in PDF konvertieren …

✏Inhaltsbearbeitung: Stapelweises Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren – Zeilen und Spalten tauschen / Tabelle in Text umwandeln …

🧹Mühelose Bereinigung: Fegen Sie überflüssige Leerzeichen/Abschnittsumbruch/Textfeld/Hyperlinks/ Weitere Entfernungs-Werkzeuge finden Sie in der EntfernenGruppe …

➕Kreative Einfügungen: Fügen Sie Tausendertrennzeichen/Kontrollkästchen/Optionsfeld/QR-Code/Strichcode/Mehrere Bilder/ Weitere Funktionen finden Sie in der Einfügen-Gruppe …

🔍Präzisionsauswahl: Wählen Sie gezielt bestimmte Seiten, Tabellen, Formen oder Überschriftenabsätze aus – und verbessern Sie Ihre Navigation mit weiteren Auswählen-Funktionen …

⭐Hervorragende Erweiterungen: Zu beliebigen Positionen navigieren / Wiederkehrenden Text automatisch einfügen / Zwischen Dokumentenfenstern wechseln / 11 Konvertierungswerkzeuge Konvertierungs- …

🌍Unterstützt über 40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere!

 

Kostenlos herunterladen     Jetzt kaufen     Weitere Informationen

 

---

Office Tab– Bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher

• Aktivieren Sie die tabbasierte Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
• Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters – statt in separaten Fenstern.
• Steigert Ihre Produktivität um 50 % und spart Ihnen täglich Hunderte von Mausklicks!

Kostenlos herunterladen     Jetzt kaufen     Weitere Informationen

 

---

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

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

📦 Alle 5 Werkzeuge in einem Paket erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Zeit sparen und sofort die Produktivität steigern

⬇️ Jetzt herunterladen🎁 Das vollständige Paket kaufen📖 Weitere Informationen

Beste Office-Produktivitätswerkzeuge

Kutools für Word– 100+-Werkzeuge für Word

• 🤖KUTOOLS AI-Funktionen:KI-Assistent/Echtzeit-Assistent/Super Polieren/Super Übersetzen/KI-Redaktion/KI Korrekturlesen
• 📘Dokument-Meisterschaft:Seiten aufteilen/Dokumente zusammenführen/Stapelweise in PDF konvertieren
• ✏Inhaltsbearbeitung:Stapelweise Suchen und Ersetzen/Alle Bilder skalieren
• 🧹Mühelose Bereinigung:Überflüssige Leerzeichen entfernen/Abschnittsumbruch entfernen
• ➕Kreative Einfügungen:Tausendertrennzeichen einfügen/Kontrollkästchen einfügen/QR-Code erstellen
• 🌍Unterstützt über 40 Sprachen: Kutools spricht Ihre Sprache – mit Unterstützung für über 40 Sprachen!

Kostenlos herunterladenJetzt kaufenWeitere Informationen zu Kutools