Agent LS Envoi Mail (suite)

[Julien]

Merci pour vos idées... mais ça ne fonctionne toujours pas.Lorsque j'exécute mon agent manuellement, il n'y a pas de problème.Mais lorsqu'il est lancé automatiquement sur le serveur (j'ai bien tous les droits et je ne suis pas bloqué par le document serveur), il s'exécute mais n'envoie pas mon mail au destinataire (membre du réseau lotus interne présent dans le carnet d'adresse).Nouveauté, j'ai un message d'erreur (uniquement en auto) :AMgr : message d'erreur relatif à l'agent ("envoi mail" de "Orga\affaires.nsf") : Notes error: Le serveur distant est un hôte TCP/IP inconnu.Le petit bout de code en question im s As NotesSessionDim db As NotesDatabaseDim mail As NotesDocumentDim NotesItem As NotesItemDim tmplist(0) As Stringtmplist(0)="Julien MAGGIORI/ADH/FR"Set s = New NotesSessionSet db=s.CurrentDatabaseSet mail = db.createdocumentSet notesItem = mail.ReplaceItemValue( "SendTo", tmplist(0) ) Set notesItem = mail.ReplaceItemValue( "Subject", "objet" )Set notesItem = mail.ReplaceItemValue( "Body", "message" )Call mail.send(False, tmplist(0))

[phil]

Salut.Une suggestion comme ça en passant....Je passe par un masque "Memo" : Set memo = New NotesDocument(dbCurrent) memo.form = "Memo" memo.sendTo = StHabDest ' ->string j'ai qu'un nom ' bon là je garde quelques infos perso... z$ = "<HAB>VALIDATION responsable hiérarchique pour " z$ = z$ + StHabPren + " " + StHabNom + " (" + StHabMatr + ")" memo.subject = z$ Set rtitem = New NotesRichTextItem(memo,"Body") Call rtitem.appendtext("Veuillez valider etc...:") Call memo.send(False)

[Julien]

Merci, mais ça ne fonctionne pas non plus.En fait, je pense pas que cela vienne du code.Il doit y avoir un autre problème au niveau de l'envoi d'un mail depuis une base (serveur)..?J'ai essayé de mettre cet agent dans une autre base est ça ne change rien. Pourtant au niveau des droits tout à l'ai bon...