1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

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

Discussão em 'Programação' iniciada por Ruben_Barbosa, 31 de Dezembro de 2008. (Respostas: 0; Visualizações: 1677)

  1. Ruben_Barbosa

    Ruben_Barbosa Power Member

    Código:
    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
     
          
     
     
    
     
    Última edição: 5 de Janeiro de 2009

Partilhar esta Página