Problème d'envoie de mail par SMTP

**yass** · 13/10/2005, 16h22

Bonjour,

J'ai un petit problème dans l'envoie de mail par SMTP.

Voici mon code:

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
 
Set config = New CDO.Configuration
With config.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.217.2.21"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Update
End With
 
 
Set email = New CDO.Message
With email
    Set .Configuration = config
    .From = "Jean@a.com"
    .To = "Jean@a.com"
    .Subject = "Sujet"
    .Textbody = "Blabla"
    .Send
End With
End Sub

L'erreur:

"Runtime error:
Le message n'a pas pu être envoyé vers le serveur SMTP.
La réponse du serveur était Not available"

Ce code fontionnait bien avant, l'adresse IP du serveur n'a pas changé et il est actif!

Qu'est-ce qui pourrait poser problème?

Merci d'avance,

**KiLVaiDeN** · 13/10/2005, 16h26

Il se peut que le problème se situe au niveau de l'utilisateur précisé dans le "From".

Si ton serveur n'accepte pas le relayage, il se peut qu'il te bloque si il ne connait pas l'utilisateur ( ou si celui-ci n'est pas identifié ).

A part ça, je ne vois pas pourquoi du jour au lendemain ton application pourrait planter, si tu n'as fais aucun changement.

Il faut donc se concentrer sur les seuls paramètres qui ont changés depuis, pour comprendre d'où vient le dysfonctionnement.

**yass** · 13/10/2005, 16h38

j'utilise Lotus Notes et le user du "From" est bien reconnu.
Comment s'identifier? y a t'il moyen de rajouter son password Lotus notes dans le code?

**KiLVaiDeN** · 13/10/2005, 16h43

Ajoutes ces lignes :

Code :

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

1
2
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "nom_user" 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mot_de_passe"

**yass** · 13/10/2005, 16h59

merci pour ton aide mais apparemment ca ne change rien...

**KiLVaiDeN** · 13/10/2005, 17h05

Hmm..
A partir de ton serveur, essai de faire un ping sur ton serveur SMTP pour voir si il répond.. Tu aurais pas un firewall qui te bloque ?

Ah et peut-être ai-je oublié un paramètre (après recherche sur google

)

Code :

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

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"

ou

Code :

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

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

**yass** · 13/10/2005, 17h09

le ping marche bien et j'ai rajouter la ligne de code mais rien à faire...

**KiLVaiDeN** · 13/10/2005, 17h10

Peux-tu montrer ton code entier, après modification ?

Et tu n'as pas répondu à ma première question : par rapport au moment où tout fonctionnait, quels ont étés les changements ?

**yass** · 13/10/2005, 17h14

rien a changé au niveau du code mais je ne sais pas si on a changé le proxy ou le firewall!

voici mon code:

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
 
Dim config As CDO.Configuration
Dim email As CDO.Message
 
Set config = New CDO.Configuration
With config.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.217.2.21"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Jean@a.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "jean"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Update
End With
 
Set email = New CDO.Message
With email
    Set .Configuration = config
    .From = "Jean@a.com"
    .To = "Jean@a.com"
    .Subject = "test"
    .Textbody = "test"
    .Send
End With

**KiLVaiDeN** · 13/10/2005, 17h17

Ca vaudrait le coup de se renseigner sur le port 25 de ton réseau, et de savoir si il est accèssible, je ne vois que ça comme explication à ton problème, si rien d'autre n'a changé dans ton environnement ni dans ton code ( du coup l'ajout de l'authentification est sûrement inutile )

**yass** · 13/10/2005, 17h19

ok, je vais me renseigner et je posterai la réponse.

en tout cas, merci beaucoup pour ton aide

**KiLVaiDeN** · 13/10/2005, 17h22

Mais de rien, bonne chance pour trouver une solution à ton problème.

**af_airone** · 14/10/2005, 11h47

il existe des objets Notes en VB autant les utiliser
regarde cet exemple

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=8815&lngWId=4

ils utilisent Set s = createobject("Notes.NotesSession")
pour creer une session notes apres notes lui meme etant configuré il pointe automatiquement vers la passerelle smtp.........

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Set fs = createobject("Scripting.FileSystemObject")
    if fs Is Nothing Then
    MsgBox "Could Not Create FileSystemObject",16,"File System Object Error."
    endMe
    Exit Sub
    End if 
    fName = inputbox("Please enter the full path For the file","Enter Full Path To File","C:\")
    if fName = "" Then
    MsgBox "Empty Path"
    endMe
    Exit Sub
    End if
    path = fs.GetAbsolutePathName(fName)
    if Not fs.FileExists(path) Then
    MsgBox "File does Not exist In directory you specified"
    endMe
    End if 
 
 
 
Set s = createobject("Notes.NotesSession")
    if s Is Nothing Then
    MsgBox "Could Not Create A Session Of Notes",16,"Notes Session Error."
    endMe
    Exit Sub
    End if 
    'See if we can create the main object (s
    '     ession)
    if Err.Number <> 0 Then
    On Error Goto 0
    MsgBox "Could Not create session 'Lotus Notes' from object"
    Exit Sub
    End if 
    Set db = s.getdatabase(s.getenvironmentstring("MailServer",True),s.getenvironmentstring("Mailfile",true))
    'See if we can a handle on the mail file
    '     
    if Err.Number <> 0 Then
    On Error Goto 0
    MsgBox "Could find or Get a handle on the mail file"
    Exit Sub
    End if
    Set doc = db.createdocument
    Set rtitem = doc.createrichtextitem("BODY")
    recips(1) = "xxx@xxx.com"
    recips(2) - "rrr@rrr.com"
    With doc
    .form = "Memo"
    .subject = subj
    .sendto = "<xxx>@xxx.com" 
    .copyto = "<yyy>@yyy.com"
    .body = bdy
    .postdate = Date
    End With
    call rtitem.embedobject(1454,"",fName)
    doc.visible = True
    doc.send False
    'if we made it this far, alert the user 
    '     the mail memo has been created and sent
    MsgBox "You message has been created and sent." & chr(13) & "Thank you.",64,"Message Sent Notification."
    endMe
    End Sub
    Sub endMe()
    'clean objects/memory
    Set s = nothing
    Set db = nothing
    Set doc = nothing
    Set rtitem = nothing
    Set fs = nothing
    End Sub

**yass** · 12/09/2008, 16h45

Merci !

Problème d'envoie de mail par SMTP

VB 6 et antérieur

Discussions similaires

Partager

Partager