20. januar 2003 - 11:53
Der er
1 kommentar og
1 løsning
Oprettelse af kalenderitem i BRUGEROPRETTET mappe
Hej
Kodemæssigt ligger jeg nogle aftaler ind i kalenderen. Det virker fint. Jeg vil gerne ligge aftalerne ind i en kalender jeg selv har oprettet, istedet for den standardmæssige.
Hvordan gøres det?
Den nuværende kode ser således ud:
Sub OpretKalenderData(MySubject As String, StartDT As Date, MyDuration As Long)
Dim OutL As Outlook.Application
Dim objAft As AppointmentItem
Set OutL = CreateObject("Outlook.application")
Set objAft = OutL.CreateItem(olAppointmentItem)
With objAft
.Subject = MySubject
.Start = StartDT
.Duration = MyDuration
.Save
End With
Set objAft = Nothing
Set OutL = Nothing
End Sub
Den mappe der skal skrives til hedder KURSUSKALENDER
Hilsen Torben
20. januar 2003 - 12:41
#1
Lukker spørgsmålet. Fandt selv svaret i en af de tunge bøger. For de interesserede kan jeg vise koden her:
Sub OpretKalenderData(MySubject As String, StartDT As Date, MyDuration As Long)
Dim OutL As Outlook.Application
Dim objAft As AppointmentItem
Dim fold As Outlook.MAPIFolder
Dim myspace As NameSpace
Set OutL = CreateObject("Outlook.application")
Set myspace = OutL.GetNamespace("mapi")
Set fold = myspace.Folders("Private mapper").Folders("Kursuskalender")
Set objAft = fold.Items.Add
With objAft
.Subject = MySubject
.Start = StartDT
.Duration = MyDuration
.Save
End With
Set objAft = Nothing
Set OutL = Nothing
End Sub
Svaret er derude et sted...
