Envoyer un tableau excel comme corps message par outlook

Guy NSIMBA · 31 Janvier 2005

Bonjour à Tous,

Je voudrais envoyer un tableau Excel (A1:F4) par OUTLOOK ou OUTLOOK EXPRESS comme corps du message et non pas comme fichier joint. Voici le code VBA que j'utilise mais qui ne marche pas. Je ne comprends pas où se situe l'erreur. Merci de m'aider.

Sub EnvoiPlageDonnéeParMail()

Dim Plage As Range, T As Variant, A As Long
Dim Shap As Object, F As Integer

Application.ScreenUpdating = False
With Worksheets("envoyer")
Set Plage = Worksheets("envoyer").Range("A1:F4")
T = Plage
.Copy
End With

A = Plage.Rows.Count
F = Plage.Columns.Count

With ActiveWorkbook
With .VBProject.VBComponents(ActiveSheet.Name).CodeModule
.deletelines 1, .countoflines
End With
With .ActiveSheet
.Cells.Clear
.Range(Cells(1, 1), Cells(A, F)) = T
For Each Shap In .Shapes
Shap.Select Replace:=False
Next
Selection.Delete
End With
SendKeys "(%{E})", False
.SendMail Recipients:="simba59pa@yahoo.fr", Subject:="Test"
.Close savechanges:=False
End With
Set Plage = Nothing: Set Shap = Nothing

End Sub

N.B: "envoyer" = nom de ma feuille Excel
(A1:F4) = mon tableau Excel à envoyer
simba59pa@yahoo.fr = mon adresse email

michel · 31 Janvier 2005

bonjour Guy

j'espere que cet exemple pourra t'aider (testé avec Outlook,Excel2002 et WinXP)

Sub PlageDeCellulesDansCorpsDuMessage()
'Send using the Pickup directory on the IIS server.
'adapté de : http://support.microsoft.com/default.aspx?kbid=286430
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Dim i As Byte, j As Byte

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , vous trouverez ci joint le tableau demandé "
strHTML = strHTML & "Résultats : "
strHTML = strHTML & "<TABLE BORDER>"

'(exemple plage A1:F4)
For i = 1 To 4 'nombre de lignes

strHTML = strHTML & "<TR halign='middle'nowrap>"
For j = 1 To 6 'nombre de colonnes
strHTML = strHTML & "<TD bgcolor='yellow'align='center'>" _
& Cells(i, j) & "</TD>"
Next j
strHTML = strHTML & "</TR>"

Next i

strHTML = strHTML & "</TABLE>"

strHTML = strHTML & " Cordialement " & Application.UserName
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""

With iMsg
Set .Configuration = iConf
.To = "michelxld@yahoo.fr" 'renvoie une erreur si l'adresse est non valide
'.From = "youralias@yourdomain.com"
.Subject = "Test Envoi Tableau par mail"
.HTMLBody = strHTML
.Send
End With

End Sub

bonne journée
MichelXld

@+Thierry · 31 Janvier 2005

Bonjour Guy, le Forum

A ma connaissance la méthode SendMail ne permettra pas la construction du corps de message, mais d'envoyer le fichier en pièce jointe.

Orientes toi vers "FollowHyperlink" voir ce fil Lien supprimé

Par contre tu as du pain sur la planche pour écrire un tableau avec les tabulations et tout le reste...

A moins de générer une page HTM peut-être mais là je n'ai pas encore fait la récupération en corp de message mail...

Bon Courage
@+Thierry

@+Thierry · 31 Janvier 2005

Bonjour Michel, re Guy

Ah bien il semble que tu aies une solution interressante Michel.

En tout cas, Michel, heureux de te croiser dans un Fil, et merci pour ton mot de "Welcome Back" sur un autre Fil...

Bonne Semaine à Tous et Toutes
@+Thierry

bricofire · 31 Janvier 2005

Bonjour,

Si c'est juste pour communiquer des données non interactives,
une méthode simpliste et qui permet énormément de choix est tout simplement, d'utiliser le programme de capture d'écran Hyper snap DX (cf http://www.hyperionics.com/index.asp?rc=28R82) et la commande insérer une image plutot que pièce jointe de outlook. C'est sans prise de tête et offre un infinité de possibilités avec un peu d'imagination.

cordialement,

Bfr

Effectuez une recherche sur Excel Downloads...

Envoyer un tableau excel comme corps message par outlook

Guy NSIMBA

Guest

michel

Guest

@+Thierry

Guest

@+Thierry

Guest

bricofire

Guest

Discussions similaires

Nous accordons de l'importance à votre vie privée