Hur man automatiskt skapar en uppgift när en specifik kategori tilldelas ett e-postmeddelande i Outlook

Den här artikeln lär dig hur du automatiskt skapar en ny uppgift när du tilldelar en viss färgkategori till ett e-postmeddelande med hjälp av Outlook VBA.

Tidigare, när jag fick ett e-postmeddelande som var involverat i en uppgift, brukade jag ange kategorin "Uppgift" för det här e-postmeddelandet och fortsätta skapa en ny relaterad uppgift. För att vara ärlig är denna process verkligen tidskrävande. Jag måste skriva ner all information i förväg, eftersom dessa detaljer måste krävas i den nya uppgiften. Men nu, med hjälp av VBA, kan Outlook automatiskt skapa en ny uppgift när jag anger kategorin "Task" till ett e-postmeddelande. Om du är intresserad av detta tips, läs vidare för att få dem i detalj.

Skapa automatiskt en uppgift när en specifik kategori tilldelas ett e-postmeddelande

1. Till att börja med, starta Outlook och växla till fliken "Utvecklare".
2. På den här fliken kan du hitta och klicka på "Visual Basic" -knappen.
3. Då öppnas ett nytt fönster med "Microsoft Visual Basic for Applications". I den borde du dubbelklicka på “ThisOutlookSession” -projektet.
4. Därefter ska du kopiera följande VBA-koder till projektfönstret “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

5. Därefter måste du underteckna den här koden. Du kan använda det inbyggda Office-verktyget - “Digital Certificate for VBA Projects” för att uppnå det. För mer detaljerade steg, se steg 2 i den här artikeln “2 steg för att automatiskt markera skräppost som läst i Outlook".
6. Senare för att förhindra externt skadligt makro bör du vända dig till “Trust Center” och ändra makroinställningarna för att endast aktivera digitalt signerade makron.
7. Så småningom kan du prova.

• Pitch på en post och tilldela en specifik kategori till den, som följande skärmdump:
• Omedelbart skapas en ny uppgift automatiskt och visas i ett nytt popup-fönster.

Håll koll på skadliga makron i misstänkta e-postmeddelanden

Det är mycket viktigt att blockera alla externa, icke-signerade makron, genom att de kan innehålla virus eller skadlig kod, vilket enkelt kan skada dina Outlook-data. Så användarna bör ägna stor uppmärksamhet åt e-postmeddelanden som följer med makron. Dessutom är det mycket tillrådligt att investera i en anmärkningsvärd skadad Outlook-datafixeringsverktyg, tycka om DataNumen Outlook Repair. Det kan komma till din räddning när du får en oväntad Outlook-krasch.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparera SQL mdf-fel och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com