integration image dans mail

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : integration image dans mail

inobody

bonjour à tous,

j'ai fait le tour des forums existants et il m'est impossible de trouver une réponse à ma question.
en effet, j'ai mis en place un système d'envoi de planning automatique par mail.
le code fonctionne très bien, cependant je me suis rendu compte que les mobiles ne pouvaient pas voir le tableau, ce qui donnait une suite de caractères sans aucun sens...
je suis donc parti dans l'optique de transformer le tableau en jpg. quelle mauvaise idée!!!!
en effet, j'ai trouver plusieurs moyen d'importer des image depuis l'ordinateur, de transformé mon tableau en image, mais impossible de trouver un moyen pour simplement coller mon presse papier dans le corps pour envoyé l'image.
je n'ai trouvé qu'un forum proposant cela en exportant puis réimportant avec une complexité qui me dépasse l'image copiée. :cry:
s'il vous plaît, dites moi qu'il existe un autre moyen [:mzarella] .

voici quelques "prototypes" pour que vous vous rendiez compte de mon problème:

celui ci etait la version avec tableau

Code :

Sub envoie_mail()
ActiveCell.Range("A1:P32" ).Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "bonjour , ci joint le planning pour la semaine du " & Date
.Item.To = "exemple@gmail.com"
.Item.Subject = "planning semaine du" & Date
.Item.Send
End With
End Sub

ici, j'ai essayer de mettre l'image dans une autre feuille pour le récupérer ensuite:

Code :

Sub envoie_mail()
ActiveCell.Range("A1:P32" ).Select
Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Sheets("Feuil1" ).Select
ActiveSheet.Paste
Selection.Name = "planning"
ActiveSheet.Shapes.Range(Array("planning" )).Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "bonjour , ci joint le planning pour la semaine du" & Date
.Item.To = "exemple@gmail.com"
.Item.Subject = "le sujet"
.Item.Send
End With
Selection.Delete
End Sub

enfin, j'ai essayer d'exporter puis de réimporter l'image, cependant, ce code créer un diagramme en barre avec des valeurs qui me semblent à moitié aléatoires:

Code :

Sub envoie_mail()
Set OutApp = CreateObject("Outlook.Application" )
Set OutMail = OutApp.CreateItem(0)
Fname = ThisWorkbook.Path & "\Claims.jpg"
ActiveCell.Range("A1:P32" ).Select
Selection.CopyPicture xlScreen, xlBitmap
Set oCht = Charts.Add
With oCht
.Paste
.Export Filename:=Fname, Filtername:="JPG"
End With
On Error Resume Next
With OutMail
.To = "exemple@gmail.com"
.Subject = "Le sujet"
.Attachments.Add Fname
.HTMLBody = "<html><p>Summary of Claim Status.</p>" & _
"<img src=""cid:Claims.jpg"">"
.Display
.Send
End With
Kill Fname
For Each AChart In ActiveWorkbook.Charts
AChart.Delete
Next
End Sub

Message édité par inobody le 17-10-2019 à 08:57:33

Publicité

rejane

si tu fais un copier/ coller de ton tableau et tu le glisses ensuite dans ton mail, cela doit fonctionner

inobody

non, justement, c'est ce que j'expiquais, les téléphones ne peuvent pas ouvrir les tableaux, ce qui donne une suite de caractère pas random mais inutilisables.

mechkurt

Je ne connais pas du tout VBA, mis si tu veux exporter un planing pour envoyer par Email a des mobiles je penses plutôt que tu devrais regarder pour exporter en pdf (à envoyer en pièces jointes du mail).

---------------
D3

inobody

j'ai regardé aussi, mais ce n'est pas beaucoup plus simple et l'idée d'avoir limage dans le corps du mail et de ne pas avoir à télécharger un pdf chaque semaine me plaisait bien, en effet, je trouve ça plus user friendly de mettre l'image dans le corps du mail, ce qui est impossible avec un odf

mechkurt

Bon courage pour que ton image s'affiche dans ton Email sur tous les terminaux.
De ma propre expérience, envoyer une photo en pièces jointes c'est (relativement) simple, l’afficher dans le contenu beaucoup moins (en tout cas pour que ça fonctionne partout) !
En plus avec le pdf, le texte reste sélectionnable, on peut zoomer, ce sera surement plus léger, enfin bref, c'était juste une piste à creuser...

Bonus : ça n'a pas l'air si compliqué : https://www.google.com/searchq=VBA+ [...] nge+to+pdf

---------------
D3

rat de combat

attention rongeur méchant!

Si l'adresse mail dans les codes est réelle tu devrais la virer.
PS: png ou gif, en tout cas pas jpg pour des tableaux etc.

Message édité par rat de combat le 16-10-2019 à 19:17:01

rufo

Pas me confondre avec Lycos!

En plus, en mettant l'image direct dans un mail, il risque de tomber sur un autre problème : le blocage de l'affichage de l'image par le client mail
+1 pour une version PDF.
Sinon, convertir le tableau Excel en tableau HTML.

---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta

FORUM HardWare.fr

Programmation

VB/VBA/VBS

integration image dans mail

Sujets relatifs
Aggrandir une image de Portfolio en cliquant / JS	Intéger les data d'une image au source HTML
envoie mail lors de son inscription	ValueError: not enough image data avec PIL
Trace du mail envoyé avec PHP	Générateur HTML à partir d'une image
envoie de mail wordpress	RESOLU : Icone dans les objets des mail
Codage bouleversé par une image ?	Besoin d'aide pour améliorer ma signature mail svp.
Plus de sujets relatifs à : integration image dans mail

Page générée en 0.070 secondes