problème d'envoi de mails

Question

salut à tous, Mon problème c'est que quand j'essai d'envoyer un mail grace a un control winsock il ne se passe rien,dans mon form je met un bouton et un control winsock,le code:Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) Winsock.RemotePort = 25 Winsock.RemoteHost = Winsock.Connect End Sub Private Sub Winsock1_Connect() On Error Resume Next Dim send(1 To 9) As String send(1) = "HELO " & vbCrLf send(2) = "MAIL FROM:" & "<" monmail1@kekchoz.com" > " & vbCrLf" send(3) = "RCPT TO:" & " " & vbCrLf" send(4) = "DATA" & vbCrLf send(5) = "from: " & Chr$(34) & "jean claude" & Chr$(34) & "< jeanclaude@hotmail.com >" & vbCrLf send(6) = "to: " & "<" monmail@kekchoz.com" >" & vbCrLf send(7) = "subject: " & test & vbCrLf & vbCrLf send(8) = salut & vbCrLf & "." & vbCrLf send(9) = "QUIT" On Error GoTo Erreur Dim x For x = 1 To 9 Winsock.SendData send(x) DoEvents Next x Winsock.Close end sub Private Sub Command1_Click() Winsock.RemotePort = 25 Winsock.RemoteHost ="smtp.noos.fr" Winsock.Connect End Sub Je connais quelqu'un chez qui ca marche c'est puor ca que j'trouve ca etrange j'ai essayer sans guillemets,mais ca ne change rien... j'ai essayer avec une boite mail hotmail vers une boite free,un boite bidon hotmail vers une autre boite hotmail(une vrai)et la meme sur free mais il se passe rien...

cs_jeanmarc · Answer

Bonjour,
Un script qui marche.

Set Msg = CreateObject("CDO.Message")    '  pour la configuration du message
Set Conf = CreateObject("CDO.Configuration")   '   pour la configuration de l'envoi
Set Config = Conf.Fields


With Config
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true ' Id SSL 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx/xxxxxxx" 'compte de messagerie
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yyyyyy" ' votre mot pass
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' mettre le port 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' generalement a ne pas modifier
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.zzzzzz.fr" 'votre serveur SMTP
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 ' delai d'attente de connexion
    .Update
End With
With Msg
Set .Configuration = Conf ' 
    .To = "[mailto:jeanmarcr@xxxxxx.fr jeanmarcr@xxxxxx.fr]" 'email du destinataire
    .From = "[mailto:jeanmarc@xxxxxx.fr jeanmarc@xxxxxx.fr]" 'votre email
    .Subject = "Essai" ' objet du message
    .htmlbody = "Salut"  ' votre message       
    .AddAttachment "d:	rffic.doc" ' votre fichier joint
    .Send 'envoi du message


End With
set Conf = nothing
set Msg = nothing

cs_trouduc · Answer

Private Sub Command1_Click() Winsock1.Close Winsock1.Connect "smtp.iquebec.com", 25 End Sub Private Sub Winsock1_Connect() Winsock1.SendData "HELO serveur" & vbCrLf Winsock1.SendData "MAIL FROM:<[mailto:expediteur@iquebec.com expediteur@iquebec.com]>" & vbCrLf Winsock1.SendData "RCPT TO:<[mailto:recepteur@iquebec.com recepteur@iquebec.com]>" & vbCrLf Winsock1.SendData "DATA" & vbCrLf & _ "ton message : " & vbCrLf & _ "." & vbCrLf & "QUIT" & vbCrLf End Sub ca fonctionne pour moi

dOsSpr0uTosS · Answer

jeanmarc j'ai essay&#233; ton script mais il me dit le transport a echou&#233; dans sa connection au serveur alors j'ai bien tout rempli mais j'ai un doute sur le smtp c'est bien le fournisseur internet qu'il faut mettre ou bien le serveur de la boite mail de l'envoyeur?
et trouduc j'ai essayer ton code mais il ne se passe rien comme avec mon code :-/ (enfaite c'est le meme d'ailleur sauf que certain send dans le mien sont facultatifs)

cs_izou · Answer

salut 
je suis newbii , et je te conseille de voire le site 
www.developpez.com
dans vb tu va trouve un tut tres complet sur winsock et il y a un example qui illustre "un serveur mail" (evoit,reception,consultation de la boit mail )

Problème d'envoi de mails

4 réponses

Discussions similaires