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

Jak automaticky vytvořit úkol při odesílání e-mailu v aplikaci Outlook?

Někdy budete možná muset automaticky vytvořit úkol e-mailu při jeho odesílání v Outlooku. Zde poskytujeme způsob, jak to rychle dokončit.

Automaticky vytvořit úkol při odesílání e-mailů v Outlooku pomocí VBA


Automaticky vytvořit úkol při odesílání e-mailů v Outlooku pomocí VBA

S níže uvedeným kódem VBA můžete vytvořit úkol automaticky na základě odesílajícího e-mailu v aplikaci Outlook. Postupujte prosím následovně.

1. Spusťte svůj Outlook a stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, zkopírujte níže uvedený kód VBA do ThisOutlookSession okno s kódem.

Kód VBA: Automatické vytvoření úkolu při odesílání e-mailů v aplikaci 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

Poznámka: Příjemci zprávy a tělo zprávy budou do těla úlohy přidáni automaticky. Datum zahájení úkolu je datum odeslání zprávy a úkol bude splatný za 3 dny. Úkol vám bude připomenut v 9 hodin po jednom dni. Můžete je změnit podle potřeby.

3. Uložte kód a stiskněte Další + Q klávesy pro zavření okna Microsoft Visual Basic pro aplikace.

4. Od této chvíle, když kliknete na Poslat tlačítko v novém nebo v e-mailovém okně s odpovědí, a Vytvořit úkol Zobrazí se dialogové okno, jak je uvedeno níže, klepněte na Ano odeslat e-mail a automaticky vytvořit úkol, nebo kliknout Ne odeslat e-mail bez vytvoření úkolu.


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (3)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak to upravit tak, aby obsahovalo více odkazu na odeslanou poštu než jen příjemce a předmět? tj. přidat odeslanou poštu jako přílohu?
Tento komentář byl moderátorem webu minimalizován
HI,

Pár dní to fungovalo a teď už to nefunguje.

je nějaký důvod?
Tento komentář byl moderátorem webu minimalizován
Ahoj Terri Amos,
Povolte prosím možnost Povolit všechna makra a možnost Použít nastavení zabezpečení maker na nainstalované doplňky, jak je znázorněno na obrázku níže. Poté restartujte Outlook.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění