Hvordan udsætter man afsendelsen af mødeanmodning i Outlook?

Normalt kan du anvende funktionen Forsink levering til at sende en besked på et bestemt tidspunkt i stedet for lige nu. Men nogle gange vil du forsinke en afsendende mødeinvitation som en e-mail. Hvordan kunne du sende en mødeinvitation på det ønskede tidspunkt, som du har brug for i Outlook?

Forsink en afsendende mødeinvitation i Outlook med VBA-kode

Forsink en afsendende mødeinvitation i Outlook med VBA-kode

Måske er der ingen direkte måde at forsinke en mødeinvitation i udsigterne på, men nedenstående VBA-kode kan gøre dig en tjeneste, vær venlig at gøre som dette:

1. Først skal du oprette en ny opgave. I det nye Opgaver vindue:

(1.) Angiv emne, startdato, slutdato for mødet;

(2.) Indstil en påmindelsesdato og -tid, når du vil sende mødeinvitationen;

(3.) Indtast mødemeddelelsen, som du har brug for.

doc forsinkelse af afsendelse af møde 1

2. Når du har oprettet opgaven, skal du klikke Gem og luk mulighed for at lukke dette vindue.

3. Hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

4. I Microsoft Visual Basic til applikationer dobbeltklik på vinduet Denne OutlookSession fra Project1 (VbaProject.OTM) rude for at åbne tilstanden og derefter kopiere og indsætte følgende kode i det tomme modul.

VBA-kode: Forsink en afsendende mødeinvitation:

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

doc forsinkelse af afsendelse af møde 2

Bemærk: I ovenstående kode: Mødetest er emnet, du oprettede til mødet i trin 1; og du skal ændre oplysningerne om modtageradresser, mødested, starttidspunkt , mødets varighed til din egen.

5. Gem og luk koden, og genstart derefter Outlook for at få denne kode til at træde i kraft.

6. Fra nu af, når påmindelsen om opgaveelementet dukker op på det specifikke tidspunkt, du indstiller, sender Outlook automatisk mødeinvitationen.