XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)

M

Minus&Cortex

XLDnaute Nouveau
Bonjour à tous,
J’ai trouvé et exploité ce bout de code permettant l’envoi par publipostage de mails et pièces-jointes personnalisés.
Il fait le job parfaitement.

Là ou je bloque est que j’aimerais pouvoir faire en sorte que le message reçu par les destinataires (issu de la colonne E) s’affiche en gras et en rouge (en html peut-être ??) dans leur messagerie.
Je n'y connais rien en VBA mais cela est-il intégrable dans mon code ?
Merci pour l'aide que vous voudrez bien m'apportez.

VB: 
Sub Envoi_mails()
Dim sh As Worksheet

' Définir la feuille ou se trouve les données
Set sh = ThisWorkbook.Sheets("MA_BDD")
Dim i As Integer
Dim OA As Object
Dim msg As Object

' Créer une instance OUTLOOK
Set OA = CreateObject("outlook.application")
Dim last_row As Integer
last_row = Application.CountA(sh.Range("A:A"))

' Pas d'envoi si NON est sélectionné
For i = 2 To last_row
If sh.Range("H" & i).Value <> "Non" Then
Set msg = OA.CreateItem(0)

' Les COLONNES que l'on récupère pour l'envoi du message
msg.To = sh.Range("A" & i).Value
msg.CC = sh.Range("B" & i).Value
msg.BCC = sh.Range("C" & i).Value
msg.Subject = sh.Range("D" & i).Value
msg.Body = sh.Range("E" & i).Value

' Insertion PJ(1)
If sh.Range("F" & i).Value <> "" Then
msg.Attachments.Add sh.Range("F" & i).Value
End If

' Insertion PJ(2)
If sh.Range("G" & i).Value <> "" Then
msg.Attachments.Add sh.Range("G" & i).Value
End If
msg.Send

' Confirmation de message envoyé
sh.Range("I" & i).Value = "Envoyé"
End If
Next i
MsgBox "Messages Envoyés"

End Sub
 

Pièces jointes

  • __EXEMPLE.xlsm
    52.8 KB · Affichages: 3
Solution
Sequoyah
Bonjour le fil et le forum,
il faut utiliser les balises html, voici un exemple où l'on peut changer le type de police, la couleur et la taille.
VB: 
Sub Envoi_mails2()
'https://excel-downloads.com/threads/publipostage-mise-en-forme-du-corps-de-message-issu-dune-cellule-excel-vba.20084607/
    
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("MA_BDD")
    Dim i As Integer
    Dim OA As Object
    Dim msg As Object
    Dim strHTML As String

    ' Créer une instance OUTLOOK
    Set OA = CreateObject("outlook.application")
    Dim last_row As Integer
    last_row = Application.CountA(sh.Range("A:A"))

    ' Pas d'envoi si NON est sélectionné
    For i = 2 To last_row
        If sh.Range("H" & i).Value <> "Non" Then
            Set...
Trier par date Trier par votes
Sequoyah

Sequoyah

XLDnaute Nouveau
Bonjour le fil et le forum,
il faut utiliser les balises html, voici un exemple où l'on peut changer le type de police, la couleur et la taille.
VB: 
Sub Envoi_mails2()
'https://excel-downloads.com/threads/publipostage-mise-en-forme-du-corps-de-message-issu-dune-cellule-excel-vba.20084607/
    
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("MA_BDD")
    Dim i As Integer
    Dim OA As Object
    Dim msg As Object
    Dim strHTML As String

    ' Créer une instance OUTLOOK
    Set OA = CreateObject("outlook.application")
    Dim last_row As Integer
    last_row = Application.CountA(sh.Range("A:A"))

    ' Pas d'envoi si NON est sélectionné
    For i = 2 To last_row
        If sh.Range("H" & i).Value <> "Non" Then
            Set msg = OA.CreateItem(0)

            ' Balises HTML
            strHTML = "<html><body>"
            strHTML = strHTML & "<p style='font-family:Arial; font-size:14px; color:#0000FF;'>" & sh.Range("E" & i).Value & "</p>"
            strHTML = strHTML & "</body></html>"

            ' Les COLONNES que l'on récupère pour l'envoi du message
            With msg
                .To = sh.Range("A" & i).Value
                .CC = sh.Range("B" & i).Value
                .BCC = sh.Range("C" & i).Value
                .Subject = sh.Range("D" & i).Value
                .HTMLBody = strHTML
            End With

            ' Insertion PJ(1)
            If sh.Range("F" & i).Value <> "" Then
                msg.Attachments.Add sh.Range("F" & i).Value
            End If

            ' Insertion PJ(2)
            If sh.Range("G" & i).Value <> "" Then
                msg.Attachments.Add sh.Range("G" & i).Value
            End If
            msg.Send

            ' Confirmation de message envoyé
            sh.Range("I" & i).Value = "Envoyé"
        End If
    Next i
    MsgBox "Messages Envoyés"
End Sub
 
Vote positif 0 Vote négatif
Solution
M

Minus&Cortex

XLDnaute Nouveau
Sequoyah à dit:
Bonjour le fil et le forum,
il faut utiliser les balises html, voici un exemple où l'on peut changer le type de police, la couleur et la taille.
VB: 
Sub Envoi_mails2()
'https://excel-downloads.com/threads/publipostage-mise-en-forme-du-corps-de-message-issu-dune-cellule-excel-vba.20084607/
   
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("MA_BDD")
    Dim i As Integer
    Dim OA As Object
    Dim msg As Object
    Dim strHTML As String

    ' Créer une instance OUTLOOK
    Set OA = CreateObject("outlook.application")
    Dim last_row As Integer
    last_row = Application.CountA(sh.Range("A:A"))

    ' Pas d'envoi si NON est sélectionné
    For i = 2 To last_row
        If sh.Range("H" & i).Value <> "Non" Then
            Set msg = OA.CreateItem(0)

            ' Balises HTML
            strHTML = "<html><body>"
            strHTML = strHTML & "<p style='font-family:Arial; font-size:14px; color:#0000FF;'>" & sh.Range("E" & i).Value & "</p>"
            strHTML = strHTML & "</body></html>"

            ' Les COLONNES que l'on récupère pour l'envoi du message
            With msg
                .To = sh.Range("A" & i).Value
                .CC = sh.Range("B" & i).Value
                .BCC = sh.Range("C" & i).Value
                .Subject = sh.Range("D" & i).Value
                .HTMLBody = strHTML
            End With

            ' Insertion PJ(1)
            If sh.Range("F" & i).Value <> "" Then
                msg.Attachments.Add sh.Range("F" & i).Value
            End If

            ' Insertion PJ(2)
            If sh.Range("G" & i).Value <> "" Then
                msg.Attachments.Add sh.Range("G" & i).Value
            End If
            msg.Send

            ' Confirmation de message envoyé
            sh.Range("I" & i).Value = "Envoyé"
        End If
    Next i
    MsgBox "Messages Envoyés"
End Sub
Cliquez pour agrandir...
Magnifique, cela fonctionne. Merci !!
 
Vote positif 0 Vote négatif

Discussions similaires

D
  • Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
867
AtTheOne
AtTheOne
Philou0607
  • Question
XL 2016 Signature mail outlook avec VBA
Réponses
1
Affichages
702
kiki29
kiki29
H
  • Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
527
HANN
H
halecs93
  • Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
654
halecs93
halecs93
Dadi147
  • Question
XL 2019 problème lors de l'exécution du code vba
Réponses
4
Affichages
424
Staple1600
Staple1600
I
  • Question
XL 2016 Mon code VBA me renvoi une erreur
Réponses
6
Affichages
679
INFINITY100
I
My<3
  • Question
XL 2019 HTML Corps de mail
Réponses
6
Affichages
608
My<3
My<3
Z
  • Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
387
ZiM
Z
A
  • Question
Microsoft 365 Retourner message si compteur 0
Réponses
4
Affichages
500
AD95
A
C
  • Question
XL 2016 Envoie de mail avec filtre
Réponses
2
Affichages
782
mapomme
mapomme

Membres actuellement en ligne

13 membres et 140 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 058
Messages
2 115 807
Membres
112 548
dernier inscrit
aer