Note: The other languages of the website are Google-translated. Back to English

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.

doc întârziere trimiterea întâlnirii 1

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("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
    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

doc întârziere trimiterea întâlnirii 2

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.


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL