✔ Email Senden Mittels winsock

[remember]

Hallo
Ich möchte eine mail mittels winsock versenden. Dazu habe ich folgendes Programm geschrieben ()

Private Sub Command1_Click()
'Winsock wird geschlossen
Winsock1.Close

Winsock1.Protocol = sckTCPProtocol

'Die IP des Servers
Winsock1.RemoteHost = "192.168.1.3"

'Der Port des Servers
Winsock1.RemotePort = 25

'Verbinde Winsock !
Winsock1.Connect
Command1.Enabled = False
End Sub

Private Sub Command2_Click()

Winsock1.SendData "HELO USER.de"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim Result As String

Winsock1.GetData Result
Text3.Text = Result
End Sub

Doch beim wersenden von daten mit Winsock1.SendData "HELO USER.de"
Bekomme ich keine antwort vom Server...

Was mache ich hier falsch ?
Gruss remember

 

[kuhlmaehn]

Ich kann dir zwar nicht direkt weiterhelfen aber guck doch mal hier:
http://www.activevb.de/tipps/vb6tipps/tipp0051.html

 

[remember]

Viellen dank
doch habe endlich ma die lösung

die zeile muss Lauten : winsock1.sendData "die zu versendeten daten " & vbCrlf

das ist die zeichen foge für dem return

 

[Bratkartoffel]

hmm... wirste aber nicht viel erfolg haben, da die meisten provider die mails von privaten servern ablehnen.