Para Quem quiser mandar email atraves de VB6 , VB2005 & VB2008 :)

Imports      System.Net.mail
 
     
 
      ' name="from" Endereco do      Remetente
      '  name="recepient" Destinatario
      '  name="bcc" recipiente Bcc
      '  name="cc" recipiente Cc
      '  name="subject" Assunto do email
      ' name="body" Corpo da mensagem 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(from)
      
   ' Define o destinario da mensagem
 mMailMessage.To.Add(New      MailAddress(recepient))
      
   ' Verifica se o valor para bcc é null ou uma string vazia
      If     Not bcc     Is     Nothing     And bcc <>     String.Empty     Then
        ' Define o endereço bcc
   mMailMessage.Bcc.Add(New      MailAddress(bcc))
      End     If
 
          ' Verifica se o valor para cc é nulo ou uma      string vazia
      If     Not cc     Is     Nothing     And cc <>     String.Empty     Then
       ' Define o endereço cc 
   mMailMessage.CC.Add(New      MailAddress(cc))
      End     If
 
          ' Define o assunto 
 mMailMessage.Subject = subject
      ' Define o corpo da mensagem
 mMailMessage.Body = body
      ' Define o formato do email como HTML
 mMailMessage.IsBodyHtml =     True
      ' Define a prioridade da mensagem como normal
 mMailMessage.Priority =      MailPriority.Normal
      
   ' 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(servidorSMTP)
      ' Envia o email
 mSmtpClient.Send(mMailMessage)
catch
end try