Problème VB 2008 - Echange 2007 avec CDOEX

Question

Bjr,
je cherche à ajouter des RV dans l'agenda d'Exchange 2007, avec VB.

J'ai pris le code suivant sur le site microsoft.

' Creating an Appointment with CDOEx
Private Sub AddAppointment()
    Dim strDomainName As String
    Dim strLocalPath  As String
    Dim strContainerURL As String

    Dim iAppointment As New CDO.Appointment

    ' Create the container URL.
    strDomainName = "user1.subdomain.example.com"
    strLocalPath = "MBX/user1/Calendar"
    strContainerURL = "file://./backofficestorage/" & strDomainName & "/" & strLocalPath

    ' Set the appointment properties and save.
    With iAppointment
        .Subject = "CDO For Exchange Programming Discussion"
        .Location = "My office"
        .TextBody = "We will discuss CDO for Exchange 2000 programming"
        .StartTime = "12/25/1999 11:00 AM"
        .EndTime = "12/26/1999 11:00 AM"
        .DataSource.SaveToContainer (strContainerURL)
    End With

    Set iAppointment = Nothing
End Sub


Mais quand je le met, j'ai l'erreur suivante : type 'CDO.Appointment' non défini.
J'ai pourtant ajouté dans le projet : la référence COM à la DLL cdosys.dll
C'est peut être cette DLL qui me pose problème car elle s'affiche en tant que :'Microsfot CDO form windows 2000 Library ! est-ce normal ?)

Quelqu'un peut m'aider parce que je galère vraiment !!!
Merci, à tous

amtechnix · Answer

Même problème...
Seules une partie des propriétés est publiée... comment retrouver appointment

Problème VB 2008 - Echange 2007 avec CDOEX

1 réponse

Votre réponse

Discussions similaires