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("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

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.