Note: The other languages of the website are Google-translated. Back to English

Hur skapar jag en uppgift automatiskt när du skickar e-post i Outlook?

Ibland kan du behöva automatiskt skapa en e-postuppgift när du skickar den i Outlook. Här tillhandahåller vi en metod för att snabbt få det gjort.

Skapa automatiskt en uppgift när du skickar e-post i Outlook med VBA


Skapa automatiskt en uppgift när du skickar e-post i Outlook med VBA

Med nedanstående VBA-kod kan du skapa en uppgift automatiskt baserat på ett sändande e-postmeddelande i Outlook. Gör så här.

1. Starta din Outlook, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer kopiera nedanstående VBA-kod till ThisOutlookSession kodfönster.

VBA-kod: Skapa en uppgift automatiskt när du skickar e-post i Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20181123
    Dim xYesNo As Integer
    Dim xPrompt As String
    Dim xTaskItem As TaskItem
    Dim xRecipient As String
    On Error Resume Next
    xPrompt = "Do you want to create a task for this message?"
    xYesNo = MsgBox(xPrompt, vbYesNo + vbInformation, "Kutools for Outlook")
    Cancel = False
    If xYesNo = vbNo Then Exit Sub
    Set xTaskItem = Application.CreateItem(olTaskItem)
    For Each Rcp In Item.Recipients
        If xRecipient = "" Then
            xRecipient = Rcp.Address
        Else
            xRecipient = xRecipient & vbCrLf & Rcp.Address
        End If
    Next Rcp
    xRecipient = xRecipient & vbCrLf & Item.Body
    With xTaskItem
        .Subject = Item.Subject
        .StartDate = Item.ReceivedTime
        .DueDate = Date + 3 + CDate("9:00:00 AM")
        .ReminderSet = True
        .ReminderTime = Date + 2 + CDate("9:00:00 AM")
        .Body = xRecipient
        .Save
    End With
    Set xTaskItem = Nothing
End Sub

Anmärkningar: Mottagarna av meddelandet och meddelandetexten läggs automatiskt till i uppgiftsdelen. Startdatumet för uppgiften är meddelandets skickade datum, och uppgiften kommer att förfalla om tre dagar. Du kommer att bli påmind om uppgiften klockan 3 efter en dag. Du kan ändra dem efter behov.

3. Spara koden och tryck på andra + Q för att stänga Microsoft Visual Basic for Applications-fönstret.

4. Från och med nu när du klickar på Skicka knappen i ett nytt eller svarat e-postfönster, a Skapa aktivitet dialogrutan dyker upp som nedan visas skärmdump, klicka Ja för att skicka e-postmeddelandet och skapa en uppgift automatiskt, eller klicka på Nej att skicka e-postmeddelandet utan att skapa en uppgift.


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (3)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det något sätt att ändra detta så att det inkluderar mer av en länk till det skickade e-postmeddelandet än bara mottagare och ämne? dvs. lägga till det skickade e-postmeddelandet som bilaga?
Denna kommentar minimerades av moderatoren på webbplatsen
Hl,

Detta fungerade i några dagar och nu fungerar det inte längre.

Finns det en anledning?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Terri Amos,
Vänligen aktivera alternativet Aktivera alla makron och alternativet Använd makrosäkerhetsinställningar på installerade tillägg enligt skärmdumpen nedan. Efter det, starta om din Outlook.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL