J'ai toujours un souci pour faire fonctionner ma macro=20
Lotus depuis que je suis pass=E9 sous Window XP Pro et Excel=20
2002 SP1.
Dim Session As Object
Dim db As Object
Dim doc As Object
Set Session =3D CreateObject("Notes.NotesSession")
Set db =3D Session.GETDATABASE("", "")
Call db.OPENMAIL
Set doc =3D db.CREATEDOCUMENT()
With doc
..Form =3D "Memo"
..SendTo =3D ""
..CopyTo =3D ""
..Subject =3D ""
..body =3D ""
..From =3D Session.COMMONUSERNAME
..PostedDate =3D Now
..SAVEMESSAGEONSEND =3D True
End With
Call doc.SEND(True)
Set Session =3D Nothing
Set db =3D Nothing
Set doc =3D Nothing
J'ai ce message d'erreur:
Erreur d'ex=E9cution 429
Un composant ActiveX ne peut pas cr=E9er l'objet
Et la premi=E8re ligne incrimin=E9e est:
Set Session =3D CreateObject("Notes.NotesSession")
Voici les r=E9f=E9rences qui sont coch=E9es chez moi:
- Visual Basic For Applications
- Microsoft Excel 10.0 Object Library
- OLE Automation
- Microsoft Forms 2.0 Object Library
- Microsoft Office 10.0 Object Library
Ce qui est en tout point identique =E0 mon ancien poste sur=20
lequel cette macro fonctionnait parfaitement.
Papou m'a sugg=E9r=E9 de faire r=E9f=E9rence =E0 Lotus Note dans le=20
projet VBA, mais comment faire?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Richard
Bonjour,
Essaye avec : Set Session = CreateObject("Lotus.NotesSession") au lieu de Set Session = CreateObject("Notes.NotesSession")
Notes étant l'interface OLE et Lotus l'objet COM ;-)
Richard
-----Original Message----- Bonjour,
J'ai toujours un souci pour faire fonctionner ma macro Lotus depuis que je suis passé sous Window XP Pro et Excel
2002 SP1.
Dim Session As Object Dim db As Object Dim doc As Object Set Session = CreateObject("Notes.NotesSession") Set db = Session.GETDATABASE("", "") Call db.OPENMAIL Set doc = db.CREATEDOCUMENT() With doc ...Form = "Memo" ...SendTo = "" ...CopyTo = "" ...Subject = "" ...body = "" ...From = Session.COMMONUSERNAME ...PostedDate = Now ...SAVEMESSAGEONSEND = True End With Call doc.SEND(True) Set Session = Nothing Set db = Nothing Set doc = Nothing
J'ai ce message d'erreur:
Erreur d'exécution 429 Un composant ActiveX ne peut pas créer l'objet
Et la première ligne incriminée est:
Set Session = CreateObject("Notes.NotesSession")
Voici les références qui sont cochées chez moi:
- Visual Basic For Applications - Microsoft Excel 10.0 Object Library - OLE Automation - Microsoft Forms 2.0 Object Library - Microsoft Office 10.0 Object Library
Ce qui est en tout point identique à mon ancien poste sur lequel cette macro fonctionnait parfaitement.
Papou m'a suggéré de faire référence à Lotus Note dans le projet VBA, mais comment faire?
@micalement.
Kyvu On Line! .
Bonjour,
Essaye avec :
Set Session = CreateObject("Lotus.NotesSession")
au lieu de
Set Session = CreateObject("Notes.NotesSession")
Notes étant l'interface OLE
et Lotus l'objet COM
;-)
Richard
-----Original Message-----
Bonjour,
J'ai toujours un souci pour faire fonctionner ma macro
Lotus depuis que je suis passé sous Window XP Pro et
Excel
2002 SP1.
Dim Session As Object
Dim db As Object
Dim doc As Object
Set Session = CreateObject("Notes.NotesSession")
Set db = Session.GETDATABASE("", "")
Call db.OPENMAIL
Set doc = db.CREATEDOCUMENT()
With doc
...Form = "Memo"
...SendTo = ""
...CopyTo = ""
...Subject = ""
...body = ""
...From = Session.COMMONUSERNAME
...PostedDate = Now
...SAVEMESSAGEONSEND = True
End With
Call doc.SEND(True)
Set Session = Nothing
Set db = Nothing
Set doc = Nothing
J'ai ce message d'erreur:
Erreur d'exécution 429
Un composant ActiveX ne peut pas créer l'objet
Et la première ligne incriminée est:
Set Session = CreateObject("Notes.NotesSession")
Voici les références qui sont cochées chez moi:
- Visual Basic For Applications
- Microsoft Excel 10.0 Object Library
- OLE Automation
- Microsoft Forms 2.0 Object Library
- Microsoft Office 10.0 Object Library
Ce qui est en tout point identique à mon ancien poste sur
lequel cette macro fonctionnait parfaitement.
Papou m'a suggéré de faire référence à Lotus Note dans le
projet VBA, mais comment faire?
Essaye avec : Set Session = CreateObject("Lotus.NotesSession") au lieu de Set Session = CreateObject("Notes.NotesSession")
Notes étant l'interface OLE et Lotus l'objet COM ;-)
Richard
-----Original Message----- Bonjour,
J'ai toujours un souci pour faire fonctionner ma macro Lotus depuis que je suis passé sous Window XP Pro et Excel
2002 SP1.
Dim Session As Object Dim db As Object Dim doc As Object Set Session = CreateObject("Notes.NotesSession") Set db = Session.GETDATABASE("", "") Call db.OPENMAIL Set doc = db.CREATEDOCUMENT() With doc ...Form = "Memo" ...SendTo = "" ...CopyTo = "" ...Subject = "" ...body = "" ...From = Session.COMMONUSERNAME ...PostedDate = Now ...SAVEMESSAGEONSEND = True End With Call doc.SEND(True) Set Session = Nothing Set db = Nothing Set doc = Nothing
J'ai ce message d'erreur:
Erreur d'exécution 429 Un composant ActiveX ne peut pas créer l'objet
Et la première ligne incriminée est:
Set Session = CreateObject("Notes.NotesSession")
Voici les références qui sont cochées chez moi:
- Visual Basic For Applications - Microsoft Excel 10.0 Object Library - OLE Automation - Microsoft Forms 2.0 Object Library - Microsoft Office 10.0 Object Library
Ce qui est en tout point identique à mon ancien poste sur lequel cette macro fonctionnait parfaitement.
Papou m'a suggéré de faire référence à Lotus Note dans le projet VBA, mais comment faire?
