Wie kann man das Versenden einer Besprechungseinladung in Outlook verzögern? 

Normalerweise können Sie die Funktion „Verzögerte Zustellung“ verwenden, um eine Nachricht zu einem bestimmten Zeitpunkt statt sofort zu senden. Manchmal möchten Sie jedoch eine Besprechungseinladung wie eine E-Mail verzögert versenden. Wie könnten Sie eine Besprechungseinladung zum gewünschten Zeitpunkt in Outlook senden?

Versand einer Besprechungseinladung in Outlook mit VBA-Code verzögern

Versand einer Besprechungseinladung in Outlook mit VBA-Code verzögern

Möglicherweise gibt es keinen direkten Weg, eine Besprechungseinladung in Outlook zu verzögern, aber der folgende VBA-Code kann Ihnen helfen. Bitte gehen Sie wie folgt vor:

1. Zuerst sollten Sie eine neue Aufgabe erstellen. Im Fenster Neue Aufgabe:

(1.) Geben Sie den Betreff, das Startdatum und das Enddatum für die Besprechung an;

(2.) Legen Sie ein Erinnerungsdatum und eine Uhrzeit fest, zu der Sie die Besprechungseinladung senden möchten;

(3.) Geben Sie die Besprechungsnachricht ein, wie Sie sie benötigen.

2. Nachdem Sie die Aufgabe erstellt haben, klicken Sie bitte auf die Option Speichern und schließen, um dieses Fenster zu schließen.

3. Drücken Sie dann die Tasten ALT + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

4. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications auf ThisOutlookSession im Bereich Project1(VbaProject.OTM), um den Modus zu öffnen, und kopieren Sie dann den folgenden Code in das leere Modul.

VBA-Code: Verzögerter Versand einer Besprechungseinladung:

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

Hinweis: Im obigen Code ist Meeting test der Betreff, den Sie in Schritt 1 für die Besprechung erstellt haben; außerdem sollten Sie die Informationen zu den Empfängeradressen, dem Besprechungsort, der Startzeit und der Besprechungsdauer in Ihre eigenen ändern.

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

6. Von nun an wird Outlook die Besprechungseinladung automatisch versenden, wenn die Erinnerung des Aufgabenpostens zur von Ihnen festgelegten Zeit erscheint.

---

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook veröffentlicht kostenlose Version!

Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – inklusive Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP)/E-Mail senden planen/Automatische CC/BCC nach Regel beim Senden von E-Mail/Automatische Weiterleitung (Erweiterte Regeln) /Begrüßung automatisch hinzufügen/E-Mails mit mehreren Empfängern automatisch in einzelne E-Mails aufteilen...

📨 E-Mail-Management: E-Mail zurückrufen/Betrugs-E-Mails nach Betreff und anderen Kriterien blockieren/Duplikate löschen/Erweiterte Suche/Ordner organisieren...

📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...

🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...

👍 Ein-Klick-Genies: Allen mit Anhängen antworten /Anti-Phishing-E-Mails/🕘Zeitzone des Absenders anzeigen...

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Stapel Kontakt aus ausgewählten E-Mails hinzufügen/Kontaktgruppe in einzelne Gruppen aufteilen/Geburtstagserinnerung entfernen...

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Schalten Sie Kutools für Outlook sofort mit einem einzigen Klick frei. Nicht zögern, jetzt herunterladen und Ihre Effizienz steigern!

Funktionsliste von Kutools für OutlookJetzt herunterladenGehe zu Kaufen

🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar

Dringend empfohlen: Kutools für Office (5-in-1)

Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!

• ✅ Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
• 🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
• 🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint

Über die Suite ⬇ Suite herunterladen 💳 Suite kaufen