Kuinka luoda tehtävä automaattisesti lähetettäessä sähköpostia Outlookissa?
Joskus saatat joutua luomaan sähköpostin tehtävän automaattisesti, kun lähetät sen Outlookissa. Tässä tarjoamme sinulle menetelmän, jonka avulla voit tehdä sen nopeasti.
Luo tehtävä automaattisesti, kun lähetät sähköpostia Outlookissa VBA:lla
Luo tehtävä automaattisesti, kun lähetät sähköpostia Outlookissa VBA:lla
Alla olevalla VBA-koodilla voit luoda tehtävän automaattisesti Outlookissa lähetettävän sähköpostin perusteella. Toimi seuraavasti.
1. Käynnistä Outlook, paina "Alt" + "F11" avataksesi "Microsoft Visual Basic for Applications" -ikkunan.
2. Kopioi "Microsoft Visual Basic for Applications" -ikkunassa alla oleva VBA-koodi ThisOutlookSession-koodiikkunaan.
VBA-koodi: Luo tehtävä automaattisesti lähetettäessä sähköpostia Outlookissa
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
Huomautus: Viestin vastaanottajat ja viestin runko lisätään tehtävärunkoon automaattisesti. Tehtävän aloituspäivä on viestin lähetyspäivä ja tehtävän eräpäivä on 3 päivää. Sinua muistutetaan tehtävästä kello 9 yhden päivän kuluttua. Voit muuttaa niitä tarpeen mukaan.
3. Tallenna koodi ja paina "Alt" + "Q" sulkeaksesi Microsoft Visual Basic for Applications -ikkunan.
4. Tästä lähtien, kun napsautat "Lähetä"-painiketta uudessa tai vastatussa sähköposti-ikkunassa, "Luo tehtävä" -valintaikkuna avautuu alla olevan kuvakaappauksen mukaisesti. Napsauta "Kyllä" lähettääksesi sähköpostin ja luodaksesi tehtävän automaattisesti tai napsauta "Ei", jos haluat lähettää sähköpostin luomatta tehtävää.
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
