Bonjour,
J'ai une macro qui fonctionne sous Outlook.
Elle envoie un mail avec le texte contenu entre les balises.
Pas le temps de l'adapter, mais si quelqu'un veut y consacrer un peu de temps…
Sub Envoi_MailExcel()
' Macro créée par Soleusterm
' Macro fonctionnelle sous Microsoft Office 2013 créée pour votre usage
' Cette macro envoie un mail aux destinataires dans la liste selon votre choix
Dim olApp As thunderbird.Application
Dim olMail As MailItem
Dim StrBody As String
Dim Dest As String
' Module de sélection des adresses
Set Aselectionner = Application.InputBox _
(prompt:="selectionner la plage de cellule ", _
Title:=" Plage de cellules ? s?lectioner", Type:=8)
Aselectionner.Select 'Selection de la plage souhaitée
Application.ScreenUpdating = False
For Each Lescellules In Aselectionner
Dest = Lescellules.Value
'Création des mails
'Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(olMailItem)
' Contenu des mails
StrBody = "<HTML><Body><p><Span style='font-family:Tahoma;font-size:10pt'>Bonjour Mesdames et Messieurs.</p>" _
& "<p>Je vous remercie de votre attention</span></p>" _
& "<p>...</span></p>" _
& "<p>...</span></p>" _
& "<p><Span style='color:red;font-family:Tahoma;font-size:16pt'><b><i><center>TOTO.COM</center></i></b></span></p>" _
& "<p><center><img src='C:\meeting.gif'></center></p></Body><HTML>" _
& "<p>...</span></p>" _
& "<p>L'?quipe TOTO.com</span></p>"
With olMail
.To = Lescellules.Value
.BCC = ""
.Subject = "Offre de Collaboration"
.HTMLBody = StrBody
.Display
End With
Set olMail = Nothing
Set olApp = Nothing
Next
End Sub