Version imprimable
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
Saut de ligne ou saut de page ?Citation:
mais rien n'y fait, je n'ai toujours pas de saut de page ... Quelqu'un a une idée ?
faut savoir ...
As-tu essayé VbLf?
En allant sur l'aide :
:DCitation:
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
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
Quel est le format du mail?
Plain Text ou HTML?
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 :
Merci d'avanceCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18Sub 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
Tu n'as pas répondu à la question.Citation:
Envoyé par AlainTech
t'a essayé ça :
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18Sub 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
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
Faut apprendre à lire...Citation:
Envoyé par alex_95
Pas tant que tu ne dis pas quel est le format...Citation:
Envoyé par alex_95
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...
Ok, merci de l'explication, c'est donc du texte pur.
Tu penses qu'on peut faire quoi ?
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.
Et peut t'on ecrire au format HTML sous Outlook ???
bonsoir
tu peux essayer cette synthaxe (il faudra peut etre adapter le SendKey )
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
bonne soiree
michel
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
J'ai trouvé la solution, en fait il suffit de supprimer le mailto dans
en fait par rapport au code ecrit au dessus, il faut ecrire :Code:Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & HLink
Car le mailto faisait doublon avec celui défini précédement dans :Code:Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:" & HLink
Code:HLink = "mailto:" & EmailAddr & "?"