AW: Übergabe an Outlook Termin
19.05.2004 17:14:56
Bernhard
Hallo
ich habe da etwas gefunden was mir auch hilft. Leider weiß ich aber nicht wo ich die Zeitspanne wann der termin beginnen soll endern kann.
Ich habe den Code beigefügt.
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("F13").Select
Do Until ActiveCell.Value = ""
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
'Termininfo
.Subject = "Rechnung: " & Range("A9") & " kontrollieren"
'Zusätzlicher Text
.Body = "Wichtig - Rechnung nicht bezahlt Zahlungserinnerung schreiben"
'ort
.Location = "Bank"
'Uhrzeit
.Start = Format(Now(), "dd.mm.yyyy") & " 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
Loop
MsgBox "---> Termine an Outlook übertragen! <---"
End Sub