Sådan oprettes en opgave automatisk, når du sender e-mail i Outlook?
Nogle gange skal du muligvis automatisk oprette en e-mail-opgave, når du sender den i Outlook. Her giver vi dig en metode til hurtigt at få det gjort.
Opret automatisk en opgave, når du sender e-mail i Outlook med VBA
Opret automatisk en opgave, når du sender e-mail i Outlook med VBA
Med nedenstående VBA-kode kan du oprette en opgave automatisk baseret på en afsendende e-mail i Outlook. Gør som følger.
1. Start din Outlook, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer kopier nedenstående VBA-kode til Denne OutlookSession kode vindue.
VBA-kode: Opret automatisk en opgave, når du sender e-mail 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
Bemærk: Meddelelsesmodtagerne og meddelelsesteksten tilføjes automatisk i opgaveorganet. Startdatoen for opgaven er den sendte dato for meddelelsen, og opgaven forfalder om 3 dage. Du bliver mindet om opgaven kl. 9 efter en dag. Du kan ændre dem efter behov.
3. Gem koden, og tryk på andre + Q taster for at lukke vinduet Microsoft Visual Basic for Applications.
4. Fra nu af, når du klikker på Send knap i et nyt eller besvaret e-mail-vindue, a Opret opgave dialogboksen vil dukke op som vist nedenstående skærmbillede, klik Ja for at sende e-mailen og oprette en opgave automatisk eller klikke på Ingen at sende e-mailen uden at oprette en opgave.
Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!
- Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
- BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
- Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
- Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
- Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
