outlook agenda (afspraken programmeren)

[conehead]

Hallo,

Ik had graag in een outlook agenda elke 30 minuten graag een afspraak geboekt met als onderwerp beschikbaar ... Iemand enig idee hoe dit te doen ...

De terugkerende functie is geen oplossing ...

Of indien er iemand een plugin zou kennen zodat ik kan zoeken wanneer er op werkdagen nog een 30tal minuten vrij is ... Dat is ook welkom ..

Alvast bedankt

[Sasuke]

Slipstick is misschien een goeie startsite dan, hier een link naar verschillende outlook calendar tools:
http://www.slipstick.com/addins/calendar.asp

Als je wat VB /VB.NET kent kan je trouwens eenvoudig zelf iets maken.

Grtz,
Sasuke

[conehead]

Dan zal ik wellicht eerst nog veel moeten lezen ...

[conehead]

Code: Selecteer alles

Sub CreateOtherUserAppointment()
    Dim objApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Dim objFolder As Outlook.MAPIFolder
    Dim objDummy As Outlook.MailItem
    Dim objRecip As Outlook.Recipient
    Dim objAppt As Outlook.AppointmentItem
    Dim strMsg As String
    Dim strName As String
    On Error Resume Next
    
    ' ### name of person whose Calendar you want to use ###
    strName = "chris"
    
    Set objApp = CreateObject("Outlook.Application")
    Set objNS = objApp.GetNamespace("MAPI")
    Set objDummy = objApp.CreateItem(olMailItem)
    Set objRecip = objDummy.Recipients.Add(strName)
    objRecip.Resolve
    If objRecip.Resolved Then
        On Error Resume Next
        Set objFolder = _
          objNS.GetSharedDefaultFolder(objRecip, _
            olFolderCalendar)
        If Not objFolder Is Nothing Then
            Set objAppt = objFolder.Items.Add
            If Not objAppt Is Nothing Then
                With objAppt
                    .Subject = "Test Appointment"
                    .Start = #2/14/2011 8:30:00 AM#
                    .Duration = 30
                    .Save
                End With
            End If
        End If
    Else
        MsgBox "Could not find " & Chr(34) & strName & Chr(34), , _
               "User not found"
    End If

    Set objApp = Nothing
    Set objNS = Nothing
    Set objFolder = Nothing
    Set objDummy = Nothing
    Set objRecip = Nothing
    Set objAppt = Nothing
End Sub

Een afspraak boeken dat gaat al, nu dat ding nog in een of andere lus steken om bijvoorbeeld van 8u tot 12 uur een afspraken te maken van telkens 30 minuten ...

[ubremoved_539]

DateAdd functie...

[conehead]

Hallo,

Heb nog een vraagje, afspraken plaatsen is nu geen probleem maar ik vraag me wel nog af hoe je ze in een andere agenda krijgt (dus eentje die niet de default is maar bijvoorbeeld in de aangemaakte agenda test die op dezelfde hoogte staat als bijvoorbeeld de inbox.

Code: Selecteer alles

Sub CreateOtherUserAppointment()
    Dim objApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Dim objFolder As Outlook.MAPIFolder
    Dim objDummy As Outlook.MailItem
    Dim objRecip As Outlook.Recipient
    Dim objAppt As Outlook.AppointmentItem
    Dim strMsg As String
    Dim strName As String
    On Error Resume Next
    
    ' ### name of person whose Calendar you want to use ###
    strName = "christophe.ver"
    
    Set objApp = CreateObject("Outlook.Application")
    Set objNS = objApp.GetNamespace("MAPI")
    Set objDummy = objApp.CreateItem(olMailItem)
    Set objRecip = objDummy.Recipients.Add(strName)
    objRecip.Resolve
    If objRecip.Resolved Then
        On Error Resume Next
        Set objFolder = _
          objNS.GetSharedDefaultFolder(objRecip, _
            olFolderCalendar)
        If Not objFolder Is Nothing Then
            Set objAppt = objFolder.Items.Add
            If Not objAppt Is Nothing Then
                With objAppt
                    .Subject = "Test Appointment"
                    .Start = #3/17/2011 8:30:00 PM#
                    .Duration = 30
                    .Save
                End With
            End If
        End If
    Else
        MsgBox "Could not find " & Chr(34) & strName & Chr(34), , _
               "User not found"
    End If

    Set objApp = Nothing
    Set objNS = Nothing
    Set objFolder = Nothing
    Set objDummy = Nothing
    Set objRecip = Nothing
    Set objAppt = Nothing
End Sub

Heb al wat info opgezocht en je zou moeten werken met objNS.DefaultStore.GetRootFolder en folders.item ... maar aangezien ik niet echt veel kaas heb gegeten van programmeren ...

Iemand hier een idee ?