Cum să creați automat o sarcină atunci când trimiteți e-mail în Outlook?
Uneori, poate fi necesar să creați automat o sarcină a unui e-mail atunci când îl trimiteți în Outlook. Aici vă oferim o metodă pentru a o realiza rapid.
Creați automat o sarcină atunci când trimiteți e-mail în Outlook cu VBA
Creați automat o sarcină atunci când trimiteți e-mail în Outlook cu VBA
Cu codul VBA de mai jos, puteți crea o sarcină automat pe baza unui e-mail de trimitere în Outlook. Vă rugăm să faceți următoarele.
1. Lansați Outlook, apăsați butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, copiați codul VBA de mai jos în Această sesiune Outlook fereastra de cod.
Cod VBA: creați automat o sarcină atunci când trimiteți e-mail în 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
notițe: Destinatarii mesajului și corpul mesajului vor fi adăugate automat în corpul sarcinii. Data de începere a sarcinii este data trimisă a mesajului, iar sarcina va fi scadentă în 3 zile. Vi se va reaminti sarcina la 9 dimineața după o zi. Le puteți schimba după cum aveți nevoie.
3. Salvați codul și apăsați tasta Alt + Q tastele pentru a închide fereastra Microsoft Visual Basic pentru aplicații.
4. De acum înainte, când faceți clic pe Trimiteți butonul dintr-o fereastră de e-mail nouă sau cu răspuns, o Creați o sarcină se va afișa caseta de dialog așa cum este prezentată mai jos, faceți clic Da pentru a trimite e-mailul și a crea o sarcină automat sau faceți clic pe Nu pentru a trimite e-mailul fără a crea sarcină.
Cele mai bune instrumente de productivitate de birou
Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook
🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...
📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.