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)