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
Partager