Discussion :

[zoom61]

Salut,

J'essaie d'envoyer de mail par SMTP, mais j'ai toujours une erreur, voici le code que j'utilise :

Code vb :

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
Function test()
 
Dim iMsg As Object, iConf As Object, Flds As Variant
 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1
Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serveur smtp"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = port
    Set iMsg.Configuration = iConf
    .Update
    DoEvents
End With

 
With iMsg
    'Set .Configuration = iConf
    .To = "email reception"
    .From = "email envoi"
    .Subject = "Sujet"
    .HTMLBody = "Ceci est un essai ..."
    '.AddAttachment attpath
    .Send
    DoEvents
End With
 
End Function

Mais toujours ce message :


J'obtiens le même résultat avec ces lignes en plus :

Code vb :

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

1
2
3
4
5
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email"

La bibliothèque CDO est activée.

Avez-vous une idée ?

@+.

[pc75]

Bonjour,

Ton serveur a besoin d'une authentification ?

[zoom61]

Ton serveur a besoin d'une authentification ?

L'authentification se fait bien avec ces lignes :

Code :

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

1
2
3
4
5
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email"

@+.

[PipoWIL]

Si cela peut vous aider, j'utilise ceci régulièrement :

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
Function TestMail()
Dim oMail As Object
Set oMail = CreateObject("CDO.Message")
oMail.TO = "Romeo@Shakespeare.com"
oMail.FROM = "Juliette@Shakespeare.com"
oMail.subject = "Rdv sous ton balcon"
oMail.textbody = "Je t'aime à en mourir"
 
oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "MonServeurblahblah"
oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oMail.Configuration.Fields.Update
oMail.send
Set oMail = Nothing
End Function

[zoom61]

Salut,

Merci pc75 et PipoWIL, je dois avoir un problème avec mon serveur car cela ne fonctionne pas.
Je vais voir avec l'informatique.

@+.