PDA

Vollständige Version anzeigen : outlook - access


Scorefun
19.01.2003, 15:33
darf ich auf mich aufmerksam machen?

http://www.ms-office-forum.net/forum/showthread.php?s=&threadid=84270

hier ist mehr los... :D :D

Scorefun
19.01.2003, 17:59
bin schon ein bisserl weiter....

Sub outlooktest()
Dim objOutlook As Outlook.Application
Dim myNameSpace As NameSpace
Dim myfolder As MAPIFolder
Dim olc As Outlook.AppointmentItem

Set objOutlook = CreateObject("Outlook.Application")
Set myNameSpace = objOutlook.GetNamespace("MAPI")
'Erste Ordner-Ebene
Set myfolder = myNameSpace.Folders("Öffentliche Ordner")
'Zweite Ordner-Ebene
Set myfolder = myfolder.Folders("Alle Öffentlichen Ordner")
'Dritte Ordner-Ebene
Set myfolder = myfolder.Folders("Termine")
'Jetzt kommt der eigentliche Kalender
Set olc = myfolder.Folders("Meinkalender").Items.Add(olAppointmentItem)
With olc
.Start = Date
.End = Date
.Body = "TestEintrag"
.Save
End With
Set objOutlook = Nothing
End Sub

Jetzt wird der Termin korrekt eingetragen

Was mich nur stört, ist daß man jede Ordner-Ebene einzeln ansprechen muß

Set myfolder = myNameSpace.Folders.Item("Öffentliche Ordner\Alle....\Termine\Mein Kalender").Items.Add(olAppointmentItem)
bringt leider einen Fehler...