Jak automatycznie sprawdzać załączniki w określonych wychodzących wiadomościach e-mail za pomocą programu Outlook VBA

Podziel się teraz:

Czasami możesz zapomnieć o dodaniu wymaganych załączników do określonych wiadomości e-mail, takich jak e-maile do zgłaszania tygodniowych prac. W tym artykule dowiesz się, jak aktywować wyskakujące okienko z ostrzeżeniem, aby uniemożliwić wysyłanie określonych wiadomości e-mail bez załączników.

W przeciwieństwie do programu Outlook 2010 i poprzednich wersji, program Outlook 2013 ma natywną obsługę przypominającą, gdy nie załączono żadnych plików w wychodzących wiadomościach e-mail. Możesz włączyć tę funkcję w opcjach programu Outlook, jak na poniższym zrzucie ekranu:Automatyczne ostrzeżenie, jeśli nie ma załączników w programie Outlook 2013

Dopóki włączysz automatyczne ostrzeżenie o brakujących załącznikach, za każdym razem, gdy wysyłasz e-mail, pojawi się komunikat ostrzegawczy. Jednak w większości przypadków nie musisz dołączać plików. W takich przypadkach ostrzeżenie będzie irytujące. Tutaj pokażemy Ci, jak włączyć automatyczne ostrzeżenie o braku załączników w określonych wiadomościach wychodzących za pomocą Outlook VBA.

Automatyczne sprawdzanie załączników w określonych wychodzących wiadomościach e-mail

  1. Na samym początku uruchom Outlooka i przejdź do zakładki „Deweloper”.
  2. Kliknij przycisk „Visual Basic” w grupie „Code”.Przycisk Visual Basic
  3. Następnie w nowym wyskakującym oknie „Microsoft Visual Basic for Applications” należy dwukrotnie kliknąć projekt „ThisOutlookSession”, aby go otworzyć.
  4. Następnie należy skopiować poniższe kody do projektu „ThisOutlookSession”.
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

Skopiuj kody w projekcie ThisOutlookSession

  1. Następnie kliknij ikonę zapisu na pasku narzędzi.
  2. Następnie należy przystąpić do podpisania tego kodu.
  • Najpierw należy utworzyć certyfikat cyfrowy. Pakiet MS Office zawiera wbudowane narzędzie „Certyfikat cyfrowy dla projektów VBA”. Można je znaleźć, wyszukując „vba” w menu Start.Certyfikaty cyfrowe dla projektów VBA
  • Następnie wróć do okna „visual basic”, aby podpisać kod.Podpis cyfrowy
  1. Następnie zamknij „Visual Basic” i kliknij przycisk „Ustawienia makr” w zakładce „Programista”. W oknie dialogowym „Centrum zaufania” należy wybrać opcję włączania tylko makr podpisanych cyfrowo. Pamiętaj, aby na koniec kliknąć „OK”.Zmień ustawienia makr
  2. Wreszcie możesz spróbować. Utwórz nową wiadomość z określonym odbiorcą i tematem, ale bez załączników. Po kliknięciu przycisku „Wyślij” pojawi się wyskakujące okienko z ostrzeżeniem, jak na poniższym obrazku:Sprawdź brakujące załączniki

Chroń swoje dane programu Outlook

Ponieważ ten Outlook jest podatny na uszkodzenia, powinieneś dołożyć starań, aby chronić swoje dane Outlooka. Najlepszym sposobem jest wykonanie spójnej i aktualnej kopii zapasowej. Dlatego możesz łatwo odzyskać uszkodzone dane programu Outlook z kopii zapasowych, nawet jeśli wystąpi nieoczekiwana awaria programu Outlook. Dodatkowo, jeśli niestety tworzenie kopii zapasowej się nie powiedzie, nie masz innego wyjścia, jak tylko skorzystać z pomocy doświadczonego narzędzia naprawczego, takiego jak DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym napraw błąd bazy danych SQL i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com

Podziel się teraz:

Możliwość dodawania komentarzy nie jest dostępna.