estou tentando enviar um mail mas nao consigo.
esse é meu codigo:
Private Sub Command1_Click()

Dim mensagem As String
Dim mailer As SMTPsvg.mailer

Set mailer = CreateObject("SMTPsvg.Mailer") '- Conexão com a dll do servidor

mailer.RemoteHost = "smtp.mail.yahoo.com.br " 'Local onde você colocará o smtp.
'mailer.UserName = "lilithi_dea"
'mailer.Password = "101284"
mailer.FromName = "Andrea" '- Procura no form o nome colocado
mailer.FromAddress = "lilithi_dea@yahoo.com.br" '- Procura no form o e-mail colocado
mailer.AddRecipient Dea, lilithi_dea@hotmail.com '- O nome e o email de quem está recebendoe o E-mail
mailer.Subject = txtassunto '- Procura no form o assunto colocado

mailer.BodyText = txttexto '- Procura no form o texto colocado

mensagem = mailer.SendMail
MINHA DUVIDA: mailer.sendMAil sempre recebe falso alguem pode me dizer pq?

If menssagem = True 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"
End Sub
Atensiosamente Andrea

eu não tenho certeza, mas acho que é assim(eu não tenho o exemplo aqui no trabalho):

 

dim err

err = mailer.SendMail

if err <> 0 then

   mensagem = "O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"

else

  mensagem = "O E-MAIL ENVIADO COM SUCESSO!"

end if

Não funcionou, pq mensagem recebe empty.

NAo consigo entender o pq. Se puderes me Ajudar ficarei muito grata.