Hur skapar jag en uppgift automatiskt när du skickar e-post i Outlook?
Ibland kan du behöva automatiskt skapa en e-postuppgift när du skickar den i Outlook. Här tillhandahåller vi en metod för att snabbt få det gjort.
Skapa automatiskt en uppgift när du skickar e-post i Outlook med VBA
Skapa automatiskt en uppgift när du skickar e-post i Outlook med VBA
Med nedanstående VBA-kod kan du skapa en uppgift automatiskt baserat på ett sändande e-postmeddelande i Outlook. Gör så här.
1. Starta din Outlook, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer kopiera nedanstående VBA-kod till ThisOutlookSession kodfönster.
VBA-kod: Skapa en uppgift automatiskt när du skickar e-post i 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
Anmärkningar: Mottagarna av meddelandet och meddelandetexten läggs automatiskt till i uppgiftsdelen. Startdatumet för uppgiften är meddelandets skickade datum, och uppgiften kommer att förfalla om tre dagar. Du kommer att bli påmind om uppgiften klockan 3 efter en dag. Du kan ändra dem efter behov.
3. Spara koden och tryck på andra + Q för att stänga Microsoft Visual Basic for Applications-fönstret.
4. Från och med nu när du klickar på Skicka knappen i ett nytt eller svarat e-postfönster, a Skapa aktivitet dialogrutan dyker upp som nedan visas skärmdump, klicka Ja för att skicka e-postmeddelandet och skapa en uppgift automatiskt, eller klicka på Nej att skicka e-postmeddelandet utan att skapa en uppgift.
Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!
- Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
- BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
- Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
- Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
- Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
