Discussion :

[jbergeron18]

Bon matin,
Je tiens a préciser en débutant que je suis débutante en VBA et autodidacte !
Maintenant que c'est dit...

Voila, je travail actuellement sur un projet et j'ai donc plusieurs questions. Voilà la première !

Je veux actuellement généré un courriel automatique et j'aimerais qu'il y ai une portion du texte en italic. Je ne sais toutefois pas comment m'y prendre pour avoir une seul phrase dans tout le texte en italic.
Il s'agit de la ligne : "Message généré par le système de gestion des dossiers CSA"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CB1_Click()
Dim LeMail As Variant
Set LeMail = CreateObject("Outlook.Application")
With LeMail.CreateItem(olMailItem)
    .Subject = "Un dossier CSA doit être facturé"
    .To = "facturation@blablabla.com"
    .Body = "Bonjour," & vbNewLine & _
            vbNewLine & _
            "Le dépôt du dossier CSA #X doit être facturé au client," & vbNewLine & _
            vbNewLine & _
            "Merci, " & vbNewLine & _
            "Bonne journée " & vbNewLine & _
            vbNewLine & _
            "Message généré par le système de gestion des dossiers CSA"
    .Display
End With
End Sub

Quel doit être le codage utilisé ?

Merci d'avance
Bonne journée,
Julie

[anasecu]

Bonjour Julie,

comment m'y prendre pour avoir une seul phrase dans tout le texte en italic.

Je ne suis pas spécialiste de mails mais j'essaierais ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

            "<i>Message généré par le système de gestion des dossiers CSA</i>"

[Valtrase]

Salut,
Tu dois utiliser la propriété HTMLBody en lieux et place de Body. Et indiquer le format du corp de message.
Le formatage se fait entre les guillemets, donc pas de VbNewLine, mais des <br> pour le passage à la ligne
Ici un site qui te donnera des infos sur le formatage

Donc dans les faits cela donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CB1_Click()    Dim LeMail As Variant
    Dim olMailItem
    Set LeMail = CreateObject("Outlook.Application")
    With LeMail.CreateItem(olMailItem)
        .BodyFormat = 2 ' olFormatHTML
        .Subject = "Un dossier CSA doit être facturé"
        .To = "facturation@blablabla.com"
        .HTMLBody = "Bonjour,<br><br>" & _
                "Le dépôt du dossier CSA #X doit être facturé au client,<br>" & _
                "Merci, <br><br>" & _
                "Bonne journée <br><br>" & _
                "<i>Message généré par le système de gestion des dossiers CSA</i>"
        .Display
    End With
End Sub

[jbergeron18]

Salut,
Tu dois utiliser la propriété HTMLBody en lieux et place de Body. Et indiquer le format du corp de message.
Le formatage se fait entre les guillemets, donc pas de VbNewLine, mais des <br> pour le passage à la ligne
Ici un site qui te donnera des infos sur le formatage

Donc dans les faits cela donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CB1_Click()    Dim LeMail As Variant
    Dim olMailItem
    Set LeMail = CreateObject("Outlook.Application")
    With LeMail.CreateItem(olMailItem)
        .BodyFormat = 2 ' olFormatHTML
        .Subject = "Un dossier CSA doit être facturé"
        .To = "facturation@blablabla.com"
        .HTMLBody = "Bonjour,<br><br>" & _
                "Le dépôt du dossier CSA #X doit être facturé au client,<br>" & _
                "Merci, <br><br>" & _
                "Bonne journée <br><br>" & _
                "<i>Message généré par le système de gestion des dossiers CSA</i>"
        .Display
    End With
End Sub

Bonjour,

Je vous remercie d'avoir pris le temps de me répondre, toutefois ça ne fonctionne plus
Le courriel ne s'ouvre pas.

[Valtrase]

Salut,
As-tu bien renseigné la propriété .BodyFormat = 2
Bascules aussi pour voir dans les options de Outlook : Courrier/Composer les messages dans ce format : HTML