Email avec éléments du message écrit en gras.

Le
Projeteur08
Bonjour,

Dans un classeur utilisé par différentes personnes, il y a une macro pour
envoyer en automatique des emails dont le corps du message se compose
d'éléments variables et invariables.
Cela fonctionne très bien avec le code ci-après.

Mais je voudrais que les éléments variables soient en caractères gras.

Est-ce possible, si oui comment ?

Merci par avance pour vos réponse.

Voici une partie de mon code

'DETERMINATION DES VARIABLES

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

'SELECTION DE L'APPLICATION EXTERIEURE UTILISEE POUR L'ENVOI DU MESSAGE

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

'CREATION DU CORPS DU MESSAGE AVEC RECUPERATION DES DIFFERENTES VALEURS

strbody = " A Tous," & _
vbNewLine & vbNewLine & _
" Bonjour, " & vbNewLine & vbNewLine & _
" Suite à la création et/ou l'évolution de : " &
Workbooks("Gestion des plans.xls").Sheets("Message").Range("B3").Text & _
vbNewLine & vbNewLine & _
" Je vous invite à consulter, sur le serveur informatique,
les documents suivants au format PDF :" & _
vbNewLine & vbNewLine & _
" L'avis de diffusion " & Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B7").Text & _
vbNewLine & _
" Sous J:Documents TechniquesAvis de diffusion" & _
vbNewLine & vbNewLine & _
" Le(s) document(s) suivant(s) : " & Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B10").Text & _
vbNewLine & _
" Sous J:Documents TechniquesPlans" & _
vbNewLine & vbNewLine & _
" et / ou" & _
vbNewLine & vbNewLine & _
" La (les) notice(s) suivantes : " & Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B13").Text & _
vbNewLine & _
" Sous J:Documents TechniquesNotices NPAF" & _
vbNewLine & vbNewLine & _
" Cordialement" & _
vbNewLine & vbNewLine & _
" " & Workbooks("Gestion des
plans.xls").Sheets("RECAP.").Range("L1").Text

On Error Resume Next

'CREATION DE L'ENTETE DU MESSAGE

With OutMail
.To = Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B32").Text
.Cc = Workbooks("Gestion des
plans.xls").Sheets("Message").Range("Q1").Text
.Bcc = ""
.Subject = "Avis de diffusion " & Workbooks("Gestion des
plans.xls").Sheets("RECAP.").Range("A1").Value
.Body = strbody


--
Projeteur08
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #19335951
bonjour,

il y a une très bonne discutions sur ce sujet, ici :
http://www.vbfrance.com/codes/ENVOI-AUTOMATIQUE-MAIL-AVEC-PIECE-JOINTE-VBA-EXCEL_31545.aspx

bonne lecture,

isabelle

Projeteur08 a écrit :
Bonjour,

Dans un classeur utilisé par différentes personnes, il y a une macro pour
envoyer en automatique des emails dont le corps du message se compose
d'éléments variables et invariables.
Cela fonctionne très bien avec le code ci-après.

Mais je voudrais que les éléments variables soient en caractères gras.

Est-ce possible, si oui comment ?

Merci par avance pour vos réponse.

Voici une partie de mon code

'DETERMINATION DES VARIABLES

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

'SELECTION DE L'APPLICATION EXTERIEURE UTILISEE POUR L'ENVOI DU MESSAGE

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

'CREATION DU CORPS DU MESSAGE AVEC RECUPERATION DES DIFFERENTES VALEURS

strbody = " A Tous," & _
vbNewLine & vbNewLine & _
" Bonjour, " & vbNewLine & vbNewLine & _
" Suite à la création et/ou l'évolution de : " &
Workbooks("Gestion des plans.xls").Sheets("Message").Range("B3").Text & _
vbNewLine & vbNewLine & _
" Je vous invite à consulter, sur le serveur informatique,
les documents suivants au format PDF :" & _
vbNewLine & vbNewLine & _
" L'avis de diffusion " & Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B7").Text & _
vbNewLine & _
" Sous J:Documents TechniquesAvis de diffusion" & _
vbNewLine & vbNewLine & _
" Le(s) document(s) suivant(s) : " & Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B10").Text & _
vbNewLine & _
" Sous J:Documents TechniquesPlans" & _
vbNewLine & vbNewLine & _
" et / ou" & _
vbNewLine & vbNewLine & _
" La (les) notice(s) suivantes : " & Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B13").Text & _
vbNewLine & _
" Sous J:Documents TechniquesNotices NPAF" & _
vbNewLine & vbNewLine & _
" Cordialement" & _
vbNewLine & vbNewLine & _
" " & Workbooks("Gestion des
plans.xls").Sheets("RECAP.").Range("L1").Text

On Error Resume Next

'CREATION DE L'ENTETE DU MESSAGE

With OutMail
.To = Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B32").Text
.Cc = Workbooks("Gestion des
plans.xls").Sheets("Message").Range("Q1").Text
.Bcc = ""
.Subject = "Avis de diffusion " & Workbooks("Gestion des
plans.xls").Sheets("RECAP.").Range("A1").Value
.Body = strbody





Publicité
Poster une réponse
Anonyme