Wie wendet man eine Schaltfläche an, um eine E-Mail mit der aktuellen Word-Datei als Anhang zu senden?
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:
- 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.
- 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.
- Schließen Sie das Eigenschaftenfenster. Klicken Sie dann mit der rechten Maustaste auf die Schaltfläche und wählen Sie „Code anzeigen“.
- 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
Hinweis: Sie können Betreff, Nachrichtentext und Empfänger-E-Mail-Adresse im Code ändern, um Ihren tatsächlichen Nachrichtendetails zu entsprechen.
- 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.
- 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 für Word – Steigern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!
🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...
📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise Konvertierung nach PDF...
✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen über mehrere Dateien / Alle Bilder skalieren / Tabellenzeilen und -spalten transponieren / Tabelle in Text umwandeln...
🧹 Mühelos bereinigen: Entfernen Sie ganz einfach zusätzliche Leerzeichen / Abschnittsumbrüche / Textfelder / Hyperlinks / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen...
➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen im Bereich Einfügen...
🔍 Präzise Auswahl: Bestimmen Sie gezielt bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit weiteren Auswählen -Funktionen...
⭐ Herausragende Verbesserungen: Navigieren Sie zu beliebigen Standorten / Automatisches Einfügen von wiederkehrendem Text / Umschalten zwischen Dokument-Fenstern /11 Konvertierungswerkzeuge...
🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und mehr als40 weitere!
Die besten Produktivitätstools für das Büro
Kutools für Word – 100+ Werkzeuge für Word
- 🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren / Super Übersetzen / KI-Redaktion / KI Korrekturlesen
- 📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Stapelweise Konvertierung nach PDF
- ✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
- 🧹 Mühelos bereinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
- ➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Codes erstellen
- 🌍 Unterstützt über40 Sprachen: Kutools spricht Ihre Sprache – mehr als40 Sprachen werden unterstützt!