Dicas .NET - Enviar E-mail

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)