Using Authentication for sending Mail in VB2005

[smahdis]

Hello Friends,
I am new to this Forum. Let me ask my question straightly
I faced a problem in vb 2005 and that is: I want to send Email using System.net.mail but I couldn't find anything about Authentication there.

Can you please give me a simple code for sending an email using SMTP and Authentication in VB 2005 (.net2)?!

[smahdis]

I finally found the code:

 
        Try
            Dim strAddress As String = "[e-mail]"
            Dim sm As New SmtpClient(Host, Port)
            With sm
                .EnableSsl = True
                .Credentials = New NetworkCredential("MyuserName", "MyPass")
                .TimeOut = 20000       ' I add this extra line
            End With 
            Dim _from As MailAddress = New MailAddress(strAddress)
            Dim _to As MailAddress = New MailAddress(strAddress)
            Dim mMsg As New MailMessage(_from, _to)
            mMsg.Subject = "Happy AAA"
 
            sm.Send(mMsg)
 
            msg = "Seccess!"
 
        Catch ex As Exception
            msgbox (ex.Message)
        End Try