title image


Smiley Getesteter Quellcode
Weil nun fast Weihnachten ist poste ich hier mal einen Quellcode der auch getestet ist. Wichtig sind vor allem die vbcrlf nach den Kommandos.



sck_EMail.LocalPort = 0

sck_EMail.Connect "pop.gmx.net", 110



Do Until frm_Main.sck_EMail.State = sckConnected

DoEvents

Loop



sck_EMail.SendData "USER benutzername@gmx.de" & vbCrLf

DoEvents

sck_EMail.SendData "PASS meinpasswort" & vbCrLf

DoEvents

sck_EMail.Close



'E-Mail versenden

sck_EMail.LocalPort = 0

sck_EMail.Connect "mail.gmx.net", 25



Do Until frm_Main.sck_EMail.State = sckConnected

DoEvents

Loop



Fourth = "From: " & "beliebigerSenderName" & vbCrLf

Fifth = "To: " & "Empfaengername" & vbCrLf

Sixth = "Subject: Betreff & vbCrLf

Eighth = Fourth & Fifth & Sixth

sck_EMail.SendData ("HELO benutzname@gmx.de + vbCrLf)

DoEvents

sck_EMail.SendData "mail from: " & "benutzername@gmx.de" & vbCrLf DoEvents

sck_EMail.SendData "rcpt to: " & "empfaenger@gmx.de" & vbCrLf

DoEvents

sck_EMail.SendData ("data" & vbCrLf)

DoEvents

sck_EMail.SendData (Eighth & vbCrLf)

DoEvents

sck_EMail.SendData text1.text & vbCrLf

DoEvents

sck_EMail.SendData ("." & vbCrLf)

DoEvents

sck_EMail.SendData ("quit" & vbCrLf)

DoEvents

sck_EMail.Close







sck_EMail ist das Winsock-Steuerelement

Der erste Teil ist zum Abrufen von E-Mail. Das ist aber nötig weil du sonst bei den meisten Providern keine E-Mails senden darfst.



Einen komplexeren Quellcode habe ich im Internet gefunden und alles nicht notwendige weggelassen.



Frohe Weihnachten



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: