Bonjour,
j'essaye d'automatiser l'envoi d'email via vba sous excel.
Cela fonctionne bien.
Il me reste deux choses que je n'arrive pas à faire
1 : comment mettre dans Range la plage de cellulles selectionnées ? (à la place de mon Set RList = Range("B1", Range("B1" ).End(xlDown))
2 : Comment dans le .Body, je peux insé"rer une image (elle est en local, f:\test\01.jpg)
Voici mon code :
Code :
- Sub sendmail()
- Dim EApp As Object
- Set EApp = CreateObject("Outlook.Application" )
- Dim EItem As Object
- Set EItem = EApp.CreateItem(0)
- Dim path As String
- path = "F:\TEMPOBOX\AFFICHEUR TEMPO - Notice Mars 2024.pdf"
- Dim RList As Range
- 'Set RList = Range("B1", Range("B1" ).End(xlDown))
- Dim R As Range
- For Each R In RList
- Set EItem = EApp.CreateItem(0)
-
- With EItem
- .To = R.Offset(0, 8)
- .SentOnBehalfOfName = "MONADRESEMAIL"
- .Subject = "Titre du message"
- .Attachments.Add (path)
- .Body = "Bonjour " & R & " " & R.Offset(0, 1) & vbNewLine & vbNewLine & vbNewLine & vbNewLine _
- & "Je vous remercie pour votre achat." & vbNewLine & vbNewLine _
-
- .Display
-
- End With
-
- Next R
-
- Set EApp = Nothing
- Set EItem = Nothing
- End Sub
|
Merci pour votre aide.
Message édité par davidmarli le 03-05-2024 à 08:32:14
---------------
Matheux Fou - https://afficheur-tempo.fr - TEMPO BOX pour abonnés TEMPO EDF
