Envoi de mail par VB d'une des deux boites mail

[JenniferAU]

Bonjour,

J'ai deux boites mail Lotus : une à mon nom et une autre pour l'équipe.
J'ai une petite appli en VB qui envoie des mails MAIS les mails sont au nom de la première alors que j'ai bien renseigne le fichier nsf de la deuxième dans MailDbName

Merci de votre aide

Jennifer

[roubech]

bonjour

si on voyait un bout de code, on pourrait peut-être plus facilement t'aider.
Sinon, comme ça, je dirais que c'est lié à l'ID utilisé pour te connecter à Lotus depuis ton VB
C'est pas du VB, mais le principe est là :
http://www.dominux.net/dominux/dominux. ... OFRESJ.htm

[JenniferAU]

'Crée une session notes
Set Session = CreateObject("Notes.NotesSession")

'Récupère le nom d'utilisateur et crée le nom de la base des mails
MailDbName = "mail\Mail2\parbp2iplaninstpdt.nsf"

'Ouvre la base des mails
Set Maildb = Session.GETDATABASE("", MailDbName)
If Not Maildb.IsOpen Then Maildb.OPENMAIL

'Paramètre le mail à envoyer
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient ' adresse e-mail du destinataire principal
MailDoc.CopyTo = ccRecipient ' destinataire en copie
MailDoc.BlindCopyTo = bccRecipient ' destinataire en copie invisible
MailDoc.Subject = Subject ' sujet du mail
MailDoc.Body = BodyText ' corps du mail
MailDoc.SAVEMESSAGEONSEND = SaveIt ' mettre à True pour que le mail soit sauvegardé
MailDoc.ReturnReceipt = "1" ' Pour avoir un accusé de réception

Merci de votre aide

jennifer

[kochiz]

Bonjour,

Quand tu ouvres ta base via ton VB c'est ton id qui est utilisé.
Il faut que tu "initialize" ton objet NotesSession avec un id différent et mettre en ligne le mot de passe associé ce qui n'est pas très clean.