problème envoi e-mail en code VB

[marin101]

Bonjour
j'ai le problème suivant que je n'arrive pas à le résoudre

j'ouvre en interactif lotus, la base configurée qui s'ouvre par défaut est toto.nsf correspondant au profil lotus "toto1"
A partir de cette même session, j'accède en interactif à une boite de service
(Fichier- ouvrir - Application IBM Notes Ctrl+O, ...) puis ouvrir service.nsf qui correspond au profil service1

A partir de l'interface qui s'ouvre de la base service.nsf, j'envoie, toujours en interactif
(Onglet Nouveau message), un message à toto1.
- Toto1 reçois le message
- je retrouve le mail envoyé dans le dossier envoyé de la messagerie du profil service1
- l'expéditeur indiqué dans le message reçu est service1 et si toto1 répond au message, service1 est reporté dans la liste des expéditeurs

Jusque là tout est normal.


je fais la même chose en code VB,
- toto1 reçois le message --> OK
- je retrouve bien le mail envoyé dans le dossier envoyé de la messagerie du profil service1 --OK
- l'expéditeur indiqué dans le message reçu est toto1 au lieu de service1 --> KO et et si toto1 réponds au message c'est toto1 qui est reporté dans la liste des expéditeurs au lieu de service1

je ne comprends donc pas pourquoi en code VB, l'expéditeur indiqué dans le message reçu est toto1 au lieu de service1

je met ici le code vb que j'ai repris du site d'IBM (http://www-01.ibm.com/support/docview.w ... wg21178583)

Dim Maildb As Object
Dim MailDoc As Object
Dim Body As Object
Dim Session As Object

Set Session = CreateObject("Lotus.NotesSession")
Set Maildb = Session.GETDATABASE("Serveur1", "mail\service1.nsf")
If Not Maildb.IsOpen = True Then
Call Maildb.Open
End If

Set MailDoc = Maildb.CREATEDOCUMENT
Call MailDoc.ReplaceItemValue("Form", "Memo")
Call MailDoc.ReplaceItemValue("SendTo", "TOTO1@societe.fr")
Call MailDoc.ReplaceItemValue("Subject", "bonjour")
Set Body = MailDoc.CREATERICHTEXTITEM("Body")
Call Body.APPENDTEXT("Bonjour...")

MailDoc.SAVEMESSAGEONSEND = True

Call MailDoc.SEND(False)
'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing

[Michael DELIQUE]

salut

un article qui pourrait t'aider => http://www.dominux.fr/dominux/Blog.nsf/ ... OFRESJ.htm

[roubech]

si tu regarde bien le mail reçus "en interactif", tu verra la nuance au niveau des champs Principal (la BAL d'où le mail part = service) et Sender (l'ID du user qui clique sur le bouton envoyer = toto)
le code qui ajoute ce champ Sender fait partie de l'interface, c'est pas dans la méthode native NotesDocument.Send

Je suppose que ton code VB est lancé depuis le même poste, configuré pour le user toto (fichier notes.ini pointe vers toto.id)
tu ne créés pas explicitement le champ Sender
Et la méthode Send n'alimente que le champ Principal (et From)

le reste en suivant le lien de Michael vers le post de Dominux ...