Kako samodejno ustvariti nalogo pri pošiljanju e-pošte v Outlooku?

Včasih boste morda morali samodejno ustvariti nalogo e-poštnega sporočila, ko ga pošljete v Outlooku. Tu ponujamo metodo, s katero lahko to hitro opravite.

Samodejno ustvari nalogo pri pošiljanju e-pošte v Outlooku z VBA

Samodejno ustvari nalogo pri pošiljanju e-pošte v Outlooku z VBA

S spodnjo kodo VBA lahko nalogo na podlagi pošiljanja e-pošte v Outlooku ustvarite samodejno. Naredite naslednje.

1. Zaženite Outlook, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte spodnjo kodo VBA v Ta OutlookSession okno kode.

Koda VBA: samodejno ustvarite nalogo pri pošiljanju e-pošte v Outlooku

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

Opombe: Prejemniki sporočil in telo sporočila bodo samodejno dodani v telo opravila. Začetni datum opravila je datum poslanega sporočila, opravilo pa bo predvideno v treh dneh. Naloga vas bo po enem dnevu opozorila ob 3. uri. Lahko jih spremenite po potrebi.

3. Shranite kodo in pritisnite druga + Q tipke za zapiranje okna Microsoft Visual Basic for Applications.

4. Od zdaj naprej, ko kliknete Pošlji v novem ali odgovorjenem e-poštnem oknu, a Ustvari opravilo Pojavi se pogovorno okno, kot je prikazano na spodnji sliki zaslona, ​​kliknite Da če želite poslati e-poštno sporočilo in samodejno ustvariti nalogo, ali kliknite Ne za pošiljanje e-pošte brez ustvarjanja naloge.