Discussion :

[pc75]

Comment tu construis ton mail ?

[papyxy]

Comment c'est dans ta procédure "SendMail"?

[Miistik]

Comme cela :

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
Function SendMail(strTo, strBody, strTitre)
                Dim objMail,objConfig,objFields
                Set objMail = CreateObject("CDO.Message")
                Set objConfig = CreateObject("CDO.configuration")
                Set objFields = objConfig.Fields
                With objFields
                .Item("http://schemas.microsoft.com/cdo/configuration/SendUsing")= 2 'Définit le type d'envoi en SMTP
				.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "IP"
                .Item("http://schemas.microsoft.com/cdo/configuration/SMTPServerPort")= 25
                .Update
                End With
                With objMail
                Set .Configuration = objConfig
                .To = strTo
                .Cc = strCc
                .Bcc = strBcc
                .From = "Script.AjustementStock@genzyme.com"
                .Subject = strTitre
                .HTMLBody = strBody
                .Send
                End With
End Function

[hackoofr]

Rah presque.

J'obtiens ça :
Rapport :Fichier1 Fichier2.

EDIT : Euh étrange.

Code :

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

1
2
3
Message = "Rapport :" & vbcr & Message
MsgBox(Message)
Call SendMail("kevin.moine@genzyme.com", Message, "Rapport Script")

La MsgBox est niquel :
Rapport :
Fichier1
Fichier2

Mais dans le mail cela foire

Sendmail(Email,Coprs du message,"Titre")

[pc75]

Comme cela :

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
Function SendMail(strTo, strBody, strTitre)
                Dim objMail,objConfig,objFields
                Set objMail = CreateObject("CDO.Message")
                Set objConfig = CreateObject("CDO.configuration")
                Set objFields = objConfig.Fields
                With objFields
                .Item("http://schemas.microsoft.com/cdo/configuration/SendUsing")= 2 'Définit le type d'envoi en SMTP
				.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "IP"
                .Item("http://schemas.microsoft.com/cdo/configuration/SMTPServerPort")= 25
                .Update
                End With
                With objMail
                Set .Configuration = objConfig
                .To = strTo
                .Cc = strCc
                .Bcc = strBcc
                .From = "Script.AjustementStock@genzyme.com"
                .Subject = strTitre
                .HTMLBody = strBody
                .Send
                End With
End Function

Essaie de remplacer les "vbcr" par des <br> dans ta variable "Message"

[Miistik]

Bien vu le <br> dans HTMLBody.



C'est OK.

Un grand merci à vous.