Concaténation de chaînes

Version imprimable

Voir 40 message(s) de cette discussion en une page

22/01/2013, 14h51
pc75

Comment tu construis ton mail ?
22/01/2013, 14h53
papyxy

Comment c'est dans ta procédure "SendMail"?
22/01/2013, 14h55
hackoofr
Citation:
Envoyé par Miistik

Rah presque.

J'obtiens ça :
Rapport :Fichier1 Fichier2.

EDIT : Euh étrange.

Code:

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") :koi:

Comme cela :

Code:

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

Citation:

Envoyé par Miistik

Comme cela :

Code:

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"

22/01/2013, 15h13
Miistik

Bien vu le <br> dans HTMLBody.

:hola:

C'est OK.

Un grand merci à vous.

Voir 40 message(s) de cette discussion en une page