sending email using SMTP server Email in vb2005

mailMsg.Subject = strSubject
            mailMsg.Body = strMailMsg
            mailMsg.IsBodyHtml = True
            mailMsg.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure


            If Trim(strReplyTo).Length > 0 Then
                mailMsg.Headers.Add("Reply-To", strReplyTo)
            End If

            mailMsg.Headers.Add("X-Organization", strCompanyName)
            If Trim(strReplyTo).Length > 0 Then
                mailMsg.ReplyTo = New MailAddress(strReplyTo)
            End If

            SmtpServer.Send(mailMsg)
          


            fnSendEmail = True
        Catch ex As System.Net.Mail.SmtpException
            gboolsmtp = True
            GoTo nextsmtp
        Catch ex As Exception
            Me.Cursor = Cursors.Default
            MessageBox.Show(ex.Message, me.text, MessageBoxButtons.OK, MessageBoxIcon.Error)
            ' StoreErrorLog(Me.Text, ex.Message, ex.StackTrace)
        End Try