Dicas .NET - Enviar E-mail

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja nesta dica, como enviar e-mais em uma aplicação .NET.

Enviar E-mail

 

Public Sub EnviaEmail(ByVal vRemetente As String, _

  ByVal vDestinatario As String, _

  ByVal vAssunto As String, _

  ByVal vCorpo As String, _

  ByVal vSMTP As String, _

  ByVal vPrioridade As Net.Mail.MailPriority, _

  Optional ByVal vAnexo As String = "")

 

Dim oEmail As New System.Net.Mail.MailMessage(vRemetente, vDestinatario, vAssunto, vCorpo)

       

Dim oSmtp As New System.Net.Mail.SmtpClient

 

oEmail.IsBodyHtml = True

oEmail.Body = vCorpo

oEmail.Priority = vPrioridade

If vAnexo.Trim <> String.Empty Then

   oEmail.Attachments.Add(New System.Net.Mail.Attachment(vAnexo))

End If

oSmtp.Host = vSMTP

oSmtp.Send(oEmail)

End Sub

 

Igor Alcantara (irarevolution@hotmail.com)

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?