Müssen Sie häufig bestimmte Dateien anhängen, wenn Sie bestimmte E-Mails in Outlook senden? In diesem Fall ist es möglicherweise mühsam, sie jedes Mal manuell hinzuzufügen. In diesem Artikel erfahren Sie, wie Sie dies mit Outlook VBA schnell erreichen.
In meiner täglichen Arbeit muss ich beim Senden bestimmter E-Mails häufig bestimmte Dateien anhängen. Zum Beispiel muss ich jede Woche eine E-Mail an meine Vorgesetzten senden, um über meine wöchentliche Arbeit zu berichten. In dieser E-Mail muss ich einige bestimmte Dateien anhängen, einschließlich Arbeitsprotokollen, einigen Datenstatistikberichten usw. Normalerweise aktualisiere ich diese Dateien jede Woche. In der Vergangenheit habe ich normalerweise zuerst den Nachrichtentext erstellt und diese Dateien dann manuell hinzugefügt. Derzeit finde ich jedoch einen intelligenteren Trick. Das heißt, Outlook VBA wird verwendet, um es zu automatisieren. Wenn Sie ähnliche Anforderungen haben, lesen Sie bitte weiter, um die konkreten VBA-Codes und die detaillierten Vorgänge zu erfahren.
Automatisches Anhängen bestimmter Dateien beim Senden bestimmter E-Mails
- Starten Sie zunächst Outlook und wechseln Sie zur Registerkarte „Entwicklertools“.
- Dann können Sie die Schaltfläche „Visual Basic“ finden und darauf klicken, wodurch das VBA-Editorfenster sofort geöffnet wird.
- Im folgenden Fenster sollten Sie auf das Projekt "ThisOutlookSession" in der linken Projektliste doppelklicken.
- Als nächstes sollten Sie die folgenden VBA-Codes kopieren und einfügen.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strPrompt As String
Dim nRes As Integer
'Check the email subject and recipient
If InStr(LCase(Item.Subject), "worklog") > 0 And InStr(Item.To, "frank") > 0 Then
strPrompt = "Do you want to attach the worklog related files?"
nRes = MsgBox(strPrompt, vbYesNo + vbQuestion, "Attach Files")
If nRes = vbYes Then
'Attach the specific files
With Item
.Attachments.Add ("C:\Attachments\WorkLog.docx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 1.xlsx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 2.xlsx")
End With
End If
End If
End Sub
- Danach müssen Sie dem neuen Projekt ein digitales Zertifikat zuweisen.
- Klicken Sie zunächst in der Symbolleiste auf die Schaltfläche „Werkzeug“ und wählen Sie „Digitale Signatur“.
- Klicken Sie dann im Popup-Dialogfeld "Digitale Signatur" auf die Schaltfläche "Auswählen".
- Anschließend können Sie ein vorhandenes Zertifikat auswählen.
- Klicken Sie zuletzt auf eine Reihe von "OK", um sie erfolgreich zuzuweisen.
- Später müssen Sie die Makroeinstellungen ändern, um einfach digital signierte Makros zuzulassen.
- Schließlich können Sie es versuchen.
- Wenn Sie auf "Senden" klicken, um die bestimmte E-Mail zu senden, die die bestimmten Wörter im Betreff enthält oder an einen bestimmten Kontakt gesendet wird, wird ein Meldungsfeld wie das folgende Bild angezeigt.
- Danach können Sie die gesendete E-Mail überprüfen. Die voreingestellten Dateien finden Sie sicherlich in der gesendeten Mail.
Verschieben Sie niemals das Beheben von Outlook-Fehlern
Obwohl Sie in Outlook auf eine Fehlermeldung gestoßen sind, können Sie nach dem Schließen der Nachricht manchmal trotzdem weiterarbeiten. Aber eigentlich ist es keine empfehlenswerte Maßnahme. Was Sie tun sollten, ist, sie so schnell wie möglich zu beseitigen, anstatt sie beiseite zu lassen. Ansammelnde Probleme führen zu einem schweren Absturz. Wenn Ihr Outlook abstürzt, sind Ihre Outlook PST-Daten gefährdet. Das solltest du wissen beschädigte Outlook PST-Daten ist ziemlich knotig. Zu diesem Zeitpunkt haben Sie keine andere Wahl, als ein erfahrenes und seriöses Reparaturwerkzeug zu verwenden, wie z DataNumen Outlook Repair.
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 Datei und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX