Jak automatycznie utworzyć zadanie za każdym razem, gdy do wiadomości e-mail zostanie przypisana określona kategoria w programie Outlook

Podziel się teraz:

Z tego artykułu dowiesz się, jak automatycznie utworzyć nowe zadanie po przypisaniu określonej kategorii kolorów do wiadomości e-mail za pomocą programu Outlook VBA.

W przeszłości, gdy otrzymywałem wiadomość e-mail związaną z zadaniem, określałem kategorię „Zadanie” dla tego e-maila i przystępowałem do tworzenia nowego powiązanego zadania. Szczerze mówiąc, ten proces jest rzeczywiście czasochłonny. Muszę zapisać wszystkie informacje z wyprzedzeniem, ponieważ te szczegóły muszą być wymagane w nowym zadaniu. Ale teraz, z pomocą VBA, Outlook może automatycznie utworzyć nowe zadanie za każdym razem, gdy określę kategorię „Zadanie” w wiadomości e-mail. Jeśli interesuje Cię ta wskazówka, czytaj dalej, aby uzyskać szczegółowe informacje.

Automatycznie twórz zadanie za każdym razem, gdy do wiadomości e-mail zostanie przypisana określona kategoria

  1. Na początek uruchom program Outlook i przejdź na kartę „Deweloper”.
  2. Na tej karcie możesz znaleźć i kliknąć przycisk „Visual Basic”.
  3. Następnie otworzy się nowe okno „Microsoft Visual Basic for Applications”. W nim powinieneś dwukrotnie kliknąć projekt „ThisOutlookSession”.
  4. Następnie należy skopiować poniższe kody VBA do okna projektu „ThisOutlookSession”.
Public WithEvents OlItems As Outlook.Items

Sub Application_Startup()
    Set OlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Sub OlItems_ItemChange(ByVal Item As Object)
    Dim obApp As Application
    Dim olTask As TaskItem

    If Item.Class = olMail And Item.Categories = "Task" Then
       Set obApp = Outlook.Application
       Set olTask = obApp.CreateItem(olTaskItem)
       With olTask
            .Subject = Item.Subject
            .Body = Item.Body
            .Attachments.Add Item
            .StartDate = Now
            .DueDate = Now + 3
            .Save
            .Display
       End With
    End If
 
    'To clear the category
    'If you want to keep the category, remove the following four lines
    With Item
         .Categories = ""
         .Save
    End With
 
    Set obApp = Nothing
    Set olTask = Nothing
End Sub

Skopiuj i wklej kody w ThisOutlookSession

  1. Następnie będziesz musiał podpisać ten kod. Aby to osiągnąć, możesz użyć wbudowanego narzędzia pakietu Office – „Certyfikat cyfrowy dla projektów VBA”. Bardziej szczegółowe kroki można znaleźć w kroku 2 w tym artykule „2 kroki, aby automatycznie oznaczyć wiadomości-śmieci jako przeczytane w programie Outlook".Certyfikaty cyfrowe dla projektów VBA
  2. Później, aby zapobiec zewnętrznemu złośliwemu makrowi, należy przejść do „Centrum zaufania” i zmienić ustawienia makr, aby włączyć tylko makra podpisane cyfrowo.Zmień ustawienia makr
  3. W końcu możesz spróbować.
  • Zaprezentuj przesyłkę pocztową i przypisz jej określoną kategorię, tak jak na poniższym zrzucie ekranu:Przypisz określoną kategorię do wiadomości e-mail
  • Natychmiast nowe zadanie zostanie utworzone automatycznie i zostanie wyświetlone w nowym oknie podręcznym.Nowe zadanie

Miej oko na złośliwe makra w podejrzanych wiadomościach e-mail

Niezwykle ważne jest zablokowanie wszystkich zewnętrznych niepodpisanych makr, ponieważ mogą one zawierać wirusy lub złośliwe oprogramowanie, które z łatwością mogą uszkodzić dane programu Outlook. Dlatego użytkownicy powinni zwracać szczególną uwagę na e-maile, które są dostarczane z makrami. Ponadto wysoce wskazane jest zainwestowanie w coś niezwykłego uszkodzone narzędzie do naprawy danych programu Outlook, lubić DataNumen Outlook Repair. Może przyjść ci na ratunek, gdy doznasz nieoczekiwanej awarii programu Outlook.

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 SQL mdf 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.