Re : envoie une plage par email
Bonjour le forum et a toi Michel.
Je vois que tu connais bien le sujet car tu est souvent dans les repose de ce type de problème.
Jai un code qui foctionne pas trop mal et que j'ai reussi a adapter , mais j'ai un problème lorsque je change d'adresse mail voci le code trouver sur le forum
ce code fonctionne avec une adresse mais pas avec les deux autres
Merci
Sub PlageDeCellulesDansCorpsDuMessageM()
'testé avec XP
'Send using the Pickup directory on the IIS server.
'adapté de :
How To Send HTML Formatted Mail Using CDO for Windows 2000 and the Local Pickup Directory
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 , <BR>vous trouverez ci joint le tableau demandé<BR><BR>"
strHTML = strHTML & "<B><SPAN STYLE='background-color:green;font-size:6mm'>Résultats : </SPAN></B><BR><BR>"
strHTML = strHTML & "<TABLE BORDER>"
For i = 1 To 5 'nombre de lignes (exemple plage A1:B5)
strHTML = strHTML & "<TR halign='middle'nowrap>"
For j = 1 To 2 'nombre de colonnes
strHTML = strHTML & "<TD bgcolor='yellow'align='center'><FONT COLOR='blue'SIZE=3>" _
& Cells(i, j) & "</FONT></TD>"
Next j
strHTML = strHTML & "</TR>"
Next i
strHTML = strHTML & "</TABLE>"
strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Application.UserName
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
With iMsg
Set .Configuration = iConf
.To = "toto@club-internet.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
