ENVIO DE EMAIL

 Try

            [ô] cria uma instância do objeto MailMessage
            Dim mMailMessage As New MailMessage()
            [ô] Define o endereço do remetente
            mMailMessage.From = New MailAddress([Ô]teste@dietnet.com.br[Ô])
            [ô] Define o destinario da mensagem
            mMailMessage.To.Add(New MailAddress([Ô]unescon.unescon@hotmail.com[Ô]))
            [ô] Define o assunto
            mMailMessage.Subject = [Ô]Assunto[Ô]
            [ô] Define o corpo da mensagem
            mMailMessage.Body = [Ô]Corpo[Ô]
            [ô] Define o formato do email como HTML
            mMailMessage.IsBodyHtml = True
            [ô] Define a prioridade da mensagem como normal
            mMailMessage.Priority = MailPriority.High
            [ô]If Anexo <> Nothing Then
            [ô] mMailMessage.Attachments.Add(New Attachment(Anexo))
            [ô]End If
            [ô] Cria uma instância de SmtpClient - Nota - Define qual o host a ser usado para envio
            [ô] de mensagens, no local de smtp.server.com use o nome do SEU servidor
            Dim mSmtpClient As New SmtpClient
            mSmtpClient.Host = [Ô]mail.dietnet.com.br[Ô]
            [ô] Envia o email
            mSmtpClient.Credentials = New Net.NetworkCredential([Ô]teste@dietnet.com.br[Ô], [Ô]123456[Ô])
            mSmtpClient.EnableSsl = False
            mSmtpClient.Port = 25
            mSmtpClient.Send(mMailMessage)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try