Fehlermeldung
23.01.2006 13:12:15
J.
habe diesen Eingabebefehl geschrieben mit dem ich einen Termin aus einer Excel-Datei in den Outlook übertragen kann.
Hat bisher auch immer geklappt.
Nun bekomme ich aber neuerdings diese Fehlermeldung:
"Laufzeitfehler '-2147352571 (80020005)':
Typenkonflikt: Der Datentyp kann nicht umgewandelt werden. Outlook kann Ihre Zeichenfolge nicht übersetzen."
Sub Termin_in_Outlook()
'E 2000
'Dim OutApp As Outlook.Application
Dim OutApp As Object, apptOutApp As Object
'Hier beginnen die Termine
Range("A37").Select
Do Until ActiveCell.Value = ""
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
.Start = ActiveCell.Offset(0, 0)
'Hier wird der Beginn-Datum eingegeben
.Subject = ActiveCell.Offset(0, 1)
'Hier wird der Betreff eingegeben
.ReminderSet = True
'Termin speichern
.BusyStatus = olFree
'Terminstatus frei
.Save
End With
'Nächste Zelle auswählen
ActiveCell.Offset(1, 0).Select
'Variablen leeren,... sonst ist Outlook irgendwann überlastet
Set apptOutApp = Nothing
Set OutApp = Nothing
Loop
MsgBox "Termine an Outlook übertragen!"
Range("B3").Select
End Sub
Hat jemand eine Lösung für mich.
Danke im voraus
J. B.
Anzeige