Conservation des Retours à la lignes entre VBA et Outlook [Résolu]

DevBaldwin · 12/05/2011, 15h51

Bonjour bonjour !!

Je souhaiterais envoyer un E-Mail depuis Outlook, grâce à du code vba.
J'emploie donc le code suivant :

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 Btn_Email_Click()
    Dim MonOutlook As Outlook.Application
    Dim MonMessage As Outlook.MailItem
 
    Set MonOutlook = CreateObject("Outlook.application")
    Set MonMessage = MonOutlook.CreateItem(olMailItem)
 
    With MonMessage
        .To = Recup_Email(Me.Ch_IdContact_client.Value)
        .Subject = "Titre message"
        .BodyFormat = olFormatHTML
        .HTMLBody = "<HTML><body><p>Bonjour,<br/></p>" & Me.Ch_Commentaire.Value & "</body><HTML>"
        .Display
    End With
 
    Set MonOutlook = Nothing
End Sub

Dans le corps de mon mail, j'insère une Zone de Texte multi-lignes ( le Me.Ch_Commentaire) avec un ou plusieurs retour à la ligne dedans.

Mon soucis est que sous Outlook ma Zone de Texte est afficher sans retour à la ligne

Schématiquement, sous Access j'ai :
Ligne 1
Ligne 2
Ligne 3

Et sous Outlook j'ai :
Ligne1 Ligne2 Ligne 3

Comment faire pour que durant la transition vers Outlook, je puisse conserver mes retours à ligne ?

pc75 · 12/05/2011, 16h32

Bonjour,

Peut-être une piste ?

Si ta zone de texte se nomme txtAdresse :

Code :

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

1
2
 
txtAdresse = Replace(txtAdresse, vbcrlf, "<br />")

DevBaldwin · 12/05/2011, 16h47

J'ai trouvé la solution

Il faut revenir dans la table qui stock la variable à envoyer (Commentaire dans mon cas) et modifier la valeur de "Format de texte" pour "Texte enrichi".
En second, sur le formulaire qui affiche la Zone de Texte à envoyer ("Me.Ch_Commentaire" dans mon cas) et qui appel l'envoie de mail, modifier à nouveau le "Format de texte" pour "Texte enrichi" pour la Zone de Texte en question.
Enfin, ne pas faire l'erreur en vba de remplacer le ".BodyFormat" par ".body"

Merci quand même à toi pc75 pour ton aide.
Au final, c'est un de tes ancien post qui m'a aiguiller

12/05/2011, 16h47	#3
DevBaldwin Nouveau Membre du Club Développeur informatique Inscription : avril 2011 Messages : 47 Détails du profil Informations personnelles : Sexe : Localisation : France, Loire Atlantique (Pays de la Loire) Informations professionnelles : Activité : Développeur informatique Informations forums : Inscription : avril 2011 Messages : 47 Points : 36 Points : 36	J'ai trouvé la solution Il faut revenir dans la table qui stock la variable à envoyer (Commentaire dans mon cas) et modifier la valeur de "Format de texte" pour "Texte enrichi". En second, sur le formulaire qui affiche la Zone de Texte à envoyer ("Me.Ch_Commentaire" dans mon cas) et qui appel l'envoie de mail, modifier à nouveau le "Format de texte" pour "Texte enrichi" pour la Zone de Texte en question. Enfin, ne pas faire l'erreur en vba de remplacer le ".BodyFormat" par ".body" Merci quand même à toi pc75 pour ton aide. Au final, c'est un de tes ancien post qui m'a aiguiller
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email