Erreur d'ouverture du composant activeX d'outlook
Zachs
Messages postés
202
Date d'inscription
mardi 14 novembre 2006
Statut
Membre
Dernière intervention
10 février 2009
-
13 août 2007 à 16:49
Zachs Messages postés 202 Date d'inscription mardi 14 novembre 2006 Statut Membre Dernière intervention 10 février 2009 - 14 août 2007 à 10:57
Zachs Messages postés 202 Date d'inscription mardi 14 novembre 2006 Statut Membre Dernière intervention 10 février 2009 - 14 août 2007 à 10:57
A voir également:
- Un composant activex ne peut pas créer un objet
- 'La référence d'objet n'est pas définie à une instance d'un objet.' - Forum C# / .NET
- Erreur "La référence d'objet n'est pas définie à une instance d'un objet." ✓ - Forum C# / .NET
- La référence d'objet n'est pas définie à une instance d'un objet. - Forum VB.NET
- [Erreur] La référence d'objet n'est pas définie à une instance d'un objet. - Forum C# / .NET
- Un composant activeX ne peut pas créer l'objet : quesaco?? ✓ - Forum Visual Basic
4 réponses
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
14 août 2007 à 10:13
14 août 2007 à 10:13
ce code me semble Ok, pourtant....
Zachs
Messages postés
202
Date d'inscription
mardi 14 novembre 2006
Statut
Membre
Dernière intervention
10 février 2009
14 août 2007 à 10:24
14 août 2007 à 10:24
Ben justement, je pige pas pourquoi ca ne marche pas. Voici la fonction complete, je ne sais pas si ca peu aider.
"Private Sub LoadTodaysAppointmen()
Try
olApp = GetObject(, "Outlook.Application")
Catch
olApp = CreateObject("Outlook.Application")
End Try
Dim d As DateTime
objNamespace = olApp.GetNamespace("MAPI")
myAppointment = objNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar).Items 'olApp.CreateItem(Outlook.OlItemType.olAppointmentItem)
d = Me.MonthCalendar1.SelectionStart
lbxOlEventlist.Items.Clear()
For Each appointmentitem In myAppointment
If appointmentitem.Start.Date = d Then
Me.lbxOlEventlist.Items.Add(appointmentitem.Subject)
End If
Next
End Sub"
--------------------->>
Ordi, frigo, dodo...
Quelle dur journée!
"Private Sub LoadTodaysAppointmen()
Try
olApp = GetObject(, "Outlook.Application")
Catch
olApp = CreateObject("Outlook.Application")
End Try
Dim d As DateTime
objNamespace = olApp.GetNamespace("MAPI")
myAppointment = objNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar).Items 'olApp.CreateItem(Outlook.OlItemType.olAppointmentItem)
d = Me.MonthCalendar1.SelectionStart
lbxOlEventlist.Items.Clear()
For Each appointmentitem In myAppointment
If appointmentitem.Start.Date = d Then
Me.lbxOlEventlist.Items.Add(appointmentitem.Subject)
End If
Next
End Sub"
--------------------->>
Ordi, frigo, dodo...
Quelle dur journée!
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
14 août 2007 à 10:40
14 août 2007 à 10:40
a voir exactement ce qui coince....
tu as bien ajouté la reference a Outlook ?
tu as bien ajouté la reference a Outlook ?
Zachs
Messages postés
202
Date d'inscription
mardi 14 novembre 2006
Statut
Membre
Dernière intervention
10 février 2009
14 août 2007 à 10:57
14 août 2007 à 10:57
Oui, oui.
mais si il n'y a pas de reference a outlook ca ne devrait pas marcher sur les 2 pc. On a penser que c'était peut-être outlook qui as tout a coup mal ete installer
--------------------->>
Ordi, frigo, dodo...
Quelle dur journée!
mais si il n'y a pas de reference a outlook ca ne devrait pas marcher sur les 2 pc. On a penser que c'était peut-être outlook qui as tout a coup mal ete installer
--------------------->>
Ordi, frigo, dodo...
Quelle dur journée!
