Send Email With VB6

[sotospez]

gia sas

thelo na steilo email meso tis visual basic 6 alla oxi meso mapi (outlook)

me kodika alla kai thelo o smtp server na einai o gmail m

exo brei kapia pramata alla den mporo na prosperaso to

ayto mou bgazi

" Must issue a STARTTLS command first m1sm3049938ugc "

den ksero pos mporo na stilo ston smtp tis gmail to TLS

exeis kapios kapio kodika i kanena sample

i kamia idea

 

thanks

[ntaryl]

καλησπερα

με μια προχειτη αναζητηση βρηκα αυτο σαν αρχη .http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=62046&lngWId=1

Δεσ και αυτο http://www.google.gr/search?hl=el&q=send++email+gmail++visual++basic++source+code&meta=

ελπιζω να βοηθησα

καλο βραδυ

[sotospez]

Καλημέρα και καλή εβδομάδα

Το είδα αυτό κάνει Encode δεν είναι αυτό που θέλω

 

Thanks

[pinball_elf]

Apo mia mikri erevna pou ekana sto internet vrika oti to TLS (Transport Layer Security) einai ena eidous Secure Sockets Layer (SSL) protokolo pou xrisimopoieitai gia network communications . Otan loipon mia client-server sundesi pragmatopoii8ei mesw tou TLS ola ta dedomena pou metaferontai einai encrypted. Efoson o gmail server xrisimoipoiei auto to protokolo epikoinwnias, 8a prepei kai esy na steileis to mail sou sumfwna me auto to protokolo(http://www.apps.ietf.org/rfc/rfc2246.html).

 

Vrika episis kai ena allo sunadelfo programmatisti pou eixe to idio akrivws provlima me esena (http://www.a1vbcode.com/a1vbcode/vbforums/Topic6203-6-1.aspx). H lush pou tou prwta8ike opws 8a deis kai esu sto teleutaio post, einai ena paradeigma vb kwdika pou xrisimopoiei auto to protokolo, oxi gia e-mail omws alla gia HTTPS epikoinwnia(http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=43694&lngWId=1).

[sotospez]

ok file m katalaba pos pezi diskolo einai alla tha to katafero

 

thanks

[ntaryl]

καλησπερα

Φιλε μου κρατα μας ενημερους σχετικα με την πορεια αυτου που πας να κανεις

καλο απογευμα

[sotospez]

http://1one.myvnc.com/findip/

http://1one.myvnc.com/findip/findip.rar

des te ayto

 

lipon to ekana se visual 2005

 

etsi pezi to email

 

Private Sub SendMAIL()

On Error GoTo err

Const googleMailPortNumber As Integer = 587

 

Const userName As String = "[email protected]"

 

Const passWord As String = "password here"

Dim msgMail As MailMessage

 

Dim smtp As SmtpClient

 

msgMail = New MailMessage(userName, toemail TextBox3.Text , "Your IP Of Your Router is : " & TextBox1.Text, TextBox1.Text & vbNewLine & " Sotiris Pezouvanis")

 

smtp = New SmtpClient("smtp.gmail.com", googleMailPortNumber)

 

smtp.EnableSsl = True

 

smtp.DeliveryMethod = SmtpDeliveryMethod.Network

 

smtp.Credentials = New System.Net.NetworkCredential(userName, passWord)

 

smtp.Send(msgMail)

Label6.Visible = True

SaveSetting(My.Application.Info.Title, "EMAIL", "EMAIL", TextBox3.Text)

Exit Sub

 

err:

Label6.Visible = False

MsgBox("Error SendMAIL")

 

End Sub

[ntaryl]

Πολυ καλος φιλε

αψογος εγραψες .

Θα προτιμουσα να το εφτιαχνες σε Visual basic 6.0 (αγαπη μου)

Παντως πολυ καλο

καλο απογευμα