Bonjour à tout le forum,
J’ai adapté un code trouvé ici même (par avance désolé car je ne me souviens plus du nom de l’auteur…) pour l’envoi d’un mail à partir d’Excel.
Tout fonctionne à l’exception d’un dernier petit problème : Un fois ma plage sélectionnée je n’arrive pas à la coller dans le corps de texte de mon message. Je dois faire le Collage à la main.
Voilà le code :
J'ai consulté pas mal de fils au sujet de l'envoi d'email mais ceux qui ont posés le même type de question sont malheureusement sans réponse.
Merci pour votre aide.
Bonne journée.
J’ai adapté un code trouvé ici même (par avance désolé car je ne me souviens plus du nom de l’auteur…) pour l’envoi d’un mail à partir d’Excel.
Tout fonctionne à l’exception d’un dernier petit problème : Un fois ma plage sélectionnée je n’arrive pas à la coller dans le corps de texte de mon message. Je dois faire le Collage à la main.
Voilà le code :
Code:
Sub EnvoiMail()
Dim ol As Object, myItem As Object
Dim strHtml As String
Set Plage = ActiveSheet.Range("A1:J16")
Application.ScreenUpdating = False
Plage.CopyPicture Appearance:=xlScreen, Format:=xlPicture
strHtml = "Bonjour, <BR><BR>"
strHtml = strHtml & "Pouvez-vous me faire un retour concernant XXXXXXX ?"
strHtml = strHtml & "<BR><BR>"
'A cet emplacement je voudrais coller ma plage de données. La ligne ci dessous ne le permettant pas...
strHtml = strHtml & "<IMG align=baseline border=0 hspace=0 src=Selection.PasteAndFormat (wdPasteDefault)>"
strHtml = strHtml & "<BR><BR>" & _
"Cordialement," & "<BR><BR>"
strHtml = strHtml & "<B><font style='font-family: Arial ;font-size: 10pt ;' color=midnightblue>XXXXXXXXXX</Font></B>" & "<BR>"
strHtml = strHtml & "<font style='font-family: Arial ;font-size: 10pt ;' color=midnightblue>XXXXXXXXXXXXXXXX</Font>" & "<BR>"
strHtml = strHtml & "<font style='font-family: Arial ;font-size: 10pt ;' color=midnightblue>XXXXXXXXXXX</Font>" & "<BR>"
strHtml = strHtml & "<font style='font-family: Arial ;font-size: 10pt ;' color=midnightblue>XXXXXXXXXXXXX</Font>" & "<BR>"
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = Range("C22") & " ;" & Range("C23") & " ;" & Range("C24") & " ;" & Range("C25") & " ;" & Range("C26") & " ;" & Range("C27") & " ;" & Range("C28")
myItem.Subject = "Avancement : " & Range("F22")
myItem.HtmlBody = strHtml
myItem.display
Set ol = Nothing
End Sub
J'ai consulté pas mal de fils au sujet de l'envoi d'email mais ceux qui ont posés le même type de question sont malheureusement sans réponse.
Merci pour votre aide.
Bonne journée.