Hoppa till huvudinnehåll

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

Författare: Xiaoyang Senast ändrad: 2018-11-30

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

Nyheter: Kutools för Outlook lanseras Gratis version!

Upplev de helt nya Kutools för Outlook GRATIS version med 70+ otroliga funktioner, din att använda FÖR EVIGT! Klicka för att ladda ner nu!

🤖 Kutools AI : Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...

📧 Email Automation: Autosvar (tillgängligt 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: Återkalla 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   /  Påminn dig när viktiga mejl kommer  /  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 ...

Lås upp Kutools för Outlook omedelbart med ett enda klick—permanent gratis. Vänta inte, ladda ner nu och öka din effektivitet!

kutools för Outlook-funktioner1 kutools för Outlook-funktioner2
 

 

 

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