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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ! : )