Pb expedition de Mail Lotus par VBA

[stanislasRB]

Bonjour à tous,

J'ai repris un code (génial) trouvé sur mpfe pour expédier des mails Lotus
notes en vba. Mon problème reste que ce code peut très bien fonctionner sur
quelques machines, mais plante sur d'autres, toujours à la même ligne =
Set objNotesSession = CreateObject("Notes.NotesSession")j'ai une erreur #429 = un composant ActiveX ne peut pas créer d'objet.
J'ai la même erreur avec la méthode 'getobject'Les OS sont les mêmes, les références cochées sont les mêmes, les versions
d'excel et lotus sont les mêmes, bref, je m'arrache un peu le peu de cheveux
qu'il me reste.
Si quelqu'un a une idée ?

Merci beaucoup par avance,

 

[stanislasRB]

Re : Pb expedition de Mail Lotus par VBA

Je suis vraiment bloqué...J'ai à peu près tout fait sauf ce qu'il faudrait, à priori..
réinstallation office, service pack pour office et windows, réinscription des dll et ocx depuis une machine qui marche, parcouru les forums excel/lotus, contrôlé la COM des appli et leur clsid...

HEEEEELP!....

merci

 

[Staple1600]

Re : Pb expedition de Mail Lotus par VBA

Bonjour


Tu parles de ce code VBA ?

Function sendNotesMail

 

[stanislasRB]

Re : Pb expedition de Mail Lotus par VBA

Oui, à quelques lignes près.
Je plante toujours sur la ligne
Set session = CreateObject("Notes.NotesSession")

Et je crois que j'ai à peu près tout fait...

 

[tototiti2008]

Re : Pb expedition de Mail Lotus par VBA

Bonjour stanislasRB, Bonjour Staple,

j'utilise un code analogue et je n'ai jamais eu de plantage sur cette ligne... (Office 2003 SP1, Lotus notes 6.5.5)

 

[stanislasRB]

Re : Pb expedition de Mail Lotus par VBA

-Ce code fonctionne sur 2 machine sur 5...et je ne trouve pas le moindre point de concordance entre les petoires qui "marchent" et celles qui ne "marchent" pas.
-Les versions windows/office/Lotus sont les mêmes...
-Cela arrive indifférement sur des postes fixes ou des portables...
-Je n'ai jamais eu de pb sur mon portable ni celui d'avant (mais c'est moi qui écrit le code à chaque fois)
- les références vba sont cochées sur tous les postes (y compris notes32.tlb et domobj.dlt, alors que cela fonctionne sans sur ma machine)
- j'ai ré inscrit les ocx et les dll
- j'ai controlé les chemins automation dans les clsid de l'appli lotus et excel
- j'ai ré installé office 2003
- j'ai réinstallé windows XP / sp2


Avant Lourdes, j'essaie donc les forums, je sais qu'il y a tant de contributeurs, si ce n'est de génie, au moins, très largement supérieur à moi!..

merci pour les reponses, en tous cas...

 

[stanislasRB]

Re : Pb expedition de Mail Lotus par VBA

HEEELP!
Je ne sais plus si je dois me tourner vers St Macro ou la Bienheureuse Rita, patronne des cas desespérée...

 

[Compte Supprimé 979]

Re : Pb expedition de Mail Lotus par VBA

Salut StanilasRB

Essaye peut-être cette création d'objet

Set objNotesSession = CreateObject("[COLOR=blue][B]Lotus.NotesSession[/B][/COLOR]")

A+

 

[stanislasRB]

Re : Pb expedition de Mail Lotus par VBA

Bonjour Bruno...

En fait j'ai essayé à peu prés toutes les combinaisons entre le get.. et le create, avec lotus ou notes...
et je tourne en rond...
tu as déjà fait la manip ou rencontré un pb similaire ??

merci pour ta reponse et bonne journée.

====
Function exp_mail()
On Error GoTo gesterror

dest = "srougevin@mousquetaires.com"
destcc = ""
sujet = "test de transmission"

'######################################################
'Option 1 == OK chez moi / KO ailleurs #429
'Set session = CreateObject("Notes.NotesSession")
'Option 2 == çà passe mais renvoie une erreur d'initialisation
'Set session = CreateObject("Lotus.NotesSession")
'Option 3 == OK chez moi / KO ailleurs #429
Set session = GetObject("", "Notes.Notessession")
'==??
'set session = getobject("","Lotus.Notessession")
'######################################################

'Set session = session.Initialize '===> renvoi "objet requis"
'session.Initialize '===> renvoi "a database name must be provided"
Set file = session.getdatabase("", "")
file.openmail

Set doc = file.createdocument
Set cham = doc.appenditemvalue("Subject", sujet)
Set cham = doc.appenditemvalue("SendTo", dest)
Set cham = doc.appenditemvalue("CopyTo", destcc)

Set cham = doc.createrichtextitem("Body")

With cham
.appendtext "..................."
.addnewline 2
'...
End With

cham = cham.embedobject(1454, "", ActiveWorkbook.FullName)
doc.send (0)

Set session = Nothing
Set file = Nothing
Set doc = Nothing
Set cham = Nothing

exp_mail = True
MsgBox ("Message transmis")
Exit Function

gesterror:
Msg = "Error # " & Str(Err.Number) & " qui vient de cette merde de " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
exp_mail = False
End Function

 

[tototiti2008]

Re : Pb expedition de Mail Lotus par VBA

Bonjour à tous,

si ça peut aider, le début du code qui tourne chez moi et sur d'autres postes... mais ça ressemble beaucoup au tien :

Set session = CreateObject("notes.notessession")
username = session.username
Set maildb = session.getdatabase("", "")
If maildb.IsOpen <> True Then
maildb.openmail
End If
Set maildoc2 = maildb.createdocument
maildoc2.form = "Memo"

 

[stanislasRB]

Re : Pb expedition de Mail Lotus par VBA

ALLELUIA / ALLELUIA..................
J AI TROUVE............

C'est bête problême de bdr... Il suffit de lancer le fichier "notesw32.reg"
présent dans le repertoire Notes de Lotus!!!!

ET CA MARCHE ILLICO!

Merci à tous et très bonne journée