Bonjour,

Je me suis fait une macro pour faire mes mailings simple. Et naturellement, je souhaiterait pousser plus loin et personnaliser les intitulés des mails avec un "Mr TOTO,..." au lieu d'un "Bonjour" généraliste.

Pour faire ces mailing, je me crée un brouillon complet (avec le texte, la signature, les images, etc) dont je me resers en lui appliquant la bonne addresse mail.
Cependant, si j'essaie de personnaliser la première ligne il m'arrive toujours des erreurs : perte d'image, perte de mise en forme, perte de message.
Voici mes codes
Pertes du message (il ne reste que la première ligne) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
            Set oEmail = MyNameSpace.GetDefaultFolder(16).items(1).Copy
                    oEmail.to = Recipient 'adresse prédéfinie
                    texte_initiale = oEmail.htmlBody 'recueil du texte initiale
                    oEmail.Body = "Mr Toto" 'sera personnaliser par la suite
                    debut_texte = oEmail.htmlBody
                    oEmail.htmlBody = debut_texte & Chr(13) & texte_initiale
Perte d'image et de mise en forme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
            Set oEmail = MyNameSpace.GetDefaultFolder(16).items(1).Copy
                    oEmail.to = Recipient 'adresse prédéfinie
                    texte_initiale = oEmail.Body 'recueil du texte initiale
                    debut_texte = "Mr Toto" 'sera personnaliser par la suite
                    oEmail.Body = debut_texte & Chr(13) & texte_initiale
Y a t-il moyen d'intervenir directement sur la première ligne du corps de texte et d'éviter ainsi le passage par une copie des information à travers texte_initiale dans mon exemple...
Ca permettrait de conserver les images et la mise en forme