Note: The other languages of the website are Google-translated. Back to English

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


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (0)
Inga betyg än. Bli först med att betygsätta!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL