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 startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
