Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Termin erstellen und versenden

Termin erstellen und versenden
Captain
Hi,
ich will einen Termin über meine UF erstellen (klappt auch) und diesen Termin an einen anderen User verschicken...klappt aber nicht .-(
Was mache ich falsch?

Private Sub cmd_send_appointment_Click()
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp
MeetingStatus = olMeeting
.Recipients.Add Me.txt_user
'Datum und Uhrzeit
.START = Me.txt_beginnt_am & " " & Me.cbo_beginnt_am.Value
.End = Me.txt_endet_um & " " & Me.cbo_endet_um.Value
.Subject = Me.txt_subject
.Body = Me.txt_body
.Location = Me.txt_location
.Duration = "5"
.ReminderMinutesBeforeStart = Me.cbo_reminder.Value
.ReminderPlaySound = True
.ReminderSet = True
.Save
Application.SendKeys "%s"
.Send
End With
Set apptOutApp = Nothing
Set OutApp = Nothing
MsgBox "Termine erfolgreich verschickt!"
Unload Me
End Sub
Danke
Jack
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
Habs gefunden
18.08.2010 12:56:12
Captain

Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp
.MeetingStatus = olMeeting
.RequiredAttendees = Me.txt_user
'Datum und Uhrzeit
.START = Me.txt_beginnt_am & " " & Me.cbo_beginnt_am.Value
.End = Me.txt_endet_um & " " & Me.cbo_endet_um.Value
.Subject = Me.txt_subject
.Body = Me.txt_body
.Location = Me.txt_location
.Duration = "5"
.ReminderMinutesBeforeStart = Me.cbo_reminder.Value
.ReminderPlaySound = True
.ReminderSet = True
.Send
Application.SendKeys "%s"
End With
Set apptOutApp = Nothing
Set OutApp = Nothing
MsgBox "Termine erfolgreich verschickt!"
Unload Me

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Termine erstellen und versenden in Excel und Outlook


Schritt-für-Schritt-Anleitung

Um einen Termin aus Excel zu erstellen und diesen über Outlook zu versenden, kannst du folgende Schritte befolgen:

  1. Öffne Excel und erstelle ein neues Arbeitsblatt.

  2. Füge die notwendigen Eingabefelder in dein Arbeitsblatt ein, wie:

    • Benutzername (txt_user)
    • Beginn-Datum (txt_beginnt_am)
    • Beginn-Uhrzeit (cbo_beginnt_am)
    • Ende-Datum (txt_endet_um)
    • Ende-Uhrzeit (cbo_endet_um)
    • Betreff (txt_subject)
    • Beschreibung (txt_body)
    • Ort (txt_location)
    • Erinnerungszeit (cbo_reminder)
  3. Füge einen Button hinzu, um den Termin zu erstellen und zu versenden. Linke dazu auf "Entwicklertools" und wähle "Button".

  4. Verwende den folgenden VBA-Code im Button:

    Private Sub cmd_send_appointment_Click()
       Set OutApp = CreateObject("Outlook.Application")
       Set apptOutApp = OutApp.CreateItem(1)
       With apptOutApp
           .MeetingStatus = olMeeting
           .RequiredAttendees = Me.txt_user
           .Start = Me.txt_beginnt_am & " " & Me.cbo_beginnt_am.Value
           .End = Me.txt_endet_um & " " & Me.cbo_endet_um.Value
           .Subject = Me.txt_subject
           .Body = Me.txt_body
           .Location = Me.txt_location
           .Duration = "5"
           .ReminderMinutesBeforeStart = Me.cbo_reminder.Value
           .ReminderPlaySound = True
           .ReminderSet = True
           .Send
       End With
       Set apptOutApp = Nothing
       Set OutApp = Nothing
       MsgBox "Termine erfolgreich verschickt!"
       Unload Me
    End Sub
  5. Teste den Button, um sicherzustellen, dass die Einladung in Outlook korrekt erstellt und versendet wird.


Häufige Fehler und Lösungen

  • Fehler: Die Einladung wird nicht versendet.

    • Lösung: Stelle sicher, dass die E-Mail-Adresse im Feld txt_user korrekt ist und Outlook geöffnet ist.
  • Fehler: Der Termin wird nicht als Meeting angezeigt.

    • Lösung: Überprüfe, ob die Zeile .MeetingStatus = olMeeting im Code enthalten ist.
  • Fehler: Fehlermeldung bei der Ausführung des Codes.

    • Lösung: Vergewissere dich, dass das Makro aktiviert ist und die Sicherheitsstufe in Excel dies zulässt.

Alternative Methoden

Du kannst auch das Outlook-Add-In "Microsoft Flow" verwenden, um Termine direkt aus Excel zu erstellen und zu versenden. Dies erfordert keine Programmierkenntnisse und funktioniert hervorragend für automatisierte Aufgaben.


Praktische Beispiele

  • Beispiel 1: Einfache Einladung an einen Benutzer:

    .RequiredAttendees = "benutzer@example.com"
  • Beispiel 2: Einladung an mehrere Benutzer:

    .RequiredAttendees = "benutzer1@example.com; benutzer2@example.com"
  • Beispiel 3: Verwendung von Variablen für Datum und Uhrzeit:

    Dim startDate As Date
    startDate = Date + 1 ' für morgen
    .Start = startDate & " 14:00"

Tipps für Profis

  • Verwende Fehlerbehandlungsroutinen im VBA-Code, um unerwartete Fehler elegant zu handhaben.
  • Experimentiere mit Erinnerungszeiten, um sicherzustellen, dass deine Teilnehmer rechtzeitig informiert werden.
  • Nutze Farbcodierungen in deinem Excel-Dokument, um verschiedene Arten von Terminen visuell zu unterscheiden.

FAQ: Häufige Fragen

1. Wie kann ich einen Termin in Outlook verschicken?
Um einen Termin in Outlook zu verschicken, kannst du das VBA-Skript verwenden, das in der Schritt-für-Schritt-Anleitung bereitgestellt wird.

2. Kann ich Erinnerungen für Termine einstellen?
Ja, du kannst Erinnerungen mit dem Parameter .ReminderMinutesBeforeStart im VBA-Code einstellen.

3. Ist es möglich, Termine an mehrere Teilnehmer zu senden?
Ja, du kannst mehrere E-Mail-Adressen durch Semikolons getrennt in das Feld RequiredAttendees einfügen.

4. Welche Excel-Version benötige ich für diese Methode?
Die beschriebenen Schritte funktionieren in Excel 2010 und neueren Versionen, die VBA unterstützen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige