Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

envoi mail en html avec tableau dans le corps du mail.

1 réponse
Avatar
sleg
BOnjour,

Voici mon probleme enfin 2 preblemes .
Probleme 1 :
je ne re=E7ois pas le mail ???? et la je bloque et je n'ai aucun message
d'erreur...

Probleme 2 :
je ne vois pas comment mettre un tableau dun feuille excel dans le
corps de mon mail

merci de votre aide.

j'utilise le code ci-dessous.

Sub sendmail2()
Dim Email As Outlook.MailItem
Dim strHTML As String
Dim Obj_Outlook As Outlook.Application
Dim New_Mail As Outlook.Items

' Cr=E9ation objet Application Outlook
Set Obj_Outlook =3D CreateObject("outlook.Application")
' Cr=E9ation objet Nouveau message
Set Email =3D Obj_Outlook.CreateItem(olMailItem)
Email.ReadReceiptRequested =3D False
Email.To =3D "toto@tata.fr"
Email.cc =3D ""
Email.BCC =3D ""
Email.Subject =3D "Dashboard Incidents " & Now()
Email.FlagIcon =3D olYellowFlagIcon
Email.Importance =3D olImportanceHigh
' Attachement de la pi=E8ce jointe
Set Attachment =3D Email.Attachments
Attachment.Add "\\rep1\monfichier.xls", 1, 500, "Nom du fichier
joint "
' Premi=E8re solution en format HTML
strHTML =3D "<HTML>"
strHTML =3D strHTML & "<HEAD>"
strHTML =3D strHTML & "<BODY>"
strHTML =3D strHTML & "<FONT face=3DCalibri (Corps) color=3D#110000
size=3D2>"
strHTML =3D strHTML & "Bonjour =E0 tous,</br>"
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> texte 1."
strHTML =3D strHTML & "<br> texte2. (fichier Excel) "
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> texte1 eng"
strHTML =3D strHTML & "<br> texte2 eng "
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<b>"
strHTML =3D strHTML & "<span style=3Dbackground:#ffff00>SYNTHESE :</
span>"
strHTML =3D strHTML & "</b>"
strHTML =3D strHTML & "<br> "


'inserer le tableau se trouvant dans onglet synth=E8se a5:d25


strHTML =3D strHTML & "<br>"
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br>"
strHTML =3D strHTML & "<b>"
strHTML =3D strHTML & "<span style=3Dbackground:#ffff00>TITRE 1:</
span>"
strHTML =3D strHTML & "</b>"
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "Ton texte ici."
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> "


'inserer le tableau se trouvant dans onglet synth=E8se H5:I9


strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<b>"
strHTML =3D strHTML & "<span style=3Dbackground:#ffff00>TITRE 2 : </
span>"
strHTML =3D strHTML & "</b>"
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "Ton texte ici."
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<b>"
strHTML =3D strHTML & "<span style=3Dbackground:#ffff00>TITRE 3 : </
span>"
strHTML =3D strHTML & "</b>"
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "Ton texte ici."
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<b>"
strHTML =3D strHTML & "<span style=3Dbackground:#ffff00>AUTRES : </
span>"
strHTML =3D strHTML & "</b>"
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "Ton texte ici."
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "<br> "
strHTML =3D strHTML & "</FONT>"
strHTML =3D strHTML & "</BODY>"
strHTML =3D strHTML & "</HTML>"
Email.HTMLBody =3D strHTML
' Affichage mail
'Email.Display
'Ou envoi du mail
Email.Send
End Sub

1 réponse

Avatar
MichD
Bonjour,

Un exemple d'une envoi de la feuille active en Html
dans un message par Microsoft Outlook
Je n'ai plus l'auteur de ces lignes :

'-------------------------------------
Sub MailActiveSheet()
Application.ScreenUpdating = False
With CreateObject("Outlook.Application")
With .CreateItem(0)
.To = ""
.Subject = "Test d'envoi de la feuille active !"
.HTMLBody = HTML(ActiveSheet)
.Send
End With
End With
End Sub
'-------------------------------------
Private Function HTML(sh As Worksheet) As String
On Error Resume Next
Const Tmp As String = "C:temp.htm"
Kill Tmp: sh.Copy: Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes: Shp.Delete: Next
ActiveWorkbook.SaveAs Tmp, xlHtml
ActiveWorkbook.Close False
Dim fso As Object, ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(Tmp, 1)
HTML = ts.ReadAll: ts.Close: Kill Tmp
Set ts = Nothing: Set fso = Nothing
End Function
'-------------------------------------


MichD
--------------------------------------------
"sleg" a écrit dans le message de groupe de discussion :


BOnjour,

Voici mon probleme enfin 2 preblemes .
Probleme 1 :
je ne reçois pas le mail ???? et la je bloque et je n'ai aucun message
d'erreur...

Probleme 2 :
je ne vois pas comment mettre un tableau dun feuille excel dans le
corps de mon mail

merci de votre aide.

j'utilise le code ci-dessous.

Sub sendmail2()
Dim Email As Outlook.MailItem
Dim strHTML As String
Dim Obj_Outlook As Outlook.Application
Dim New_Mail As Outlook.Items

' Création objet Application Outlook
Set Obj_Outlook = CreateObject("outlook.Application")
' Création objet Nouveau message
Set Email = Obj_Outlook.CreateItem(olMailItem)
Email.ReadReceiptRequested = False
Email.To = ""
Email.cc = ""
Email.BCC = ""
Email.Subject = "Dashboard Incidents " & Now()
Email.FlagIcon = olYellowFlagIcon
Email.Importance = olImportanceHigh
' Attachement de la pièce jointe
Set Attachment = Email.Attachments
Attachment.Add "rep1monfichier.xls", 1, 500, "Nom du fichier
joint "
' Première solution en format HTML
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<FONT faceÊlibri (Corps) color=#110000
size=2>"
strHTML = strHTML & "Bonjour à tous,</br>"
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> texte 1."
strHTML = strHTML & "<br> texte2. (fichier Excel) "
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> texte1 eng"
strHTML = strHTML & "<br> texte2 eng "
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> "
strHTML = strHTML & "<b>"
strHTML = strHTML & "<span styleºckground:#ffff00>SYNTHESE :</
span>"
strHTML = strHTML & "</b>"
strHTML = strHTML & "<br> "


'inserer le tableau se trouvant dans onglet synthèse a5:d25


strHTML = strHTML & "<br>"
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br>"
strHTML = strHTML & "<b>"
strHTML = strHTML & "<span styleºckground:#ffff00>TITRE 1:</
span>"
strHTML = strHTML & "</b>"
strHTML = strHTML & "<br> "
strHTML = strHTML & "Ton texte ici."
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> "


'inserer le tableau se trouvant dans onglet synthèse H5:I9


strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> "
strHTML = strHTML & "<b>"
strHTML = strHTML & "<span styleºckground:#ffff00>TITRE 2 : </
span>"
strHTML = strHTML & "</b>"
strHTML = strHTML & "<br> "
strHTML = strHTML & "Ton texte ici."
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> "
strHTML = strHTML & "<b>"
strHTML = strHTML & "<span styleºckground:#ffff00>TITRE 3 : </
span>"
strHTML = strHTML & "</b>"
strHTML = strHTML & "<br> "
strHTML = strHTML & "Ton texte ici."
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> "
strHTML = strHTML & "<b>"
strHTML = strHTML & "<span styleºckground:#ffff00>AUTRES : </
span>"
strHTML = strHTML & "</b>"
strHTML = strHTML & "<br> "
strHTML = strHTML & "Ton texte ici."
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> "
strHTML = strHTML & "<br> "
strHTML = strHTML & "</FONT>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
Email.HTMLBody = strHTML
' Affichage mail
'Email.Display
'Ou envoi du mail
Email.Send
End Sub