Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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 = "guettotrou@etmalo.net"
.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 :
89886e27-68e7-49a5-9d39-01d3c592f6b4@n10g2000yqf.googlegroups.com...
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
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