20. januar 2003 - 11:53Der 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
Brug af AI afslører de svagheder, virksomheder allerede har opbygget gennem års cloud-transformation, nye SaaS-løsninger og fragmenterede sikkerhedssystemer.
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
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
