Discussion :

[micka180]

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"

[gderenne]

Salut,

Pour envoyer un message, je ne vois pas trop comment faire pour l'envoyer sans serveur...

Sinon, j'ai ca qui ressemble à ton code + piece jointe :

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
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example CDO Message" 
objMessage.From = "me@my.com" 
objMessage.To = "test@test.tst" 
objMessage.TextBody = "This is some sample message text."
 
'== C'est là qu'on précise la piece jointe...
objMessage.AddAttachment "c:\temp\readme.txt"
 
objMessage.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.myserver.com"
 
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
 
objMessage.Configuration.Fields.Update
 
objMessage.Send

Perso, j'utilise un composant externe et surtout mon serveur SMTP.