Sujet Précédent Sujet Suivant

Mail auto sur excel via Outlook avec mise en forme

Résolu/Fermé
Debutantexcel8 Messages postés 25 Date d'inscription samedi 18 novembre 2017 Statut Membre Dernière intervention 25 octobre 2018 - 23 oct. 2018 à 22:59
Debutantexcel8 Messages postés 25 Date d'inscription samedi 18 novembre 2017 Statut Membre Dernière intervention 25 octobre 2018 - 25 oct. 2018 à 16:50
Bonjour,

J'ai mis en place une macro qui me permets d'afficher un mail sur outllook. J'ai joint le fichier dont le lien d'accès est https://www.cjoint.com/c/HJxuXWF8Qks
L'utilisateur clique sur le bouton "Mail de relance" situé dans le feuillet 1 cellule Y2, puis la macro lui remonte les mails déjà préparés à envoyer.
Je sollicite votre aide car il y a des aménagements que je voudrais faire sur ce mail (j'ai réécris la version idéale du mail que je voudrais avoir au moment de l'envoi du mail - voir le feuillet 1 mail avec les couleurs) :
- Je souhaiterais que la macro ajoute automatiquement 2 pièces jointes dont les chemins d'accès seront repris dans la macro (si possible)
- Mise en forme concernant certains mots du texte (en gras, couleur rouge, bleue, les espaces entre les paragraphes) - voir le feuillet 1 mail avec les couleurs
- De plus je souhaiterais aussi ajouter le Numéro du client comme mentionné dans le mail "Numéro X", il s'agit de la colonne L mais je ne sais comment procéder. Merci pour votre aide
A voir également:

3 réponses

Réponse 1 / 3
Debutantexcel8 Messages postés 25 Date d'inscription samedi 18 novembre 2017 Statut Membre Dernière intervention 25 octobre 2018 9
24 oct. 2018 à 11:58
J'ai pu trouver comment attacher automatiquement les pièces jointes mais reste à traduire la mise en forme (gras et couleurs) du texte du mail en langage VBA
0
Réponse 2 / 3
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
24 oct. 2018 à 21:50
Bonjour,
Peut être une solution par là :https://www.extendoffice.com/documents/excel/5030-excel-vba-send-email-format-bold-text.html
0
Debutantexcel8 Messages postés 25 Date d'inscription samedi 18 novembre 2017 Statut Membre Dernière intervention 25 octobre 2018 9
Modifié le 25 oct. 2018 à 11:38
Bonjour,

J'ai refait mon code, mais à chaque fenêtre outlook ouverte (ce qui est volontaire), il double, triple, quatriple le mail préparé dans la macro. Voici la macro, quelqu'un a t-il une idée pour empêcher cela merci. 


Sub mailoutlook()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xOutMsg As String
    
For valeur_lign = 1 To 400
    If Cells(valeur_lign, 23) = "Alerte, mail à faire" Then
        Cells(valeur_lign, 25) = Date
        On Error Resume Next
        Set xOutApp = CreateObject("Outlook.Application")
        Set xOutMail = xOutApp.CreateItem(0)
        xOutMsg = xOutMsg & "<span style=""color:#80BFFF"">Bonjour,</span style=""color:#80BFFF"">"
        xOutMsg = xOutMsg & "<br/>"
        xOutMsg = xOutMsg & "<br/><span style=""color:#80BFFF"">Nous constatons qu'à ce jour, sauf erreur,  nous n'avons pas reçu le retour du ticket du client,</span style=""color:#80BFFF"">"
        With xOutMail
            .To = "Email Address"
            .CC = ""
            .BCC = ""
            .Subject = "Dossier X"
            .HTMLBody = xOutMsg
            .Attachments.Add ("C:\Cahier\CAZ\informations 20180913.docx")
            .Display
        End With
        Set OutMail = Nothing
        Set OutApp = Nothing
        On Error GoTo 0
    'Set OutMail = Nothing
    'Set OutApp = Nothing
    End If
Next
End Sub
0
Réponse 3 / 3
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié le 25 oct. 2018 à 11:39
Bonjour,

Petit ajout à faire après le For : 

For valeur_lign = 1 To 400
   xOutMsg = vbNullString
   If Cells(valeur_lign, 23) = "Alerte, mail à faire" Then
'etc...
0
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
25 oct. 2018 à 14:03
Merci pijaku, j'avais la même proposition de réponse.
Bonne journée.
0
Debutantexcel8 Messages postés 25 Date d'inscription samedi 18 novembre 2017 Statut Membre Dernière intervention 25 octobre 2018 9
25 oct. 2018 à 16:50
Merci beaucoup ça marche
0