Hur fördröjer jag mötesinbjudan i Outlook? 

Normalt kan du använda funktionen Delay Delivery för att skicka ett meddelande vid en viss tidpunkt istället för just nu. Men ibland vill du försena en mötesinbjudan som ett e-postmeddelande. Hur kan du skicka en mötesinbjudan vid önskad tidpunkt i Outlook?

Försena en sändande mötesinbjudan i Outlook med VBA-kod

---

Försena en sändande mötesinbjudan i Outlook med VBA-kod

Det kan finnas, det finns inget direkt sätt att fördröja en mötesinbjudan i Outlook, men nedanstående VBA-kod kan göra dig en tjänst, gör så här:

1. Först bör du skapa en ny uppgift. I det nya uppgift fönster:

(1.) Ange ämne, startdatum, slutdatum för mötet;

(2.) Ställ in påminnelsedatum och -tid när du vill skicka mötesinbjudan;

(3.) Skriv mötesmeddelandet efter behov.

2. När du har skapat uppgiften klickar du på Spara och stäng alternativ för att stänga det här fönstret.

3. Håll sedan ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

4. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession från Project1 (VbaProject.OTM) rutan för att öppna läget och sedan kopiera och klistra in följande kod i den tomma modulen.

VBA-kod: Försena en sändande mötesinbjudan:

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

Anmärkningar: I ovanstående kod: Möteprov är ämnet som du skapade för mötet i steg 1; och du bör ändra informationen på mottagaradresser, mötesplats, starttid och mötets varaktighet till din egen.

5. Spara och stäng koden och starta sedan om Outlook så att den här koden träder i kraft.

6. Från och med nu, när påminnelsen om uppgiften dyker upp vid den specifika tidpunkten du ställer in, skickar Outlook automatiskt mötesinbjudan.