Discussion :

[lowno]

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 ! : )

[lowno]

Re - bonjour

En cherchant et en bidouillant. J'ai trouvé une solution.

Je poste au cas où cela puisse aider : )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
'----------------------------------------------------------'
'****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

L'envoi et le retour se fait sur la BOITE GENERIQUE DEFINI.

Bien à vous.