Bitte um Hilfe Excel Outlook
12.01.2008 20:15:22
Kerstin
ich versuche schon seit einer Woche nach einer Lösung wie ich Termine aus einer Excel Liste in meinem Outlook Kalender Automatisch übertragen kann.
Ist jemand auf dem Gebiet fit der mir weiterhelfen könnte, wie muss ich die Excel Datei erstellen und das VBA Makro eingeben damit die Termine in den Outlook übertragen werden.
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
Anzeige