Verwenden Sie in Outlook häufig den Namen des Anhangs als E-Mail-Betreff? In diesem Fall müssen Sie hoffen, dass Outlook es automatisch abschließen kann. In diesem Artikel wird eine praktische Methode vorgestellt, mit der Outlook VBA realisiert werden kann.
Viele Nutzer sind es gewohnt, den Namen des Anhangs manuell in die Betreffzeile ihrer E-Mails einzugeben. In diesem Fall wäre es deutlich komfortabler, wenn Outlook dies automatisch erledigen könnte. Manche Nutzer vergessen auch oft, die Betreffzeile auszufüllen. Beim Klicken auf „Senden“ erhalten sie dann die Warnmeldung „Kein Betreff“. Wenn Outlook in diesem Fall den Betreff automatisch mit dem Namen des Anhangs befüllen könnte, ließe sich diese lästige Warnung vermeiden. Kurz gesagt: Viele Outlook-Nutzer wünschen sich eine solche Funktion, mit der Outlook den Namen des Anhangs automatisch in die Betreffzeile einfügt. Glücklicherweise lässt sich dies mithilfe von Outlook VBA ganz einfach realisieren. Im Folgenden finden Sie den detaillierten VBA-Code und die einzelnen Schritte.
E-Mail-Betreffzeile automatisch mit dem Anhangsnamen füllen
- Zunächst können Sie Outlook starten und zur Registerkarte „Entwickler“ wechseln.
- Klicken Sie dann auf dieser Registerkarte auf die Schaltfläche "Visual Basic", um den VBA-Editor aufzurufen.
- Im folgenden Fenster sollten Sie zuerst das Projekt „ThisOutlookSession“ in der Projektliste auf der rechten Seite suchen.
- Doppelklicken Sie anschließend, um dieses Projekt zu öffnen. Und kopieren Sie dann die folgenden Codes hinein.
Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem
Private Sub Initialize_handlers()
Set olInspectors = Application.Inspectors
End Sub
Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
Dim olItem As Object
Set olItem = Inspector.CurrentItem
If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub
Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
If olMail.Subject = "" Then
'If you don't want the prompt,
'Just delete the Msgbox line and its corresponding "End if".
If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
olMail.Subject = Attachment.DisplayName
End If
End If
End Sub
- Danach müssen Sie dem aktuellen VBA-Projekt wie gewohnt ein digitales Zertifikat zuweisen.
- Verwenden Sie zunächst das integrierte Dienstprogramm „Digitale Zertifikate für VBA-Projekte“, um ein digitales Zertifikat zu erstellen.
- Anschließend können Sie das aktuelle Makro signieren.
- Beenden Sie später den VBA-Editor und ändern Sie die Makroeinstellungen in "Benachrichtigungen für digital signierte Makros, alle anderen Makros deaktiviert".
- Endlich können Sie es versuchen.
- Erstellen Sie eine neue E-Mail.
- Wenn Sie den Betreff nicht ausgefüllt haben und beabsichtigen, eine Datei anzuhängen, erhalten Sie eine Nachricht wie das folgende Bild:
- Wenn Sie "Ja" auswählen, wird der Betreff sofort mit dem Namen des Anhangs gefüllt.
Bewältigen Sie häufige Outlook-Probleme
Vorausgesetzt, Sie verwenden Outlook seit Jahrzehnten, müssen Sie auf viele Outlook-Probleme gestoßen sein. Welche Maßnahmen ergreifen Sie dann normalerweise, wenn Sie sie treffen? Es wird empfohlen, sie so schnell wie möglich herauszufinden und auszurotten. Dies liegt daran, dass akkumulierte Probleme Ihre Outlook-Daten jederzeit beschädigen können. Selbst wenn Outlook normal funktioniert, sollten Sie daher entweder das Posteingang-Reparatur-Tool oder das externe Tool anwenden Dienstprogramm zur Reparatur von Outlook PST-Fehlern– wie DataNumen Outlook Repair, um Ihre PST-Dateien zu scannen, um Fehler zu erkennen und zu beheben.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Reparatur beschädigt SQL Server Datenbank und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX