Live-Forum - Die aktuellen Beiträge
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige