Gmx Mail Versenden?
Übersicht BlitzBasic Beginners-Corner
mactepBetreff: Gmx Mail Versenden? |
Mi, Jul 08, 2009 1:43 Antworten mit Zitat |
|
---|---|---|
Kann mir einer erklären wie man mit GMX als Anbieter ein Prog. zum senden von Emails macht ?
hab schon gesucht aber nix gefunden . da fehlt glaube ich die password abfrage ..oder? http://www.blitzbasic.com/code...hp?code=23 oder verstehe ich da was falsch ? MFG MACTEP |
||
SchnittlauchUnkraut |
Mi, Jul 08, 2009 8:56 Antworten mit Zitat |
|
---|---|---|
Ich würde sagen du schaust dir einfach mal das SMTP Protokoll an und die TCP/IP Befehle ^^ | ||
Ich wars nicht. |
Phlox |
Mi, Jul 08, 2009 9:01 Antworten mit Zitat |
|
---|---|---|
Hier, noch ein Code von blitzbasic.com:
Code: [AUSKLAPPEN] Function smtpSendMail(server$, von_adresse$, password$, an_adresse$, subject$, mailtext$)
com2 = OpenTCPStream(server$,25) ReadLine(com2) WriteLine com2,"AUTH LOGIN" ReadLine(com2) WriteLine com2,b64enc(von_adresse) ReadLine(com2) WriteLine com2,b64enc(password) ReadLine(com2) WriteLine com2,"HELO Chess-Mail" ReadLine(com2) WriteLine com2,"MAIL FROM: " + von_adresse$ ReadLine(com2) WriteLine com2,"RCPT TO: "+an_adresse$ ReadLine(com2) WriteLine com2,"DATA" ReadLine(com2) WriteLine com2, "Date: " + CurrentDate$ () WriteLine com2, "From: " + von_name$ + " <" + von_adresse$ + ">" WriteLine com2, "To: " + an_name$ + " <" + an_adresse$ + ">" WriteLine com2, "Subject: " + subject$ WriteLine com2, "Mailer: " WriteLine com2, "" WriteLine com2, mailtext$ WriteLine com2, "." ReadLine(com2) WriteLine com2, "QUIT" ReadLine(com2) CloseTCPStream(com2) End Function Function b64enc$(a$) b64$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" m$="" f$="" largo=Len(a$) ;Encode a$ into one long string of bits cx$="" For encode=1 To largo x$=Mid$(a$,encode,1) ;get one char at a time Tx=Asc(x$) ;Tx = ASCII code b$=Bin$(Tx) ;convert Tx into string of 32 bits b$=Right$(b$,8) ;get the right most 8 bits out of the 32 bits cx$=cx$+b$ ;add string of 8 bits to cx$ Next ;largo = number of bits stored in cx$ largo=Len(cx$) For encode=1 To largo Step 6 x$=Mid$(cx$,encode,6) bbb=Len(x$) bbbx=6-bbb ;check for 6 bits ;If not full 6 bits at end of bit string, then add "=" to end of encoded string If bbbx>0 Then f$="=" EndIf x$=x$ + Left$("00000000",bbbx) ;pad with zeroes to make 6 bits res=0 For y=0 To 5 by = Asc(Mid$(x$, 6-y, 1)) - 48 ;get bits from right to left (least significant to most) res = res + ( 2^y * by) ;raise to power of 2 and add to res (result) Next m$=m$+Mid$(b64$,res+1,1)+f$ Next Return m$ End Function Also: Code: [AUSKLAPPEN] smtpSendMail("mail.gmx.net","deinemailadresse","deinpasswort","anadresse","Betreff","Text")
|
||
mactep |
Do, Jul 09, 2009 2:38 Antworten mit Zitat |
|
---|---|---|
danke ! | ||
Übersicht BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group