integration image dans mail

integration image dans mail - VB/VBA/VBS - Programmation

Marsh Posté le 16-10-2019 à 15:25:50    

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 :
  1. Sub envoie_mail()
  3. ActiveCell.Range("A1:P32" ).Select
  4. ActiveWorkbook.EnvelopeVisible = True
  6. With ActiveSheet.MailEnvelope
  7. .Introduction = "bonjour , ci joint le planning pour la semaine du " & Date
  8. .Item.To = "exemple@gmail.com"
  9. .Item.Subject = "planning semaine du" & Date
  10. .Item.Send
  11. End With
  12. End Sub


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

Code :
  1. Sub envoie_mail()
  3. ActiveCell.Range("A1:P32" ).Select
  4. Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
  5. Sheets("Feuil1" ).Select
  6. ActiveSheet.Paste
  7. Selection.Name = "planning"
  8. ActiveSheet.Shapes.Range(Array("planning" )).Select
  9. ActiveWorkbook.EnvelopeVisible = True
  11. With ActiveSheet.MailEnvelope
  12. .Introduction = "bonjour , ci joint le planning pour la semaine du" & Date
  13. .Item.To = "exemple@gmail.com"
  14. .Item.Subject = "le sujet"
  15. .Item.Send
  16. End With
  17. Selection.Delete
  18. 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 :
  1. Sub envoie_mail()
  3.     Set OutApp = CreateObject("Outlook.Application" )
  4.     Set OutMail = OutApp.CreateItem(0)
  5.    
  6.     Fname = ThisWorkbook.Path & "\Claims.jpg"
  8.     ActiveCell.Range("A1:P32" ).Select
  9.     Selection.CopyPicture xlScreen, xlBitmap
  10.  
  11.     Set oCht = Charts.Add
  12.  
  13.     With oCht
  14.         .Paste
  15.         .Export Filename:=Fname, Filtername:="JPG"
  16.     End With
  17.        
  18.     On Error Resume Next
  20.    With OutMail
  21.         .To = "exemple@gmail.com"
  22.         .Subject = "Le sujet"
  23.         .Attachments.Add Fname
  24.         .HTMLBody = "<html><p>Summary of Claim Status.</p>" & _
  25.                     "<img src=""cid:Claims.jpg"">"
  26.         .Display
  27.         .Send
  28.     End With
  29.    
  30.     Kill Fname
  31.     For Each AChart In ActiveWorkbook.Charts
  32.       AChart.Delete
  33.     Next
  34. End Sub


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

Marsh Posté le 16-10-2019 à 15:25:50   

Reply

Marsh Posté le 16-10-2019 à 15:39:37    

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

Reply

Marsh Posté le 16-10-2019 à 15:41:44    

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.

Reply

Marsh Posté le 16-10-2019 à 16:05:54    

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
Reply

Marsh Posté le 16-10-2019 à 16:08:13    

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

Reply

Marsh Posté le 16-10-2019 à 17:33:19    

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
Reply

Marsh Posté le 16-10-2019 à 19:16:24    

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
Reply

Marsh Posté le 22-10-2019 à 13:15:25    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed