Hallo,
wie kann man Daten aus Access 97 als Termin in Outlook 97 eintragen ?
Kann man diesen Eintrag auch in einen nicht Standard-Terminkalender (fremder Terminkalender) eintragen lassen ?
Mit Dank,
Alex
Das geht z.B. so:
Private Const olAppointmentItem = 1
Public Function CreateOutlookAppointment(SDate, Optional EDate = "", Optional Subject = "", Optional Body = "")
Dim myOlApp As Object, Tmp, I As Long, j As Long, aItm As AppointmentItem, myNameSpace As Object
Dim myFolder As Object, UProp As Outlook.UserProperty, IsOpen As Boolean
On Error Resume Next
Set myOlApp = GetObject(, "Outlook.Application")
IsOpen = False
If Err = 0 Then
IsOpen = True
Else
Err.Clear
On Error GoTo Er
Set myOlApp = CreateObject("Outlook.Application")
End If
On Error GoTo Er
' Neuen Termin anlegen
Set aItm = myOlApp.CreateItem(olAppointmentItem)
With aItm
.Subject = Subject
.Body = Body
.Start = CDate(SDate)
If EDate = "" Then
.End = DateAdd("h", 1, .Start)
Else
.End = CDate(EDate)
End If
.Save
End With
Ex:
On Error Resume Next
Set myFolder = Nothing
Set myNameSpace = Nothing
If IsOpen Then Set myOlApp = Nothing
Exit Function
Er:
MsgBox "CreateOutlookAppointment: " & Err & " " & Err.Description
GoTo Ex
End Function
Reinhard
Lieber Reinhard
Ich bekomme bei dieser Zeile
Dim myOlApp As Object, Tmp, I As Long,
den Fehler: Benutzerdefinierter Typ nicht definiert
Gruss
Martin
Du musst die Outlook-Objektbibliothek in deine Verweise eintragen!
Reinhard
Lieber Reinhard
Du musst die Outlook-Objektbibliothek in
deine Verweise eintragen!
… und wie mache ich das? Woher nehme ich die Outlook-Objektbibliothek?
Gruss
Martin
Wenn du Outlook hast, hast du auch die Outlook-Objektbibliothek (sie sollte dann auch unter deinen Verweisen angezeigt werden) Ansonsten such mal nach MSOUTL*.OLB…
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Lieber Reinhard
Du musst die Outlook-Objektbibliothek in
deine Verweise eintragen!
Funktioniert prima - danke. Kannst Du mir auch noch sagen, wie ich eine Uhrzeit für den Termin eingeben kann?
Gruss
Martin
Start ist doch vom Typ Date - da kannst du auch Zeiten eingeben. (Halt so etwas wie CDate(„1.1.2001 13:00“) )
Reinhard
Lieber Reinhard
Start ist doch vom Typ Date - da kannst
du auch Zeiten eingeben. (Halt so etwas
wie CDate(„1.1.2001 13:00“) )
Das habe ich schon versucht - geht aber leider nicht 
… Ob es wohl an Outlook 2000 liegt?
Gruss
Martin
Also dann weiss ich nicht, was du aufstellst - bei mir legt
CreateOutlookAppointment(„6.3.2000 12:00“,„Test“)
einen wunderschönen Termin für Montag an…
(auch mit Outlook 2000)
Reinhard