Discussion :

[breneliere]

Bonjour,
Je désire envoyer un mail via un script comme ci-dessous, mais il ne se passe rien ! Je ne vois pas vraiment le blème, avant l'installation du service smtp sur ma machine j'avais une erreur sur la ligne "objMessage.Send", maintenant je n'ai pas de message mais pas de mail non plus dans ma boite de test.
Il doit sûrement manquer quelque chose ?

Code :

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

1
2
3
4
5
6
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example CDO Message" 
objMessage.From = "toto@yopmail.com" 
objMessage.To = "toto@yopmail.com" 
objMessage.TextBody = "Test pour exp‚dier un message en Vbs !" 
objMessage.Send

Merci d'avance pour vos infos, Rb

[ProgElecT]

Bienvenue sur DVP breneliere

[ced600]

Ton code à l'air correct.
Peut être que le mail n'arrive pas à cause d'un parfeu, ou dans le courrier indésirable ?
Ou bien un problème de configuration du service ?

Regarde le code MSDN, pour la création et l'envoie d'un message en CDO, il est légérement différent, peut être que cela marchera :

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
' This also appears as the "QuickStart" example in "Overview"
Function QuickStart()
Dim objSession As Object  ' or Dim objSession As MAPI.Session
Dim objMessage As Object  ' or Dim objMessage As Message
Dim objOneRecip As Object ' or Dim objOneRecip As Recipient
 
    On Error GoTo error_olemsg
 
' create a session then log on, supplying username and password
Set objSession = CreateObject("MAPI.Session")
' change the parameters to valid values for your configuration
' IMPORTANT: Storing user names and passwords inside source code
' can lead to security vulnerabilities in your software. Do not
' store user names and passwords in your production code.
objSession.Logon 'profileName:="User One", _
                 'profilePassword:="my_pword"
 
' create a message and fill in its properties
Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = "Sample Message"
objMessage.Text = "This is some sample message text."
 
' create the recipient
Set objOneRecip = objMessage.Recipients.Add
objOneRecip.Name = "UserOne"
objOneRecip.Type = CdoTo
objOneRecip.Resolve
 
' send the message and log off
objMessage.Update
objMessage.Send showDialog:=False
MsgBox "The message has been sent"
objSession.Logoff
Exit Function
 
error_olemsg:
MsgBox "Error " & Str(Err) & ": " & Error$(Err)
Resume Next
 
End Function