Pb expedition de Mail Lotus par VBA

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

Re : Pb expedition de Mail Lotus par VBA

Bonjour


Tu parles de ce code VBA ?

Function sendNotesMail

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...

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)

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...

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...

Re : Pb expedition de Mail Lotus par VBA

Salut StanilasRB

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

A+

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

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 :

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