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

Hogyan hozhatunk létre automatikusan feladatot e-mail küldéskor az Outlook programban?

Előfordulhat, hogy automatikusan létre kell hoznia egy e-mail feladatot, amikor azt az Outlook programba küldi. Itt biztosítunk egy módszert, amellyel gyorsan elvégezheti.

Automatikus feladat létrehozása, amikor e-mailt küld az Outlookban a VBA segítségével


Automatikus feladat létrehozása, amikor e-mailt küld az Outlookban a VBA segítségével

Az alábbi VBA-kóddal automatikusan létrehozhat egy feladatot az Outlook küldő e-mailje alapján. Kérjük, tegye a következőket.

1. Indítsa el az Outlook programot, nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakba másolja az alábbi VBA kódot a ThisOutlookSession kód ablak.

VBA-kód: Automatikus feladat létrehozása e-mail küldéskor az Outlook programban

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

Megjegyzések: Az üzenet címzettjei és az üzenet törzse automatikusan bekerül a feladat törzsébe. A feladat kezdő dátuma az üzenet elküldésének dátuma, és a feladat 3 nap múlva esedékes. Egy nap után 9 órakor emlékeztetni fogja a feladatot. Szükség szerint megváltoztathatja őket.

3. Mentse el a kódot, és nyomja meg a gombot más + Q billentyűkkel zárja be a Microsoft Visual Basic for Applications ablakot.

4. Mostantól a gombra kattintva Küldés gombot egy új vagy egy megválaszolt e-mail ablakban, a Feladat létrehozása párbeszédpanel jelenik meg, az alábbi képernyőképen látható, kattintson a gombra Igen az e-mail küldéséhez és egy feladat automatikus létrehozásához, vagy kattintson a gombra Nem az e-mail küldése feladat létrehozása nélkül.


Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
  • Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
  • Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
lövés kutools outlook kutools fül 1180x121
shot kutools outlook kutools plus tab 1180x121
 
A megjegyzések rendezése szerint
Hozzászólások (3)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Van mód ennek módosítására úgy, hogy több linket is tartalmazzon az elküldött levélre, ne csak a címzetteket és a tárgyat? azaz. csatolja az elküldött levelet?
A weboldal moderátora ezt a megjegyzést minimalizálta
SZIA,

Ez működött néhány napig, de most már nem működik.

Van valami oka?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Terri Amos!
Kérjük, engedélyezze az Összes makró engedélyezése és a Makróbiztonsági beállítások alkalmazása a telepített bővítményekre opciót az alábbi képernyőképen látható módon. Ezután indítsa újra az Outlookot.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi