quick email

[lpeek]

i have 4 text boxes:
txtname
txtemail
txtbugname
txtbug

and a send button:
cmdsend

i wanna know the code (if anyone knows it) to send the info in these to an email address of my choice instantly, not making anything pop-up or show anything on screen.
all i need is this:
subject: "Bug report"
to: "[email protected]
text in the email: txtname.Text, txtemail.Text, txtbugname.Text, txtbug.Text

i want one as simple as possible that can do all this.

[Pirate]

Three different ways , here you go ...
http://www.vbcode.com/asp/showsn.asp?theID=161
http://www.vbcode.com/asp/showsn.asp?theID=545
http://www.vbcode.com/asp/showzip.as....zip&theID=539

[lpeek]

what controlls do i need? it says something about Active X

[Pirate]

Originally posted by lpeek
what controlls do i need? it says something about Active X

Which one , I never run them ?

[lpeek]

the second link. it says something like "Active X cant create the object"

[Pirate]

You need SMTP . See if this would help you http://www.andreavb.com/forum/viewtopic.php?TopicID=513 .

[lpeek]

how do i know if ive got that?

[Pirate]

I believe it's winsocket control . I'm not sure about it in VB6 but in VB.NET we use SSL to send emails coz it requires identification and such stuff .

[lpeek]

so i should just add a winsock control?

[Pirate]

Originally posted by lpeek
so i should just add a winsock control?

Yes , I guess .

[lpeek]

i just done that and it does the same thing. its something to do with this line:
Set Mailer = CreateObject("Geocel.Mailer")
it cant create the object Geocel.Mailer i think

[Pirate]

Hmm , did you set winsocket name as "Mailer" ??

[lpeek]

now it says invalid use of property over the bit that says "Mailer" in the first line of code (the bit in bold in the code below):
Set Mailer = CreateObject("Geocel.Mailer")

here is my full code:

Private Sub cmdsend_Click()
 Set Mailer = CreateObject("Geocel.Mailer")
 
 Mailer.AddServer "mail", 25
    
 Mailer.FromAddress = txtemail.Text
 Mailer.FromName = txtname.Text
 
 Mailer.AddRecipient "[email protected]", "AEE Staff"
 
 Mailer.Subject = "The JukeBox 2 Bug Report"
 
 Mailer.Body = "Bug Name: " & txtbugname.Text & "" & vbCrLf & _
        "Bug Description: " & txtbug.Text & "" & vbCrLf
 
 bSuccess = Mailer.Send()
 
 If bSuccess = False Then
    If Mailer.Queued = False Then
      MsgBox ("Could not send message. failed to queue!")
    Else
      MsgBox ("Could not send message. the server is queued!")
    End If
    Else
      MsgBox ("Bug Report Sent Successfully!")
    End If
End Sub

[Pirate]

You should start first with this line of code :

Dim Mailer As Winsock

and then

Set Mailer = CreateObject("Geocel.Mailer")

[lpeek]

well that bit works, but now it goes through these bits:

Mailer.AddServer "mail", 25
    
 Mailer.FromAddress = txtemail.Text
 Mailer.FromName = txtname.Text
 
 Mailer.AddRecipient "[email protected]", "AEE Staff"
 
 Mailer.Subject = "The JukeBox 2 Bug Report"
 
 Mailer.Body = "Bug Name: " & txtbugname.Text & "" & vbCrLf & _
        "Bug Description: " & txtbug.Text & "" & vbCrLf

saying that "Method or Data member not found"

[Pirate]

Yes , right . It seems the code referes to custom control not the one we're working with . anyways , don't worry you still have chance to get it work . Try these links ...http://www.vbcode.com/asp/showsn.asp?theID=619
http://www.vbcode.com/asp/showsn.asp?theID=1794
if didn't help then go here http://www.vbcode.com and search with "smtp" and try other links . I'm dead tired I should to sleeep

[Pirate]

There is another thread here talks about sending emails in VB .(in case you've not seen it).

[jdc6029]

Here's an example that works great using Winsock and your email sever.

Bug Report tool

http://www.planet-source-code.com/vb...44441&lngWId=1