Bonjour,

je voudrai envoyer une piece jointe par mail (sans utilisation du smtp).
j'ai un morceau de code, mais je ni arrive pas.
si qu'elqu'un a meme juste de la doc.
Merci

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
 
Set objEmail = CreateObject("CDO.Message")
 
objEmail.From = "usre1@toto.fr"
objEmail.To = "user2@toto.fr"
objEmail.Subject = "service is down" 
objEmail.Textbody = "etat du service outlook"
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "smarthost" 
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
 
objEmail.Send
voici mon message d'erreur

"le transport à ecoué dans sa connexion au serveur"