[Help] I need help with data sending..

[Mike3667]

Well, I used to be able to code this without a problem but I forgot how to.. How can I make it so it sends the data inputted in the text box to my email? If you could paste the code that'd be nice. ((I have VB6,the 2007 one I think, and 2008 so tell me which one you're posting the code for please.)) Thanks

[Murdok]

VB 6
-------

    On Error Resume Next
    
    Set objnet = CreateObject("WScript.NetWork")
    
    Set oSMTPSession = CreateObject("OSSMTP.SMTPSession")
    
    
    With oSMTPSession
     .MailFrom = txtFrom.Text
     .SendTo = "" 'Your Email Address
     .Server =  "" 'Your email address smtp server
     .Port = 25
     .MessageSubject = "" ' subject 
     .MessageText = "" 'Message
     .SendEmail
    End With
    Set oSMTPSession = Nothing

Add the textbox or what ever your sending it from after:

.MessageSubject

[mickaldinho]

Nice i needed to know this

[Zurkei]

VB 6
-------

 
    On Error Resume Next
 
    Set objnet = CreateObject("WScript.NetWork")
 
    Set oSMTPSession = CreateObject("OSSMTP.SMTPSession")
 
 
    With oSMTPSession
     .MailFrom = txtFrom.Text
     .SendTo = "" 'Your Email Address
     .Server =  "" 'Your email address smtp server
     .Port = 25
     .MessageSubject = "" ' subject 
     .MessageText = "" 'Message
     .SendEmail
    End With
    Set oSMTPSession = Nothing

Add the textbox or what ever your sending it from after:

.MessageSubject

I don't get any errors but for some reason it won't send to my gmail account.

[Murdok]

What smtp server you using?

[Zurkei]

What smtp server you using?

smtp.gmail.com

[Murdok]

It may use another port than 25

Try 587

[cohen101]

http://www.mmowned.com/forums/vb/176...-via-smtp.html

Try using that. It works for me

[Murdok]

Thats prity much the same code as i have writen just with a different variable and a few other things, mine should work with the correct smtp port