Couleur dans corp de message

David · 21 Octobre 2009

Bonjour à tous

J'envois des mails avec la fonction RoutingSlip et je voulais savoir s'il était possible de mettre une partie du message en couleur.

Code:

.Message = "Bonjour" & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & " Pensez à vérifier les soldes de congés au 31/12. Merci de nous retourner le fichier AU PLUS TARD le dernier jour d'arrètés des paies en cliquant sur le bouton 'RETOUR DU FICHIER'" & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10)

Je voudrais que

Pensez à vérifier les soldes de congés au 31/12.

apparaisse en rouge.

C'est possible ?

Merci

suistrop · 21 Octobre 2009

Re : Couleur dans corp de message

Salut,
Ci dessous le code que j utilise pour l envoi de mail.
J'ecris mon message en HTML et j utilise : .HTMLBody = CorpsMail

Code:

Sub EnvoyerMail(ByVal AdresseMail As String, ByVal Copie As String, ByVal ObjetMail As String, ByVal CorpsMail As String, ByVal AttachMail As String)
'il vaut mieux avoir ouvrir outlook au préalable
dossier = ThisWorkbook.Path
'Dans la barre de tache : outil/reference selectionner :Microsoft Outlook 11.0 library
'envoi de mail automatique
'initialisation des objets
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
'construction du mail
With objMail
    .To = AdresseMail
    .CC = Copie
    .Subject = ObjetMail
    .HTMLBody = CorpsMail
    .Display
End With
'simulation d'appui des touches du clavier
SendKeys "%v", True
'réinitialisation des variables
Set objMail = Nothing
Set objOL = Nothing
End Sub

suistrop

David · 21 Octobre 2009

Re : Couleur dans corp de message

Génial

je vais de se pas éssayer !

Merci beaucoup

David · 23 Octobre 2009

Re : Couleur dans corp de message

Salut

J'ai un problème avec HTMLBody

j'ai un message d'erreur :

erreur d'éxécution '438' propriété ou méthode non gérée par cet objet

Je vous met mon code :

Code:

Sub Envoie_mail(destinataire)
'On Erreur GoTo Erreur_envoie
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
    .Recipients = destinataire
    .Subject = "Calendrier des congés " & Nom_equipe
    '.Message = "Bonjour" & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & " Pensez à vérifier les soldes de congés au 31/12. Merci de nous retourner le fichier AU PLUS TARD le dernier jour d'arrètés des paies en cliquant sur le bouton 'RETOUR DU FICHIER'" & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10)
    .HTMLBody = "<html><body>essai</body></html>"
    .Delivery = xlOneAfterAnother
    .ReturnWhenDone = False
    .TrackStatus = False
End With

ActiveWorkbook.Route
Exit Sub
Erreur_envoie:
    MessageErreur3 = MsgBox("UNE ERREUR C'EST PRODUITE LORS DE L'ENVOI D'UN FICHIER", vbExclamation, "APPLICATION CONGES")
    End
End Sub

Merci d'avance

Effectuez une recherche sur Excel Downloads...

Couleur dans corp de message

David

XLDnaute Occasionnel

suistrop

XLDnaute Impliqué

David

XLDnaute Occasionnel

David

XLDnaute Occasionnel

Discussions similaires

Nous accordons de l'importance à votre vie privée