EMAIL COM ASPEMAIL
Ola estou tentando fazer um sistema de envio de email pelo vb, estou usando o componente aspemail. Mas não ta dando certo está dando erro estou fazendo da seguinte maneira.
Dim sucesso As Boolean '
Dim mensagem As String
Dim mailer As SMTPsvg.mailer
Call ValidaCampo
Set mailer = CreateObject("SMTPsvg.Mailer")
mailer.RemoteHost = "smpt.estadao.com.br"
mailer.UserName = "clajmcardoso@estadao.com.br"
mailer.Password = "11552244"
mailer.FromName = txtRemetente
mailer.FromAddress = txtEmailRemete
mailer.AddRecipient txtDestino, txtEmailDestino
mailer.Subject = txtAssunto
mailer.BodyText = txtMenssagem
sucesso = mailer.SendMail
If sucesso Then
mensagem = "O E-MAIL ENVIADO COM SUCESSO!"
Else
mensagem = "O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"
End If
MsgBox mensagem, vbInformation, "Enviando emails usando ASPMAIL"
Dim sucesso As Boolean '
Dim mensagem As String
Dim mailer As SMTPsvg.mailer
Call ValidaCampo
Set mailer = CreateObject("SMTPsvg.Mailer")
mailer.RemoteHost = "smpt.estadao.com.br"
mailer.UserName = "clajmcardoso@estadao.com.br"
mailer.Password = "11552244"
mailer.FromName = txtRemetente
mailer.FromAddress = txtEmailRemete
mailer.AddRecipient txtDestino, txtEmailDestino
mailer.Subject = txtAssunto
mailer.BodyText = txtMenssagem
sucesso = mailer.SendMail
If sucesso Then
mensagem = "O E-MAIL ENVIADO COM SUCESSO!"
Else
mensagem = "O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"
End If
MsgBox mensagem, vbInformation, "Enviando emails usando ASPMAIL"
kara...eu tbm usei esse componente e nao funcionou legal....dai eu achei esse exemplo com autenticação de usuário e tudo...daà deu certo no que eu precisava...veja ae...
Tópico encerrado , respostas não são mais permitidas