Police et signature macro mail
Bonjour,
J'utilise la macro suivante pour créer un mail en appuyant sur un bouton dans mon fichier excel.
Il me reste 2 soucis à régler.
J'aimerais passer certaines polices en gras et une phrase en gras rouge et souligné.....
Et j'aimerais insérer ma signature.
voici la mise en forme que je souhaiterai.
Bonjour,
Pourriez-vous SVP contacter ce client pour procéder à une visite sur site afin de pouvoir établir votre devis concernant la manutention et la mise en place finale de la marchandise chez le client (plan du spa ci-joint).
Si une demande d’autorisation d’emprise de voirie était nécessaire, nous aimerions que vous vous en chargiez puisqu’il est plus facile pour le grutier d’échanger avec l’Administration concernée.
MARCHANDISE A GRUTER :
DATE DE LIVRAISON PREVUE :
FACTURATION :
LIVRAISON :
ADRESSE ET COORDONNEES DU CLIENT :
M.
rue
CP VILLE
Tél :
INFOS COMPLEMENTAIRES :
N’hésitez pas à me contacter en cas de besoin.
Cordialement,
Signature
Sub test()
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.to = ""
myItem.Subject = "DEMANDE DE DEVIS DE GRUTAGE CLIENT"
myItem.Body = "Bonjour," & Chr(13) & Chr(13) & "Pourriez-vous SVP contacter ce client pour procéder à une visite sur site afin de pouvoir établir votre devis concernant la manutention et la mise en place finale de la marchandise chez le client (plan du spa ci-joint). " & Chr(13) & Chr(13) & "Si une demande d'autorisation d'emprise de voirie était nécessaire, nous aimerions que vous vous en chargiez puisqu'il est plus facile pour le grutier d'échanger avec l'Administration concernée." & Chr(13) & Chr(13) & "MARCHANDISE A GRUTER :" & Chr(13) & Chr(13) & "DATE DE LIVRAISON PREVUE : " & Chr(13) & "FACTURATION : " & Chr(13) & Chr(13) & "LIVRAISON : par " & Chr(13) & Chr(13) & "ADRESSE ET COORDONNEES DU CLIENT :" & Chr(13) & Chr(13) & "M." & Chr(13) & "rue" & Chr(13) & "CP VILLE" & Chr(13) & "Tél : " & Chr(13) & Chr(13) & "INFORMATIONS COMPLEMENTAIRES :" & Chr(13) & Chr(13) & "N'hésitez pas à me contacter en cas de besoin." & Chr(13) & Chr(13) & "Cordialement,"
Set myAttachments = myItem.Attachments
myItem.display
Set ol = Nothing
End Sub
Merci d'avance de vos lumière
bonsoir
peut-etre une piste :
au lieu d'utiliser .body
utiliser .htmlbody avec les balises qui vont bien...
https://forum.excel-pratique.com/viewtopic.php?forum_uri=excel&t=39454&start=
fred
et pour insérer une image (signature ....)
http://www.codekabinett.com/rdumps.php?Lang=2&targetDoc=howto-create-html-email-access-vba-outlook
fred
Merci Fred pour ces pistes,
J’essaie ça dès demain et je te dis si cela est concluant.
Alex
1-
Comme dit Fred, remplace body par HTMLbody et apprends un peu de langage html et notamment les principales balises
<br> pour retour à la ligne
<b>Mon texte</b> pour gras
<span style="color:red;">Mon texte</span>
2-
Pour ajouter ta signature, fais ceci :
myItem.HTMLBody = "ton texte avec les balises" & myItem.HTMLBodySalut à vous 2,
J'ai utiliser les balises span color, <b>, <u>.... super cela marche merci beaucoup, il y a plain de site ou on peut trouver les balises.
En revanche arrivé au caractère 1024 de ma ligne je suis bloqué
Comment continuer mon texte ?
Bonjour
Désolé pour cela je ne sais pas.... j'ai jamais été confronté au problème...
Mais peut-être que Steelson en saura plus ...
fred
Merci Fred, je cherche en attendant....
Mais rien
J'ai utiliser les balises span color, <b>, <u>.... super cela marche merci beaucoup, il y a plain de site ou on peut trouver les balises.
En revanche arrivé au caractère 1024 de ma ligne je suis bloqué
Comment continuer mon texte ?
2 solutions ...
- soit faire copier/coller avec sendkeys
- mais avant cela, je pense que cette solution devrait fonctionner : découpe en plusieurs morceaux
myItem.HTMLBody = "la fin de ton texte avec les balises" & myItem.HTMLBody
myItem.HTMLBody = "le mileiu ton texte avec les balises" & myItem.HTMLBody
myItem.HTMLBody = "la début de ton texte avec les balises" & myItem.HTMLBodyou
message = "la début de ton texte avec les balises"
message = message & "le mileiu ton texte avec les balises"
message = message & "la fin de ton texte avec les balises"
myItem.HTMLBody = message & myItem.HTMLBodyMerci Steelson!!!!
Tu es trop fort!
ça marche nickle
et clic sur le coeur ... si le coeur t'en dit !