So suchen Sie mit Outlook VBA automatisch nach Anhängen in bestimmten ausgehenden E-Mails

Jetzt teilen:

Manchmal vergessen Sie möglicherweise, bestimmte E-Mails mit den erforderlichen Anhängen zu versehen, z. B. E-Mails, um Ihre wöchentlichen Arbeiten zu melden. In diesem Artikel erfahren Sie, wie Sie eine Popup-Warnung aktivieren, um zu verhindern, dass Sie bestimmte E-Mails ohne Anhänge senden.

Im Gegensatz zu Outlook 2010 und früheren Versionen bietet Outlook 2013 eine native Unterstützung, die Sie daran erinnert, wenn Sie keine Dateien in den ausgehenden E-Mails angehängt haben. Sie können diese Funktion in den Outlook-Optionen wie im folgenden Screenshot aktivieren:Automatisch warnen, wenn in Outlook 2013 keine Anhänge vorhanden sind

Solange die automatische Warnung bei fehlenden Anhängen aktiviert ist, erscheint beim Senden einer E-Mail immer eine entsprechende Meldung. In den meisten Fällen benötigen Sie jedoch tatsächlich keine Anhänge. In solchen Fällen ist die Warnung eher störend. Hier erfahren Sie, wie Sie mithilfe von Outlook VBA eine automatische Warnung für bestimmte ausgehende E-Mails aktivieren, die keine Anhänge enthalten.

Automatische Überprüfung auf Anhänge in bestimmten ausgehenden E-Mails

  1. Starten Sie zu Beginn Outlook und wechseln Sie zur Registerkarte "Entwickler".
  2. Klicken Sie in der Gruppe "Code" auf die Schaltfläche "Visual Basic".Visual Basic-Schaltfläche
  3. Dann sollten Sie im neuen Popup-Fenster "Microsoft Visual Basic für Applikationen" auf das Projekt "ThisOutlookSession" doppelklicken, um es zu öffnen.
  4. Anschließend sollten Sie die folgenden Codes in das Projekt "ThisOutlookSession" kopieren.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strMsg As String
    Dim intAns As Integer
 
    If Item.Class <> olMail Then
       Exit Sub
    End If
 
    'Specify the Email Recipient and Subject
    If InStr(LCase(Item.To), "test") > 0 And InStr(LCase(Item.Subject), "worklog") > 0 Then
       If Item.Attachments.Count = 0 Then
          strMsg = "Do you want to send the email without attachments?"
          intAns = MsgBox(strMsg, vbYesNo + vbDefaultButton2 + vbExclamation, "Check for Missing Attachments")
          If intAns = vbNo Then
             Cancel = True
          End If
       End If
    End If
End Sub

Kopieren Sie die Codes in ThisOutlookSession Project

  1. Klicken Sie anschließend auf das Speichersymbol in der Symbolleiste.
  2. Danach sollten Sie diesen Code signieren.
  • Zuerst sollten Sie ein digitales Zertifikat erstellen. Microsoft Office enthält ein integriertes Hilfsprogramm namens „Digitales Zertifikat für VBA-Projekte“. Sie finden es, indem Sie im Startmenü nach „VBA“ suchen.Digitale Zertifikate für VBA-Projekte
  • Kehren Sie als Nächstes zum Fenster „Visual Basic“ zurück, um den Code zu signieren.Digitale Unterschrift
  1. Beenden Sie danach "Visual Basic" und klicken Sie auf der Registerkarte "Entwickler" auf die Schaltfläche "Makroeinstellungen". Im Dialogfeld "Trust Center" sollten Sie auswählen, dass nur digital signierte Makros aktiviert werden sollen. Denken Sie daran, zuletzt auf "OK" zu klicken.Ändern Sie die Makroeinstellungen
  2. Endlich können Sie es versuchen. Erstellen Sie eine neue Nachricht mit einem bestimmten Empfänger und Betreff, jedoch ohne Anhänge. Wenn Sie auf die Schaltfläche "Senden" klicken, wird eine Popup-Warnung angezeigt, die wie folgt dargestellt wird:Überprüfen Sie, ob Anhänge fehlen

Schützen Sie Ihre Outlook-Daten

Da Outlook anfällig für Beschädigungen ist, sollten Sie Anstrengungen unternehmen, um Ihre Outlook-Daten zu schützen. Der beste Weg ist, eine konsistente und aktuelle Sicherung zu erstellen. Daher können Sie leicht Wiederherstellen beschädigter Outlook-Daten aus den Backups, auch wenn ein unerwarteter Outlook-Absturz auftritt. Wenn die Sicherung leider fehlschlägt, haben Sie keine andere Wahl, als sich an ein erfahrenes Reparaturwerkzeug zu wenden, 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 SQL-DB-Fehler reparieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX

Jetzt teilen:

Kommentare sind geschlossen.