Wie wende ich eine Schaltfläche zum Senden von E-Mails mit angehängter aktueller Word-Datei an?
Wenn Sie eine E-Mail-Nachricht aus einem Word-Dokument über Outlook senden und auch die aktuelle Word-Datei anhängen müssen, können Sie eine Befehlsschaltfläche erstellen und die Nachricht dann senden, indem Sie auf diese Schaltfläche klicken, ohne Outlook zu öffnen. In diesem Artikel werde ich vorstellen, wie man schnell und einfach damit umgeht.
Wenden Sie eine Schaltfläche an, um E-Mails mit angehängter aktueller Word-Datei zu senden
Wenden Sie eine Schaltfläche an, um E-Mails mit angehängter aktueller Word-Datei zu senden
Führen Sie die folgenden Schritte aus, um diesen Job in der Word-Datei zu lösen:
1. Zuerst sollten Sie eine Befehlsschaltfläche erstellen, klicken Sie bitte Entwickler:in / Unternehmen > Legacy-Tools > Befehlsschaltfläche (ActiveX Control), siehe Screenshot:
2. Wählen Sie die Schaltfläche und klicken Sie auf Ferienhäuser unter dem Entwickler:in / Unternehmen Registerkarte, in der Ferienhäuser Geben Sie im gewünschten Bereich den gewünschten Beschriftungstext ein Bildunterschrift Feld, siehe Screenshot:
3. Dann schließen Sie die Ferienhäuser Klicken Sie jetzt mit der rechten Maustaste auf die Schaltfläche und wählen Sie Code anzeigen, siehe Screenshot:
4. Und dann in der angezeigten Microsoft Visual Basic für Applikationen Fenster, kopiere und füge den folgenden Code zwischen die ursprünglichen Skripte ein, siehe Screenshot:
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 = ""
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
Note: Im obigen Code sollten Sie den Betreff, den Text oder die gesendete Adresse nach Ihren Wünschen ändern.
5. Speichern und schließen Sie diesen Code und klicken Sie auf Entwurfsmodus um den Entwurfsmodus auszuschalten. Wenn Sie nun auf die von Ihnen erstellte Befehlsschaltfläche klicken, wird eine E-Mail mit dem aktuellen Word-Dokument als Anhang erstellt (siehe Abbildung):
6. Zum Schluss müssen Sie nur noch klicken Absenden Schaltfläche, um diese Nachricht zu senden.
Beste Office-Produktivitätstools
Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!
🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren / Text umschreiben / Dokumente zusammenfassen / Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelkonvertierung in PDF / Seiten als Bilder exportieren / Drucken Sie mehrere Dateien gleichzeitig...
✏ Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg / Größe aller Bilder ändern / Vertauschen Sie Tabellenzeilen und -spalten / Tabelle in Text konvertieren...
🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume / Abschnittswechsel / Alle Header / Textfelder / Hyperlinks / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...
➕ Kreative Einsätze: Einfügen Tausend Trennzeichen / Kontrollkästchen / Radio Knöpfe / QR Code / Strichcode / Diagonale Linientabelle / Gleichungsbeschriftung / Bildunterschrift / Tabellenüberschrift / Mehrere Bilder / Entdecken Sie mehr im Gruppe einfügen...
🔍 Präzise Auswahl: Punktgenau bestimmte Seiten / Tabellen / Formen / Überschriften von Absätzen / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...
⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort / Sich wiederholenden Text automatisch einfügen / Wechseln Sie nahtlos zwischen Dokumentfenstern / 11 Konvertierungstools...