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

Sådan oprettes en opgave automatisk, når du sender e-mail i Outlook?

Nogle gange skal du muligvis automatisk oprette en e-mail-opgave, når du sender den i Outlook. Her giver vi dig en metode til hurtigt at få det gjort.

Opret automatisk en opgave, når du sender e-mail i Outlook med VBA


Opret automatisk en opgave, når du sender e-mail i Outlook med VBA

Med nedenstående VBA-kode kan du oprette en opgave automatisk baseret på en afsendende e-mail i Outlook. Gør som følger.

1. Start din Outlook, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer kopier nedenstående VBA-kode til Denne OutlookSession kode vindue.

VBA-kode: Opret automatisk en opgave, når du sender e-mail 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

Bemærk: Meddelelsesmodtagerne og meddelelsesteksten tilføjes automatisk i opgaveorganet. Startdatoen for opgaven er den sendte dato for meddelelsen, og opgaven forfalder om 3 dage. Du bliver mindet om opgaven kl. 9 efter en dag. Du kan ændre dem efter behov.

3. Gem koden, og tryk på andre + Q taster for at lukke vinduet Microsoft Visual Basic for Applications.

4. Fra nu af, når du klikker på Send knap i et nyt eller besvaret e-mail-vindue, a Opret opgave dialogboksen vil dukke op som vist nedenstående skærmbillede, klik Ja for at sende e-mailen og oprette en opgave automatisk eller klikke på Ingen at sende e-mailen uden at oprette en opgave.


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (3)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at ændre dette på, så det inkluderer mere af et link til den sendte mail end blot modtagere og emne? dvs. tilføje den sendte mail som vedhæftet fil?
Denne kommentar blev minimeret af moderatoren på webstedet
HI,

Dette virkede i et par dage, og nu virker det ikke længere.

Er der en grund?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Terri Amos,
Aktiver indstillingen Aktiver alle makroer og Anvend makrosikkerhedsindstillinger på installerede tilføjelsesprogrammer som vist på skærmbilledet nedenfor. Genstart derefter din Outlook.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL