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

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


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (0)
Ingen vurderinger endnu. Vær den første til at bedømme!
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL