WAS MACHE ICH NUR FALSCH !!!! AAAAHH
christian
was mace ich falsch...AAAAAAAAAAAAAAAAhhhhhhhhhhh
ich möchte mit dem u.g. code einen termin von excel ins outlook sende...
der Termin liegt in zelle A1 (Beispiel 01.05.04), oulook trägt den termin
jedoch immer auf heute ein!
Bitte HILFE!!!!! DANKE
Christian
Sub Excel_Control_Termin_nach_Outlook()
'E 2000
'Dim OutApp As Outlook.Application
Dim OutApp As Object, apptOutApp As Object
Set OutApp = CreateObject("Outlook.Application")
'Hier beginnen die Termine
Range("A1") = Termin
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
'Termininfo
.Subject = "Rechnung: " & ActiveWorkbook.Name & " kontrollieren"
'Zusätzlicher Text
.Body = ""
'ort
.Location = ""
'Uhrzeit
.Start = "Termin" & "10:00"
'Dauer. Angabe ist jeweils in ganzen Minuten zu setzen
.Duration = "5"
'Erinnerung
.ReminderMinutesBeforeStart = 10
'mit Sound :-)
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
'Termin speichern
.Save
End With
'Nächste Zelle auswählen
ActiveCell.Offset(1, 0).Select
'Variablen leeren,... sonst "kotzt" Outlook irgendwann mal
Set apptOutApp = Nothing
Set OutApp = Nothing
MsgBox "Termine an Outlook übertragen!"
End Sub
Anzeige