Discussion :

[lowno]

bonjour !

Je suis inscrit sur ce forum et je viens vers vous pour affiner une idée.

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) ...

Lorsque je lance mon Lotus Note, j'ai donc 2 BASES

1) Ma boite mail perso

2) Une autre BASE d'envoi de mails à laquelle je suis habilité ( mais /!\ sur un autre serveur /!\ que ma boite perso ), je peux ouvrir cette BASE et écrire mon mail.

Cependant je souhaiterai réussir à envoyer mes mails mais via une boite générique (la 2eme boite que je suis habilité à ouvrir)

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
'----------------------------------------------------------'
'****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.