Je viens d’analyser mon dernier fichier transmis
Petite coquille de ma part
Le traitement du bouton "« Enregistrer en PDF » » alimente bien la cellule « AY23 » du chemin et nom du fichier pdf généré mais celui-ci concernant son appellation est appauvri de son extension « .pdf »
D’où ta déconvenue
Concernant les cellules BA35 et BA43 si aucune copie elles doivent être vidée de tout contenu espace compris (rien dans ces cellules)
ces lignes d’instruction en dépendent :
Copie = Range(« BA35 »)
Copie = Range(« BA43 »)
If Copie <> « » Then
.CC = Copie
End If
Pour ce qui est du destinataire en copie j’ai le message là lorsque les cellules BA35 ou BA43 sont vides :
Si je décide de ne pas mettre de destinataire en copie, ces cellules sont donc vides (c’est effectivement le cas dans mes tests). Je ne sais pas quoi dire de plus…
J’espère que ça vous aide à identifier le problème…
Désolé effectivement sur les cellules BA35 et BA43 j’avais mis un contrôle de présence de donnée pensant que les destinataires en copie étaient obligatoire dans un premier temps
Puis au grés de nos échanges tu as clairement signifié que ceux-ci n’étaient pas systématiquement inclus dans tous les envois
L’adaptation réalisé en conséquence n’a pas concerné le contrôle qui est hélas resté un oublis malencontreux
Ravi de ce resultat
Pour la mise en forme je crains qu’Outlook ne puis les digérer de lui même
Seule l’intégration d’images en format html peut permettre cette mise en forme
Moi même lorsque je confectionne des Emails c’est la méthode que j’utilise
Mais d’Excel je crains que cela soit très difficile
N’ayant pas l’application Outlook pour tester je laisse la main à qui veut pour cette option
J’ai fait le maximum en mon pouvoir
Désolé
Je vous remercie ! Je vais voir si quelqu’un peut m’aider à ce sujet.
Si ce n’est vraiment pas possible autrement que part l’intégration d’images en format html, savez-vous comment dois-je faire ? (je peux m’arranger pour que ma signature soit au format image).
Je peux récupérer des lignes de code appropriées mais impossible pour moi de les tester et donc de les adapter à ton besoin n’ayant pas Outlook
Tu peux toi même sur internet trouver des instructions appropriées les essayer et les mettre au point
En recherchant par ces mots :
vba excel envoi image par mail
Plusieurs sites offrent des solutions avec les instructions
A toi de les regarder de les récupérer de les adapter et les tester
Impossible pour moi
Je peux juste t’accompagner au grès de tes difficultés
Votre solution fonctionne mais je trouve que la qualité de la signature est très diminuée…
Il doit exister un moyen de conserver la mise en forme d’Excel pour la partie coordonnées etc puis joindre l’image dans le corps du mail en dessous de la signature ?
Sub Mailen()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.Display
.Subject = "Mon sujet"
.To = "eMail_Destrinataire@fai.fr"
.Attachments.Add ThisWorkbook.Path & "\E68D88.png" 'ce fichier "png" se trouve dans ce sous-répertoire
.HTMLBody = "Bonjour, <br> bla bla bla <br>" & "<img src=""cid:E68D88.png"" width=" & 150 & ">"
End With
End Sub
pour la qualité de la signature, ceci est suffisant ? (l’image ici dessous, il faut le sauvegarder comme E68D88.png dans le même sous-répertoire que le fichier excel. (oubien choisir un autre image et adapter son nom dans la macro). Vous pouvez aussi modifier ce « 150 » du width pour agrandir l’image dans le mail.
L’image s’insère de façon nette et j’ai réussi à paramétrer la bonne taille grâce à vos précisions.
Savez-vous comment intégrer uniquement la partie du code insérant l’image dans le code « mail » présent dans le module 4 du fichier ci-joint ?
Par ailleurs, dans ce fameux code, comment paramétrer la police, la couleur et la taille du texte ?
En effet, ma signature est compôsée d’une image et de mes coordonnées. Mais je ne voudrais pas que mes coordonnées apparaissent sous forme d’une image.
Ainsi, est-il possible de conserver, d’une manière ou d’une autre, d’affecter une mise en forme particulière à une portion de texte du mail ?
bonjour,
un lien pour les « tags » pour le bodyHTML HTML - Colors
2 macros, un avec un PJ « pdf » et un autre avec des « tags » pour changer le font ou le couleur.
Ce serait peut-être plus facile d’utiliser plusieurs cellules, par exemple AW44 pour le bonjour en rouge, puis AW45 pour n’importe quel texte et puis A46 pour le cordialement et monsieur …:
Pour le PJ dans la première macro, il y a 4 des 5 lignes à supprimer parce que je n’ai pas votre sous-répértoire, ce n’était que pour mon teste.
Vous voyez avec un BodyHTML, on peut faire n’importe quoi. Je ne sais pas ce que vous envoyez dans le pdf, mais si cela n’est pas trop grand, on peut l’aussi intégrer dans le body. Exemple 1 EMAIL (2).xlsm (110,4 Ko)