Sådan oprettes en opgave automatisk, når du sender e-mail i Outlook?
Nogle gange skal du muligvis automatisk oprette en opgave i en e-mail, 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 venligst 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 vinduet skal du kopiere nedenstående VBA-kode ind i 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: Beskedmodtagerne og meddelelsesteksten tilføjes automatisk til opgaveteksten. Startdatoen for opgaven er afsendelsesdatoen for beskeden, 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-mailvindue, en Opret opgave dialogboksen vil dukke op som vist nedenfor skærmbillede, klik Ja for at sende e-mailen og oprette en opgave automatisk, eller klik Ingen at sende e-mailen uden at oprette opgave.
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.