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

Wie kann ich das Senden einer Besprechungseinladung in Outlook verzögern? 

Normalerweise können Sie die Funktion "Zustellung verzögern" zum Senden einer Nachricht zu einem bestimmten Zeitpunkt anstatt jetzt anwenden. Manchmal möchten Sie jedoch das Senden einer Besprechungseinladung wie eine E-Mail verzögern. Wie können Sie eine Besprechungseinladung zum gewünschten Zeitpunkt senden, wenn Sie dies in Outlook benötigen?

Verzögern Sie das Senden einer Besprechungseinladung in Outlook mit VBA-Code


Verzögern Sie das Senden einer Besprechungseinladung in Outlook mit VBA-Code

Möglicherweise gibt es keine direkte Möglichkeit, eine Einladung zu einem Meeting in Outlook zu verzögern, aber der folgende VBA-Code kann Ihnen einen Gefallen tun. Bitte tun Sie Folgendes:

1. Zunächst sollten Sie eine neue Aufgabe erstellen. Im neuen Aufgabe Fenster:

(1.) Geben Sie das Thema, das Startdatum und das Enddatum der Sitzung an.

(2.) Legen Sie ein Erinnerungsdatum und eine Erinnerungszeit fest, an die Sie die Besprechungseinladung senden möchten.

(3.) Geben Sie die Besprechungsnachricht nach Bedarf ein.

doc Verzögerung beim Senden von Besprechungen 1

2. Klicken Sie nach dem Erstellen der Aufgabe auf Speichern und schließen Option zum Schließen dieses Fensters.

3. Halten Sie dann die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

4. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick DieseOutlookSession von dem Projekt1 (VbaProject.OTM) Bereich, um den Modus zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.

VBA-Code: Verzögerung einer Einladung zum Senden eines Meetings:

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 Verzögerung beim Senden von Besprechungen 2

Hinweis: Im obigen Code: Besprechungstest ist das Thema, das Sie in Schritt 1 für das Meeting erstellt haben. und Sie sollten die Informationen von ändern Empfängeradressen, Treffpunkt, Startzeit und Besprechungsdauer zu deinen eigenen.

5. Speichern und schließen Sie den Code und starten Sie Outlook neu, damit dieser Code wirksam wird.

6. Von nun an sendet Outlook die Besprechungseinladung automatisch, wenn die Erinnerung an das Aufgabenelement zu dem von Ihnen festgelegten Zeitpunkt angezeigt wird.


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL