Sujet Précédent Sujet Suivant

Macro Excel diffusion de mail avec insertion html

Fermé
Vinz33 - 17 nov. 2014 à 14:46
 Vinz33 - 17 nov. 2014 à 16:03
Bonjour tout le monde,

Je souhaite automatiser un e mailing. Pour cela j'ai déjà codé un programme vba (dans lequel je déterminais directement le corps du message), cependant je souhaite le modifier pour intégrer un HTML directement au lieu du texte (pour le moment: "Bonjour," & Chr(10) & Chr(10) ).

Comment adapter le code ?

Sub DIFFUSION()

Dim corps, MAIL As String
Dim MonOutlook As Object
Dim MonMessage As Object
Dim I As Integer


'Liste de diffusion

For I = 1 To 430

MAIL = Workbooks("LISTE_EXPOSANT_2015.xlsm").Worksheets("LISTE").Cells(I, 2).Value

'Création d'un nouveau mail

Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)

'Identification des destinataires
MonMessage.To = MAIL

'Sujet du mail
MonMessage.Subject = "TEST_COMM_EXPOSANT"

'Corps du mail
corps = "Bonjour," & Chr(10) & Chr(10)

MonMessage.Body = corps

'Sauvegarde du mail en brouillon
MonMessage.Save

Next

' Fermeture de la session Outlook :
Set MonOutlook = Nothing


End Sub


En vous remerciant d'avance pour vos réponses :)

Vincent
A voir également:

1 réponse

Réponse 1 / 1
Vinz33
17 nov. 2014 à 16:03
J'ai trouvé la réponse en fouinant sur le net:

---------------------------

Sub Diffusion()

Dim corps, MAIL As String
Dim MonOutlook As Object
Dim MonMessage As Object
Dim I As Integer
Dim FSo As New Scripting.FileSystemObject
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application



For I = 2 To 5

'Create e-mail item
Set objMail = olApp.CreateItem(olMailItem)

MAIL = Workbooks("LISTE_EXPOSANT_2015.xlsm").Worksheets("LISTE2").Cells(I, 2).Value

'Création d'un nouveau mail

'Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = objMail

'Identification des destinataires
MonMessage.To = MAIL

'Sujet du mail
MonMessage.Subject = "TEST_COMM_EXPOSANT"

'Corps du mail
corps = FSo.GetFile("teasingfr.HTML").OpenAsTextStream.ReadAll

With objMail
'Set body format to HTML
.BodyFormat = olFormatHTML
.HTMLBody = corps
.Display
End With


'Sauvegarde du mail en brouillon
MonMessage.Save

Next

' Fermeture de la session Outlook :
Set MonOutlook = Nothing


End Sub



-------------------------

SI cela peut aider d'autres personnes...

A bientot

VIncent
0