Bonjour à tous du forum,
d'une macro j'essaie d'envoyer un texte par email,
mais en ajoutant du texte avec autre format (en gras, couleur).
J'utilise le vba code suivant :
Sub Mail_small_Text_Outlook()
Dim OutApp As Object, Dim OutMail As Object
Dim strbody As String, Dim strsub As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
strto = strbody = " à ajouter le texte " & vbNewLine & _
"mais avec autre format," & vbNewLine _
"autre couleur" & vbNewLine & _
"et autre taille de texte"
On Error Resume Next
With OutMail
.To = "__.____@com"
.Subject = "autre format de texte"
.Body = strbody
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Est-ce possible d'envoyer un email par macro en ajoutant du texte avec autre format ?
merci d'avance,
news
d'une macro j'essaie d'envoyer un texte par email,
mais en ajoutant du texte avec autre format (en gras, couleur).
J'utilise le vba code suivant :
Sub Mail_small_Text_Outlook()
Dim OutApp As Object, Dim OutMail As Object
Dim strbody As String, Dim strsub As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
strto = strbody = " à ajouter le texte " & vbNewLine & _
"mais avec autre format," & vbNewLine _
"autre couleur" & vbNewLine & _
"et autre taille de texte"
On Error Resume Next
With OutMail
.To = "__.____@com"
.Subject = "autre format de texte"
.Body = strbody
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Est-ce possible d'envoyer un email par macro en ajoutant du texte avec autre format ?
merci d'avance,
news
Dernière édition: