CONSOLE APLICATION - SEND EMAIL

ALTAIR148 19/09/2012 10:05:23
#409955

Em uma pesquisa bem rápida pelo nosso amigo Google, encontrei muitoooo material, veja os links abaixo que neles tem o que precisa.

http://farahsadala.wordpress.com/category/envio-de-email/
http://www.osix.net/modules/article/?id=377
http://www.accelerated-ideas.com/perguntas-e-respostas/gmail/como-enviar-mail-programmically-198589-spage.aspx
http://www.digitalcoding.com/Code-Snippets/VB/Visual-Basic-Code-Snippet-Send-Email-Using-SMTP-Server.html

KABONG 19/09/2012 11:08:53
#409965 Resposta escolhida

Sub main()

Dim str_mServidor As String
Dim int_mPorta As Integer
Dim str_mUsuario As String
Dim str_mSenha As String

str_mServidor = [Ô]EmailDoServidor[Ô]
int_mPorta = 25 ou 587
str_mUsuario = [Ô]@@@@@@@[Ô]
str_mSenha = [Ô]@@@@@@@[Ô]

Dim obj_mEmail As New Trend_FrameWork.Web.Email.cls_Email(str_mServidor, int_mPorta, str_mUsuario, str_mSenha, [Ô][Ô])


Try
obj_mEmail.EnviaEmail([Ô]emailRemetente[Ô], [Ô]emailDestinatario[Ô], [Ô]Assunto[Ô], [Ô]CorpoDoEmail[Ô], True, True)
Catch ex As Exception
Throw ex
Finally
[ô]objNovoEmail.Dispose()
End Try
[ô]objNovoEmail.Dispose()


End Sub

FELIPEDRONI 19/09/2012 13:13:05
#409983

Vlw cara!
Fica a dica para quem precisar!