Pb late binding - Creation d'un rendez-vous Outlook [Résolu]

[gpinson]

Bonjour,
Je suis en train de me battre avec les multiples versions d'office dans mon entreprise...
J'ai reprogrammé tous les sources en utilisant le late binding, mais j'ai l'impression que par cette méthode, toutes les méthodes/fonctions/propriétés ne sont pas utilisables. Voici mon exemple de code en Late Binding dans un fichier Excel :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim OutlApp As Object
Dim objApt As Object
Set OutlApp = CreateObject("Outlook.Application")
Set objApt = OutlApp.CreateItem(olAppointmentItem)
objApt.ReminderSet = False
objApt.Subject = ActiveSheet.Cells(cellule, 5).Value
objApt.Start = ActiveSheet.Cells(cellule, 2).Value
objApt.End = ActiveSheet.Cells(cellule, 3).Value
objApt.Body = ActiveSheet.Cells(cellule, 6).Value
objApt.Location = "VH" 'ActiveSheet.Cells(cellule, 7).Value
objApt.Save
Set objApt = Nothing
Set OutlApp = Nothing

"ReminderSet" fonctionne ainsi que "subject", mais "Start" génère cette erreur : "Propriété ou méthode non gérée par cet objet"

Doit-on en déduire qu'en Late Binding, nous n'avons pas accès à toute la bibliothèque ?

Encore merci pour votre aide.

Geoffroy

[gpinson]

La variable est fautive :
Set objApt = OutlApp.CreateItem(olAppointmentItem)

Il faut placer le chiffre.
Set objApt = OutlApp.CreateItem(1)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim OutlApp As Object
Dim objApt As Object
Set OutlApp = CreateObject("Outlook.Application")
Set objApt = OutlApp.CreateItem(1)
objApt.ReminderSet = False
objApt.Subject = ActiveSheet.Cells(cellule, 5).Value
objApt.Start = ActiveSheet.Cells(cellule, 2).Value
objApt.End = ActiveSheet.Cells(cellule, 3).Value
objApt.Body = ActiveSheet.Cells(cellule, 6).Value
objApt.Location = "VH" 'ActiveSheet.Cells(cellule, 7).Value
objApt.Save
Set objApt = Nothing
Set OutlApp = Nothing