Microsoft 365 With Selection.Parent.MailEnvelope.Item

[Alain 7633]

Bonjour à tous,

Je viens de m'inscrire sur le site.

Je rencontre un problème de format d'email envoyé par Excel en vba.
Le rendu sur PC est plutôt propre et correspond à mes attentes (la taille de l'image est normale).
Alors que sur mobile (IPhone), l'image est toute petite (style miniature) ; ç'est ça que j'aimerais corriger.

voici le rendu PC :

voici le rendu mobile :

voici le code :

NBlignes = Mafeuille.Range("a" & (Application.Rows.Count)).End(xlUp).Row
NBlignes = NBlignes - 1
Sheets("GRAPH1").Select
Range("A1").Select
Application.ScreenUpdating = True
Application.Wait (Now + TimeValue("0:00:05"))
Mafeuille.Range("a1" & NBlignes).Select
With Selection.Parent.MailEnvelope.Item
'.Introduction = Message
.to = DEST
'cc = ""
'bcc= ""
.Subject = ""
.send
End With

End If
End Sub
-------------------------

Merci d'avance à tous !

 

[Compte Supprimé 979]

Bonsoir Alain7633

Pour régler votre souci (je pense) je vous conseillerai fortement de passer par un Range To JPG

VBA Convert Excel range to JPG Image

Get VBA code to convert Excel range to a image file.

officetricks.com

Puis par l'envoi du JPEG par mail

XL 2016 - VBA Envoi d'un email avec une image dans le corps du message

Chers Downloadiens, J'ai une problématique à vous soumettre, on me demande d'envoyer un email avec un message bien précis, avec des logos couleurs, texte etc mon niveau en programmation étant plus que limitée. J'ai alors pensé à intégrer une image(avec toutes les informations dans le code . le...

excel-downloads.com

A+

 

[patricktoulon]

re
et pour compléter les dires de bruno que je salut
passer par l'object outlook et non par mailenveloppe
on pourrait avoir cette feuille en exemple anonymisée ?
je te fait ça aux petits oignons

 

[Alain 7633]

Bonjour,
je n'ai pas encore regardé la proposition de BrunoM45.
Voici le doc.
La macro est "envoimail2" :
pour expliquer, je récupère des données via requête SQL query dans onglet "base", je traite et mets en forme sur onglets "index" et "graph0" puis "graph1" est constitué d'une image liée à "graph0".
c'est "graph1" que la macro envoie dans le corps du mail.

 

[patricktoulon]

bon voici une solution complete sans passer par l'intermediaire de la feuille graph1
tu t'arrangera pour la sub sendmail
je t'ai mis ma fonction perso qui permet de sauvegarder tout object en PNG avec transparence ou pas
avec un graphique temporaire autodestructible
en effet le png est conseillé dans le html et par conséquent dans les emails aussi

tu trouvera plus de précision sur ce point dans :

une fonction pour capturer un object dans une feuille en png avec un graphique qui marche vraiment

Bonjour à tous tout le monde connait le principe de capture et d'enregistrement d'un object sur feuille en fichier image alors les format possible jpg,gif,png le tout avec un graphique sauf que le format gif et png sont particuliers et...

excel-downloads.com

n'hésite pas si tu a des questions
bonne journée

 

[Alain 7633]

Bonjour et merci patricktoulon,
ça fonctionne, j'avoue ne pas tout comprendre (je ne suis pas très familier avec les "function" au delà des "sub" mais ça fonctionne). Je me dépêche à paramétrer tous mes reportings puis je me poserai pour bien comprendre. Encore merci !

 

[patricktoulon]

re
bonjour
ravi pour toi
met la discussion en "résolu" si ca te convient

 

[Alain 7633]

Bonjour,
bon, ça ne fonctionne pas vraiment bien ; je vous explique.
dans mon "body" sur l'email envoyé, j'ai en permanence ces 2 lignes (à gauche et en haut) surlignées en jaune qui apparaissent.
voilà, voilà...

 

[patricktoulon]

bonjour
voila

 

[Alain 7633]

bonjour,
Merci @patricktoulon,
c'est bien cela que tu as rajouté ? plage.BorderAround Color:=vbWhite
entre temps, j'avais contourné en désactivant le quadrillage, ça faisait le job.

Merci beaucoup !

 

[patricktoulon]

re
oui mais pas que ça
j'ai réduit la plage à A:L au lieu de A:M

ps
depuis quand c'est toi qui a trouvé la solution

rend a césar ce qui est à césar svp

 

[Alain 7633]

re
oui mais pas que ça
j'ai réduit la plage à A:L au lieu de A:M

ps
depuis quand c'est toi qui a trouvé la solution
Regarde la pièce jointe 1190565
rend a césar ce qui est à césar svp

 

[Alain 7633]

Bonjour,
désolé @patricktoulon (césar),
je pensais que "cocher la coche à droite" signifiait que le post était résolu, lol
du coup, on fait ça où ?

 

[patricktoulon]

re
Bonjour @Alain 7633
non la case a cocher a deux vocations
1 elle pointe le post qui est la meilleure solution selon le demandeur
2 elle signale le post résolu