Discussion :

[alex_95]

Bonjour,

Voila, je cherche a ecrire un mail automatique avec outlook depuis Excel avec en debut de courrier : bonjour X, puis un saut de ligne et la suite du corps de texte.
Pour se faire j'ai essayé via les caractères de retour chariot :
- Chr(13) + Chr(10) mais aussi par
- vbCrLf ou
- vbNewLine

mais rien n'y fait, je n'ai toujours pas de saut de ligne ... Quelqu'un a une idée ?

Merci d avance

[jmfmarques]

mais rien n'y fait, je n'ai toujours pas de saut de page ... Quelqu'un a une idée ?

Saut de ligne ou saut de page ?
faut savoir ...

[AlainTech]

As-tu essayé VbLf?

[illight]

En allant sur l'aide :

vbCrLfChr(13) + Chr(10) Combinaison des caractères de retour chariot et de saut de ligne

vbCrChr(13) Caractère de saut de paragraphe

vbLfChr(10) Caractère de saut de ligne

[alex_95]

Merci pour votre aide, cela dit, ces codes ne marchent pas dans le corps du Msg du mail.
En effet, mon texte ne prend pas en compte le saut de ligne, il ecrit mon mail tout collé :

"Bonjour X, voici le fichier d'analyse..."

Avez vous 1 idée ?

Merci d avance

[AlainTech]

Quel est le format du mail?

Plain Text ou HTML?

[alex_95]

C'est du Outlook classique, en fait quand je lance ma macro, j'ai Outlook qui se lance et le mail qui est ecrit, mais toujours pas de saut de ligne apres bonjour (en gras ci-dessous), voici le code ci dessous :

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
18
Sub Envoimail(etude)
prenom = Range("K" & etude + 4)
Application.ScreenUpdating = False
Dim Subj As String
Dim EmailAddr As String
Dim Recipient As String
Dim Fichier As String
Dim Msg As String
Dim HLink As String
Subj = "Analyse " & Range("D" & etude + 4) & " éffectuée"
EmailAddr = "" & Range("I" & etude + 4) & "@XXX.com"
Msg = "Bonjour " & prenom & ", " & vbLf & "L'analyse est faite"
HLink = "mailto:" & EmailAddr & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
ActiveWorkbook.FollowHyperlink HLink
Sleep (20)
SendKeys "%s", True

Merci d'avance

[AlainTech]

Quel est le format du mail?

Plain Text ou HTML?

Tu n'as pas répondu à la question.

[illight]

t'a essayé ça :

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
18
Sub Envoimail(etude)
prenom = Range("K" & etude + 4)
Application.ScreenUpdating = False
Dim Subj As String
Dim EmailAddr As String
Dim Recipient As String
Dim Fichier As String
Dim Msg As String
Dim HLink As String
Subj = "Analyse " & Range("D" & etude + 4) & " éffectuée"
EmailAddr = "" & Range("I" & etude + 4) & "@XXX.com"
Msg = "Bonjour " & prenom & ", " & vbCrLf & "L'analyse est faite"
HLink = "mailto:" & EmailAddr & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
ActiveWorkbook.FollowHyperlink HLink
Sleep (20)
SendKeys "%s", True

[alex_95]

Oui, j'ai essayé vbCrLf et rien ne change, toujours pas de saut de ligne sous Outlook.

Je ne sais pas ce qu'est ce format (si ce n'est le format de mail type Outlook), j dirai plus plain text que HTML...

Vous avez une autre solution ?

Merci d'avance

[AlainTech]

Pour se faire j'ai essayé via les caractères de retour chariot :
- Chr(13) + Chr(10) mais aussi par
- vbCrLf ou
- vbNewLine

Faut apprendre à lire...

[AlainTech]

Oui, j'ai essayé vbCrLf et rien ne change, toujours pas de saut de ligne sous Outlook.

Je ne sais pas ce qu'est ce format (si ce n'est le format de mail type Outlook), j dirai plus plain text que HTML...

Vous avez une autre solution ?

Merci d'avance

Pas tant que tu ne dis pas quel est le format...

Quand tu reçois un des mails envoyé de cette façon, tu peux voir (dans la barre de titre) si c'est de l'HTML ou du texte pur.

Si c'est de l'HTML, il faudra insérer des <br> à la place des CrLf...

[alex_95]

Ok, merci de l'explication, c'est donc du texte pur.

Tu penses qu'on peut faire quoi ?

[AlainTech]

Je viens d'analyser un fichier message d'Outlook et c'est bien [0D][0A] (CrLf) qui sert de retour à la ligne.

Aucune idée du pourquoi il ne le prend pas à la création par VB.

Désolé, pas de piste pour l'instant.

[alex_95]

Et peut t'on ecrire au format HTML sous Outlook ???

[SilkyRoad]

bonsoir


tu peux essayer cette synthaxe (il faudra peut etre adapter le SendKey )

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
18
19
20
21
22
23
24
 
Sub Envoimail(etude)
Dim Subj As String
Dim EmailAddr As String
Dim Recipient As String
Dim Fichier As String
Dim Msg As String
Dim HLink As String
 
prenom = Range("K" & etude + 4)
 
Subj = "Analyse " & Range("D" & etude + 4) & " effectuée"
EmailAddr = "" & Range("I" & etude + 4) & "@XXX.com"
 
Msg = "Bonjour " & prenom & ", " & vbCrLf & "L'analyse est faite"
HLink = "mailto:" & EmailAddr & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
 
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & HLink
 
Sleep (20)
SendKeys "%s", True
End Sub

bonne soiree
michel

[alex_95]

Bonsoir Michel,

Merci pour ta reponse, cela dit, y a un souci, je recois un mail du Internet Mail Delivery Service me mettant qu'il y a eu un pb lors de l'envoi du mail.

En effet, j'ai en doc joint le mail qu'il aurait du envoyer... avec en effet le saut de ligne mais par contre ca cloche qq part... mais l'objet du mail recu est :
Delivery Notification: Delivery has failed, accompagné pour le corps du mail d'erreurs...

Peux tu m'aider ?
Merci d'avance

[alex_95]

J'ai trouvé la solution, en fait il suffit de supprimer le mailto dans

Code :

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

Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & HLink

en fait par rapport au code ecrit au dessus, il faut ecrire :

Code :

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

Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:" & HLink

Car le mailto faisait doublon avec celui défini précédement dans :

Code :

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

HLink = "mailto:" & EmailAddr & "?"