Discussion :

[Poisson59]

Bonjour,

j'ai récupéré un script VB qui permet l'envoi de mail sans passer par Outlook ou autre type de messagerie.

Mon problème n'est pas sur l'envoi de mail en lui même qui fonction bien mais sur le corps du Message. je n'arrive pas à y mettre plusieurs lignse

voici le script :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Module Module1
   Dim EmailBody
   Dim objEmail
   Dim EmailSujet
   Dim EmailSender
   Dim EmailDest
   Dim SmtpServer
 
Sub Main()
 
 
'Envoi d'un mail avec fichier
 
        Const SmtpPort = 25
        Const ConfigSendType = 2
 
 
        EmailSender = "Support@support.fr"
        EmailDest = "lacestmoi@maboite.fr"
        EmailSujet = "Envoi automatique des Stats "
        SmtpServer = "XX.XX.XX.XX"
 
        objEmail = CreateObject("CDO.Message")
        objEmail.From = EmailSender
        objEmail.To = EmailDest
        objEmail.Subject = EmailSujet
        objEmail.Textbody = "Salut,"
        objEmail.Textbody = "Veuillez Trouvez ci joint les fichiers,"
        objEmail.Textbody = "Cordialement"
 
        objEmail.AddAttachment("c:\fichier1")
        objEmail.AddAttachment("c:\fichier2")
        objEmail.AddAttachment("c:\fichier3")
 
        objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = ConfigSendType
        objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SmtpServer
        objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SmtpPort
        objEmail.Configuration.Fields.Update()
        objEmail.Send()
 
    End Sub
 
End Module

Au final il me met dans le corps du message seulement la dernière ligne souhaitée "Cordialement"

Avez vous un idée pour avoir plusieurs ligne dans le corps du mail

Merci à vous !!!

[SfJ5Rpw8]

modifie tes lignes :

Code :

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

1
2
3
4
5
6
7
 
dim stMess
stMess = 
stMess  = "Salut,"
stMess = stMess & vbCrLf & "Veuillez Trouvez ci joint les fichiers,"
stMess = stMess & vbCrLf & "Cordialement"
objEmail.Textbody  = stMess

[Poisson59]

Merci c'est OK