Envoi Automatique de Mail

bonjour !

J'utilise une macro qui me permet d'envoyer un mail à un service.

Jusque là tout fonctionne.

Le mail est envoyé par Lotus Note.

Le Destinataire reçois donc mon mail avec mon adresse mail comme expéditeur (logique) ...

Cependant je souhaiterai réussir à envoyer mes mails mais via une boite générique.
Lorsque je lance mon Lotus Note, j'ai donc 2 BASES

1) Ma boite mail perso

2) Une autre BASE d'envoi de mail à laquelle je suis habilité ( mais /!\ sur un autre serveur /!\ que ma boite perso )

j'ai trouvé un début de code ... mais je ne comprend pas sa mise en place
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Set Session = CreateObject("Notes.NotesSession") ' Récupération du nom du serveur Server = Session.GetEnvironmentString("MailServer", True) ' Si le nom de database (pour envoyer d'un boîte mail commune) est défini, on l'utilise. ' Sinon on utilise la boîte perso If SendFrom = vbNullString Then MailDbName = Session.GetEnvironmentString("MailFile", True) Else MailDbName = SendFrom End If ' Récupération du nom d'utilisateur Lotus Notes UserName = Session.UserName
Dans l'attente de vous lire ... Encore merci ! : )

'----------------------------------------------------------' '****Création de la session note****' Set Session = CreateObject("Notes.NotesSession") UserName = Session.UserName '----------------------------------------------------------' '****Utilisation de la boite perso pour envoyer le mail****' 'MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" 'Set Maildb = Session.GETDATABASE("", MailDbName) '----------------------------------------------------------' '****Utilisation de la boite générique pour envoyer le mail****' sfrom = "NOMBOITEMAIL" Set Maildb = Session.GETDATABASE("/MONSERVEUR/NOMBOITEMAIL", "mail\mail-xxx\LENOMDUFICHIER.nsf") ' selectionne la boite de messagerie If Maildb.IsOpen = True Then 'Test pour savoir si la mesagerie est ouverte Else Maildb.OPENMAIL End If

Envoi Automatique de Mail - Choix getdata