Bonjour le Forum,
J'ai une macro Excel qui envoi des mails chaque jour à une centaine de destinataires, (chaque mail est unique !!), le contenu du mail s'inscrit dans le corps du message outlook (2000).
Ce que je souhaiterai, c'est que le contenu du mail(qui est en HTML) soit en pièce jointe.
le code que j'utilise actuellement :
Sub EnvoyerMail(Email As String, sujet As String, message As String, FormatEmail As String)
Dim ol As Outlook.Application
Dim mail As Outlook.MailItem
Set ol = New Outlook.Application
Set mail = ol.CreateItem(olMailItem)
mail.Subject = sujet
mail.Recipients.Add Email
If FormatEmail = "HTML" Then
mail.HTMLBody = message
Else
mail.Body = message
End If
mail.Send
ol.Quit
Set ol = Nothing
End Sub
Merci d'avance.
J'ai une macro Excel qui envoi des mails chaque jour à une centaine de destinataires, (chaque mail est unique !!), le contenu du mail s'inscrit dans le corps du message outlook (2000).
Ce que je souhaiterai, c'est que le contenu du mail(qui est en HTML) soit en pièce jointe.
le code que j'utilise actuellement :
Sub EnvoyerMail(Email As String, sujet As String, message As String, FormatEmail As String)
Dim ol As Outlook.Application
Dim mail As Outlook.MailItem
Set ol = New Outlook.Application
Set mail = ol.CreateItem(olMailItem)
mail.Subject = sujet
mail.Recipients.Add Email
If FormatEmail = "HTML" Then
mail.HTMLBody = message
Else
mail.Body = message
End If
mail.Send
ol.Quit
Set ol = Nothing
End Sub
Merci d'avance.