Hoppa till huvudinnehåll

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.

doc fördröjning av möte 1

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(",,", ",")
    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 fördröjning av möte 2

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.


Bästa kontorsproduktivitetsverktyg

Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook

📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP)  /  Schemalägg Skicka e-post  /  Auto CC/BCC enligt regler när du skickar e-post  /  Automatisk vidarebefordran (avancerade regler)   /  Lägg automatiskt till hälsning   /  Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...

📨 Email Management: Hämta enkelt e-postmeddelanden  /  Blockera bluff-e-postmeddelanden av ämnen och andra  /  Ta bort duplicerade e-postmeddelanden  /  Avancerad Sökning  /  Konsolidera mappar ...

📁 Bilagor ProBatch Spara  /  Batch lossa  /  Batchkomprimera  /  Automatisk sparning   /  Auto Lossa  /  Automatisk komprimering ...

🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis   /  Öka din Outlook-produktivitet med flikar  /  Minimera Outlook istället för att stänga ...

👍 Underverk med ett klick: Svara alla med inkommande bilagor  /   E-postmeddelanden mot nätfiske  /  🕘Visa avsändarens tidszon ...

👩🏼‍🤝‍👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden  /  Dela upp en kontaktgrupp till individuella grupper  /  Ta bort påminnelser om födelsedag ...

Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.

Läs mer       Gratis nedladdning      Inköp
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations