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

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.


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (3)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način, da to spremenite tako, da vključite več povezave do poslane pošte kot le prejemnike in zadevo? tj. dodati poslano pošto kot prilogo?
Ta komentar je moderator na spletnem mestu minimiziral
HI,

To je delovalo nekaj dni, zdaj pa ne deluje več.

Ali obstaja razlog?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Terri Amos,
Omogočite možnost Omogoči vse makre in možnost Uporabi varnostne nastavitve makra za nameščene dodatke, kot je prikazano na spodnjem posnetku zaslona. Po tem znova zaženite Outlook.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije