PEssoal, Alguem aí já enviou emails com aspmail. Eu estou usando o seguinte código, mas sempre dá erro:

Dim sucesso As Boolean '
    Dim mensagem As String
    Dim mailer As SMTPsvg.mailer

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

    mailer.RemoteHost = "smtp.bol.com.br" 'Local onde você colocará o smtp.

    mailer.FromName = "nomedoremetente" '- Procura no form o nome colocado
    mailer.FromAddress = "emaildoremetente" '- Procura no form o e-mail colocado
    mailer.AddRecipient "nomedodestinatário", "emaildodestinatário" '- O nome de quem está enviando e o E-mail
    mailer.Subject = "testeasp" '- Procura no form o assunto colocado

    mailer.BodyText = "bçla vbababalbalablbaba" '- Procura no form o texto colocado

    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"
    MsgBox mailer.SMTPLog

    Eu tenho dúvida se posso usar um serviço smtp de um servidor tipo:smtp.mail.yahoo.com.br , smtp.bol.com.br, etc...

 

Pois só recebo a mensagem dizendo que o email não foi enviado. Alguém saberia me dizer qual é o problema?