Discussion :

[grenoble87]

Bonjour,

En train de finaliser mon fichier client, je souhaite à l'aide d'excell de créer un nouveau mail LOTUS (vide) et d'ajouter les déstinataires automatiquement. Sur mon fichier test j'aimerais que les contacts de la colonne E soit tous ajouter comme déstinataires. Je ne veux surtout pas envoyer le mail automatiquement car le mail sera différent à chaques fois saisi manuellement.
J'ai trouvé beaucoup de ligne de code différente sur le sujet mais impossible pour moi de l'adapter. Je préfere donc partir sur un code simple sans envoi de message automatique si possible.
Je n'est rien de trouver de similaires sur le forum....

Merci par avance pour votre aide.
Je vous joins un petit fichier en exemple pour la compréhension.
Essai 2.zip

[kuchiky]

Bonjour,

Qu'entends-tu par mail LOTUS?

Je ne veux surtout pas envoyer le mail automatiquement

Il faut donc par exemple une macro qui te permettrai d'envoyer ca en appuyant sur un bouton?


Pour l'envoi de mail, tu pourrais créer un tableau dynamique qui prend en valeur ce que tu as dans ta colonne E, puis t'ajoutes dans ton mail d'envoi section "destinataire" ce tableau de destinataire.

[grenoble87]

Bonjour et merci pour ton message.

Je vais essayer d'être plus clair dans mon explication:

En fait, via mon application excel j'aimerais seulement un bouton qui me créer un nouveau mail, récupère les adresses des destinataires dans la colonne MAIL et les place dans les destinataires du mail dans lotus.Je ne veux surtout pas qu'il m'envoi le mail.
J'ai trouvé ce code mais il ne fonctionne pas....

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub UseLotus()
 
 
    Dim Session As Object
    Dim Dir As Object
    Dim Doc As Object
    Dim Workspace As Object
    Dim EditDoc As Object
 
On Error GoTo TraiteErreur
 
    'Création de la session Notes
    Set Workspace = CreateObject("Notes.NotesUIWorkspace")
    Set Session = CreateObject("notes.NOTESSESSION")
    Set Dir = Session.GETDATABASE("", "")
    Call Dir.OPENMAIL
 
    'Creation d'un document
    Set Doc = Dir.CREATEDOCUMENT
 
    Doc.form = "Memo"
    Doc.Subject = "Sujet du mail"
    Doc.SendTo = "Receiver@mail.com"
    Doc.body = "This is the body."
 
    'Affichage du mail dans Lotus Notes
    Set EditDoc = Workspace.EditDocument(True, Doc)
 
    Set Session = Nothing
    Set Dir = Nothing
    Set Doc = Nothing
    Set Workspace = Nothing
    Set EditDoc = Nothing
 
    Exit Sub
 
TraiteErreur:
 
    MsgBox "Problème de création du mail", vbCritical, "Error"
 
    Set Session = Nothing
    Set Dir = Nothing
    Set Doc = Nothing
    Set Workspace = Nothing
    Set EditDoc = Nothing
 
End Sub

[lowno]

Salut,

La macro que tu présente est une macro "type" qui demande à être paramétré avec "tes" conditions.

Lotus étant une messagerie mail, il faut lui donner les bon éléments.

Ainsi, 2 solutions s'offrent à toi :

La première :

Dans cette partie du code :

Code :

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

1
2
3
4
5
6
7
'Creation d'un document
Set Doc = Dir.CREATEDOCUMENT
 
Doc.form = "Memo"
Doc.Subject = "Sujet du mail"
Doc.SendTo = "Receiver@mail.com" '<---- Ici tu peut noter les destinataires mails séparé par un ";" ex: "ggg@g.com;fff@g.fr"
Doc.body = "This is the body."

Si tes destinataires sont dans une cellule de ton fichier excel et séparés par un ";" alors il faut remplacer :

Code :

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

Doc.SendTo = "Receiver@mail.com"

par :

Code :

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

Doc.SendTo = Sheets("feuil").Range("U2").Value '<--- Ici se trouve le "chemin" où sont stocké tes mails, donc la colonne "E"' pour toi, en l'occurence, il faut donc adapter le code ...

Autre solution :


Tu "déclare" tes destinataires :

Code :

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

AdresDestinataire$ = Sheets("feuil").Range("U2").Value '<--- Tu doit déclarer où se trouvent ta liste

Tu créer une "table" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If InStr(AdresDestinataire$, ";") = 0 Then AdresDestinataire$ = AdresDestinataire$ & ";"
Dim TabloAdresDestin As Variant
TabloAdresDestin = Split(AdresDestinataire$, ";")
 
For i = LBound(TabloAdresDestin) To UBound(TabloAdresDestin)
 If Trim(TabloAdresDestin(i)) > "" Then
    AdresDestinataire$ = TabloAdresDestin(i)
    Set Document = DataBase.CREATEDOCUMENT
    Document.Form = "Memo"
    Document.Sendto = AdresDestinataire$
    Document.Subject = "Bonjour"
    Document.Body = Message$   '<----- Remplace "Message$" par "" si tu veut un mail "vide"

[grenoble87]

Bonjour,

Merci pour ta réponse je vais tester tout ça dés lundi et je te ferai un retour.

Encoe merci