Envoie de mail... Help !
guizmo123
Messages postés
62
Date d'inscription
dimanche 6 octobre 2002
Statut
Membre
Dernière intervention
13 avril 2007
-
15 janv. 2003 à 16:37
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 - 21 janv. 2003 à 18:35
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 - 21 janv. 2003 à 18:35
A voir également:
- Envoie de mail... Help !
- Generateur de mail ✓ - Forum Visual Basic
- Flash mail - Forum Flash
- Mail c ✓ - Forum C / C++ / C++.NET
- Gandi mail - Forum PHP
- - Envoie de mail - Forum Flash
1 réponse
yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
2
21 janv. 2003 à 18:35
21 janv. 2003 à 18:35
'Vla les controle a placer:
'Text2:TO
'Text3:FROM
'Text4:Server
'Text5:Text
'Command5:Go
'Winsock1
Private Sub Command5_Click()
On Error GoTo bob
winsock1.localport=25
Winsock1.RemoteHost = Text4.Text
Winsock1.Close
Winsock1.Connect
bob:
End Sub
Private Sub Winsock1_Connect()
Winsock1.SendData "HELO 255.255.255.255" & vbCrLf
Winsock1.SendData "MAIL FROM:" & Text3.Text & vbCrLf
Winsock1.SendData "RCPT TO:" & Text7.Text & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & Text5.Text & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
End Sub
@++
'Text2:TO
'Text3:FROM
'Text4:Server
'Text5:Text
'Command5:Go
'Winsock1
Private Sub Command5_Click()
On Error GoTo bob
winsock1.localport=25
Winsock1.RemoteHost = Text4.Text
Winsock1.Close
Winsock1.Connect
bob:
End Sub
Private Sub Winsock1_Connect()
Winsock1.SendData "HELO 255.255.255.255" & vbCrLf
Winsock1.SendData "MAIL FROM:" & Text3.Text & vbCrLf
Winsock1.SendData "RCPT TO:" & Text7.Text & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & Text5.Text & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
End Sub
@++
