Basic Outlook

[Markus1965]

Hallo,

ist es möglich den Qutlook Kalender mit einer Externen Datei Excel Kalender zu Aktualisieren.

Ich habe eine Excel Datei und wenn ich meine Termine in die Datei einschreibe will ich dass die Zeiten/Termine bei mir im Qoutlook Automatisch Aktualisiert werden.

Ist so was möglich?

Gruß

Markus

[Amstelchen]

Ist so was möglich?

ja!

na guuut, eine "etwas" längere antwort:

Excel Tabelle in Outlook Kalender Importieren

Online - Excel

eine suchmaschinensuche nach "outlook", "excel", und "termin" und/oder "kalender" brachte nichts?

s'Amstel

[Markus1965]

Hallo Amstelchen,

Ich habe hier das Code bin leider in der hinsicht ein Leie, der Computer wurde leider nach meiner Zeit erfunden .

Wo und Wie gebe ich das Code ein damit es funktioniert ??

Gruß Markus

Private Sub CommandButton10_Click()

Dim OutApp As Object, apptOutApp As Object

Dim Spalte, SpalteN As Variant

Dim b, i, x As Integer

'Hier beginnen die Termine

Range("B36").Select

For i = 2 To 6 'Die Schleife müsste evtl angepasst werden (Derzeit waagerecht Ab B2)

Set OutApp = CreateObject("Outlook.Application")

Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)

With apptOutApp

.Start = Format(ActiveCell.Value, "dd/mm/yyyy") & " 09:00"

'Termininfo

.Subject = [b37]

'.Location = 'ort

.Duration = "10"

.ReminderMinutesBeforeStart = 10

.ReminderPlaySound = True

'Erinnerung wiederholen

.ReminderSet = True

'Termin speichern

.Save

End With

ActiveCell.Offset(0, 1).Select 'Nächste Zelle auswählen

Set apptOutApp = Nothing 'Variablen leeren!!!

Set OutApp = Nothing

Next i

MsgBox "Termine an Outlook übertragen!"

End Sub