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.
