Voici la macro que j'utilise pour envoyer un mail par=20
Lotus:
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
Ca marchait tr=E8s bien jusqu'=E0 pr=E9sent mais depuis que je=20
suis pass=E9 =E0 Window XP Pro et Office 2002 SP1, j'ai ce=20
message d'erreur:
Erreur d'ex=E9cution 429
Un composant ActiveX ne peut pas cr=E9er l'objet
Et la 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
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
papou
Bonjour Kyvu Ajoute une référence à Lotus Notes dans le projet VBA. Cordialement Pascal
"Kyvu" a écrit dans le message de news:046501c3faca$ad71ccc0$ Bonjour à tous,
Voici la macro que j'utilise pour envoyer un mail par Lotus:
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
Ca marchait très bien jusqu'à présent mais depuis que je suis passé à Window XP Pro et Office 2002 SP1, j'ai ce message d'erreur:
Erreur d'exécution 429 Un composant ActiveX ne peut pas créer l'objet
Et la 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
Quelqu'un aurait-il une idée?
Merci.
@micalement.
Kyvu On Line!
Bonjour Kyvu
Ajoute une référence à Lotus Notes dans le projet VBA.
Cordialement
Pascal
"Kyvu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:046501c3faca$ad71ccc0$a401280a@phx.gbl...
Bonjour à tous,
Voici la macro que j'utilise pour envoyer un mail par
Lotus:
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
Ca marchait très bien jusqu'à présent mais depuis que je
suis passé à Window XP Pro et Office 2002 SP1, j'ai ce
message d'erreur:
Erreur d'exécution 429
Un composant ActiveX ne peut pas créer l'objet
Et la 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
Bonjour Kyvu Ajoute une référence à Lotus Notes dans le projet VBA. Cordialement Pascal
"Kyvu" a écrit dans le message de news:046501c3faca$ad71ccc0$ Bonjour à tous,
Voici la macro que j'utilise pour envoyer un mail par Lotus:
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
Ca marchait très bien jusqu'à présent mais depuis que je suis passé à Window XP Pro et Office 2002 SP1, j'ai ce message d'erreur:
Erreur d'exécution 429 Un composant ActiveX ne peut pas créer l'objet
Et la 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
Quelqu'un aurait-il une idée?
Merci.
@micalement.
Kyvu On Line!
Kyvu
Bonjour Papou,
Comment s'appelle cette référence? Je ne la trouve pas...
@micalement.
Kyvu On Line!
-----Message d'origine----- Bonjour Kyvu Ajoute une référence à Lotus Notes dans le projet VBA. Cordialement Pascal
"Kyvu" a écrit dans le message de
news:046501c3faca$ad71ccc0$ Bonjour à tous,
Voici la macro que j'utilise pour envoyer un mail par Lotus:
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
Ca marchait très bien jusqu'à présent mais depuis que je suis passé à Window XP Pro et Office 2002 SP1, j'ai ce message d'erreur:
Erreur d'exécution 429 Un composant ActiveX ne peut pas créer l'objet
Et la 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
Quelqu'un aurait-il une idée?
Merci.
@micalement.
Kyvu On Line!
Bonjour Papou,
Comment s'appelle cette référence? Je ne la trouve pas...
@micalement.
Kyvu On Line!
-----Message d'origine-----
Bonjour Kyvu
Ajoute une référence à Lotus Notes dans le projet VBA.
Cordialement
Pascal
"Kyvu" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:046501c3faca$ad71ccc0$a401280a@phx.gbl...
Bonjour à tous,
Voici la macro que j'utilise pour envoyer un mail par
Lotus:
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
Ca marchait très bien jusqu'à présent mais depuis que je
suis passé à Window XP Pro et Office 2002 SP1, j'ai ce
message d'erreur:
Erreur d'exécution 429
Un composant ActiveX ne peut pas créer l'objet
Et la 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
Comment s'appelle cette référence? Je ne la trouve pas...
@micalement.
Kyvu On Line!
-----Message d'origine----- Bonjour Kyvu Ajoute une référence à Lotus Notes dans le projet VBA. Cordialement Pascal
"Kyvu" a écrit dans le message de
news:046501c3faca$ad71ccc0$ Bonjour à tous,
Voici la macro que j'utilise pour envoyer un mail par Lotus:
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
Ca marchait très bien jusqu'à présent mais depuis que je suis passé à Window XP Pro et Office 2002 SP1, j'ai ce message d'erreur:
Erreur d'exécution 429 Un composant ActiveX ne peut pas créer l'objet
Et la 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
