asked on

Send email in VB.NET 2005

Hi experts.. I hope you guys can help me with this issue.. Thanks in advance.

In the event click of my command button.. I'd like to send an email... I tried this:

Imports System.Net.Mail.MailMessage (this line I put it in the first row)

Protected Sub btnsend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsend.Click
Try
Dim emailTitle As String = "My Email Title"
Dim emailMessage As Net.Mail.MailMessage
Dim body As String = "This will appear in the body of my email"

emailMessage = New Net.Mail.MailMessage "from@emailaddress", "to@emailaddress", "Test", "TEST2")
MsgBox("You request was sent, thanks")
Dim mailClient As New Net.Mail.SmtpClient("Here goes the IP server", 25)

Catch ex As Exception

End Try
End Sub

Am I doing something wrong?? Could you tell me what is the best way to send a confirmation mail.. in VB.NET 2005.. please...

Thanks :)

VBRocks

Here's a little sub you can use:

Public Sub SendEmail(ByVal Sender As String, ByVal Recipient As String, _
ByVal Subject As String, ByVal Body As String)

Dim smtp As New Net.Mail.SmtpClient("1.30.75.75")

'separate recipients by comma
smtp.Send(Sender, Recipient.Replace(";", ","), Subject, Body)

smtp = Nothing

End Sub

VBRocks

Here's your code, you just needed to add a call to the Send method:

Dim emailTitle As String = "My Email Title"
Dim emailMessage As Net.Mail.MailMessage
Dim body As String = "This will appear in the body of my email"

emailMessage = New Net.Mail.MailMessage _
("from@emailaddress", "to@emailaddress", "Test", "TEST2")

Dim mailClient As New Net.Mail.SmtpClient(IPAddress)
mailClient.Send(emailMessage)

MsgBox("You request was sent, thanks")

modeza

ASKER

It doesnt send the email...

something else.. that can help ???

thanks

VBRocks

Well, what kind of problem are you having?

Make sure you change "IPAddress" to the name of your email server, or the IP address.

ASKER CERTIFIED SOLUTION