Cum să amânați trimiterea invitației la întâlnire în Outlook?
În mod normal, puteți aplica caracteristica Întârziere livrare pentru a trimite un mesaj la o anumită oră, în loc de chiar acum. Dar, uneori, doriți să amânați o invitație la întâlnire, cum ar fi un e-mail. Cum ați putea trimite o invitație la întâlnire la ora dorită, după cum aveți nevoie în Outlook?
Întârziați o invitație de întâlnire de trimitere în Outlook cu codul VBA
Întârziați o invitație de întâlnire de trimitere în Outlook cu codul VBA
Poate fi, nu există o modalitate directă de a amâna o invitație de întâlnire în perspectivă, dar, codul VBA de mai jos vă poate face o favoare, vă rugăm să faceți acest lucru:
1. În primul rând, ar trebui să creați o nouă sarcină. În nou Sarcină fereastră:
(1.) Specificați subiectul, data de începere, data de încheiere a ședinței;
(2.) Setați o dată și o oră de reamintire când doriți să trimiteți invitația la întâlnire;
(3.) Tastați mesajul întâlnirii după cum aveți nevoie.
2. După crearea sarcinii, faceți clic pe Salvați și închideți opțiune pentru a închide această fereastră.
3. Apoi, țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
4. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Această sesiune Outlook de la Project1 (VbaProject.OTM) pentru a deschide modul, apoi copiați și lipiți următorul cod în modulul gol.
Cod VBA: întârziați o invitație de întâlnire de trimitere:
Private Sub Application_Reminder(ByVal Item As Object)
Dim xTaskItem As TaskItem
Dim xAppointmentItem As AppointmentItem
Dim xRcpArr() As String
If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
Exit Sub
End If
Set xTaskItem = Item
xRcpArr = VBA.Split(",,", ",")
Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
With xAppointmentItem
.MeetingStatus = olMeeting
For i = 0 To UBound(xRcpArr)
.Recipients.Add (xRcpArr(i))
Next
.Subject = xTaskItem.Subject
.Location = "Office room 1002"
.Start = xTaskItem.StartDate + #2:00:00 PM#
.Body = xTaskItem.Body
.Duration = 120
.ReminderSet = True
.ReminderMinutesBeforeStart = 20
.Save
.Send
End With
xTaskItem.MarkComplete
Set xTaskItem = Nothing
End Sub
notițe: În codul de mai sus: Test de întâlnire este subiectul pe care l-ați creat pentru întâlnire la pasul 1; și, ar trebui să schimbați informațiile despre adresele destinatarului, locația întâlnirii, timpul de începere și durata întâlnirii pentru al tău.
5. Salvați și închideți codul, apoi reporniți Outlook pentru a face acest cod să intre în vigoare.
6. De acum înainte, când memento-ul articolului de activitate apare la ora specificată, Outlook va trimite automat invitația la întâlnire.
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.