Office: (Office 2010) Mit Excel eine automatische Termingenerierung für Outlook erstellen

Moin Leute,

ich bin ganz neu hier und habe auch direkt eine Frage auf die ich bis jetzt leider durch "googlen" noch keine Antwort gefunden habe. Und zwar habe ich eine Excel Tabelle mit Terminen für unterschiedliche Personen. Ich bin auf der suche nach einem Skript, welches automatisch anhand der Informationen aus der Tabelle einen jeweils passenden Outlook Termin generiert. Hat jemand ein Skriptbeispiel? Oder weiß jemand wo ich ein solches herbekommen könnte?

(Das Skript aus diesem Beitrag habe ich bereits probiert, es funktioniert leider nicht. http://www.ms-office-forum.net/forum...d.php?t=302342)

Vielen Dank schonmal im Vorraus.

LG Florin

:)

 

Noch eine kleine Ergänzung:

Wichtig ist dabei, dass die beteiligten Personen eine Errinerungsmail für den eingestellten Termin bekommen.

 

Noch ein kleiner Update:
Nach ewigem gesuche und zusammen gebastle habe ich nun ein passendes Makro:


Private Sub test()

Dim TerminText As String
Dim OutApp As Object, apptOutApp As Object
Dim Spalte, SpalteN As Variant
Dim b, x As Integer
TerminText = [C1] 'In dieser Zelle steht der Titel
Range("C53").Select 'Hier ist der MIN-Wert der Termine gespeichert.
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
MeetingStatus = olMeeting
.Recipients.Add "test@testing.de"
.Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " 08:00"
'Termininfo
.Subject = [C1]
.Body = "Hier steht ein Text."
.Location = "Büro"
.Duration = "60"
.ReminderMinutesBeforeStart = 10
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
.ResponseRequested = True
'Termin senden
.Send
'Termin speichern
.Save
End With
Set apptOutApp = Nothing 'Variablen leeren!!!
Set OutApp = Nothing
MsgBox "Termin an Outlook übertragen!"
End Sub


Outlook erstellt jetzt sogar schon einen Termin, inklusive Errinerung. Allerdings bekommet die Person die dazu eingeladen werden soll keine E-Mail und den Termin auch nicht eingetragen. -- .Recipients.Add "test@testing.de" -- Ich habe dieses Problem auf verschiedenen Seiten im Internet wiedergefunden, allerdings habe ich noch keine Lösung dafür gesehen/bekommen. Wäre klasse wenn mir hier jemand weiterhelfen könnte.

Vielen Dank

Gruß

Florin

 

Hallo,

ich kenne mich mit Outlook-Terminen nicht sonderlich aus, aber diese Zeile funktioniert vermutlich nicht richtig:
Code:

Zum einen fehlt hier ein Punkt ganz vorne, und außerdem dürfte die Constante olMeeting nicht verfügbar sein. Du musst sie durch die Zahl ersetzen, wie zuvor auch hier: Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)

VG

 

Moin "MC Santa",

Vielen Dank!! Nach 3 Stunden Arbeit war das der entscheidende Tipp!
Für alle die zukünftig vor dem Problem stehen werden hier das funktionierende Makro:

Public Sub funktionierendlich()
Dim TerminText As String
Dim OutApp As Object, apptOutApp As Object
Dim Spalte, SpalteN As Variant
Dim b, x As Integer
TerminText = [C1] 'In dieser Zelle steht der Titel
Range("C53").Select 'Hier ist der MIN-Wert der Termine gespeichert.
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
.MeetingStatus = 1
.Recipients.Add "test@testing.de"
.Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " 08:00"
'Termininfo
.Subject = [C1]
.Body = "Hier steht ein Text."
.Location = "Büro"
.Duration = "60"
.ReminderMinutesBeforeStart = 10
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
.ResponseRequested = True
'Termin senden
.Send
'Termin speichern
.Save
End With
Set apptOutApp = Nothing 'Variablen leeren!!!
Set OutApp = Nothing
MsgBox "Termin an Outlook übertragen!"
End Sub

 

Moin nochmal,

ich habe jetzt die nächste Problematik.
Die Termine in der Exceldatei können sich auch noch gegenfalls ändern. D.h. ich müsste die alten dann ungültigen Termine irgendwie wieder aus Outlook rausbekommen. Hat jemand ne Idee?

 

Hallo zusammen,

mag sein das der Tag zu lang war aber ich scheitere gerade daran, das ich neben dem ausgelesenem Datum auch die Uhrzeit aus Excel auslese.

.Start = Format(Cells(7, 2), "dd.mm.yyyy") & " 08:00"

könnt Ihr mir helfen? Bitte.

 

Das Anhängen eines Strings, der aussieht wie eine Uhrzeit, würde ich persönlich nicht als "Auslesen" bezeichnen. (Am Ende glaubt das einer.)

Auch die Format-Anweisung selber erzeugt einen String. VBA kennt nun aber nicht nur Datentypen, sondern will sie auch verwendet haben, für einen Starttermin sicher DateTime (Date).

Daneben kann es für ein unbeschriebenes(!) Scheitern vielfältige weitere Gründe geben.