Discussion :

[riesseg]

soit le code suivant:

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
 
Private Sub Command1_Click()
    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") = Text1.Text
        .Update
    End With
    Set email = New CDO.Message
    With email
    Set .Configuration = config
        .From = Text3.Text
        .To = Text2.Text
        .Subject = sujet.Text
        .TextBody = corps.Text
        .Send
    End With
End Sub

sur mon PC, pas de probleme.

sur un autre PC:


qqun comprend l'erreur ?

[riesseg]

une sombre histoire de firewall et de smtp...

pb reglé