Bonjour

j'ai un problème
je voudrais envoyer un message par outlouk et j'ai la liste de mes contacts dans un fichier excel
je cherche une macro pour éviter les copier coller merci

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
Sub MailingListe()
Dim Dest As String
Dim Sujt As String
'Dim Msg As String
For Each Lescellules In Range("d2:d4")
Dest = Lescellules.Value
Sujt = "Test d'envoi avec Excel"
'Msg = "Bonjour, Excel vous envoie un message avec OE" _& vbNewLine & "Daniel.j"
Msg = Worksheets("nouveau.xls").Shapes("Zone de texte 1").TextFrame.Characters.Text
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
Next
'et si le texte du message est dans une zone de texte :
 
End Sub