Uso o Servidor Smtp da LocaWeb que exige autenticação, não consigo enviar e-mail com meu programa. Alguém sabe como faço para autenticar meu e-mail neste código.

 

Private Sub Send()
    Screen.MousePointer = vbHourglass
    Load frmDetails
    frmDetails.Show
    With SendMail
        .SMTPHostValidation = VALIDATE_NONE
        .EmailAddressValidation = VALIDATE_SYNTAX
        .Delimiter = ";"
        .SMTPHost = "smtp.dominio.com.br"
        .UseAuthentication = True
        .Username = "e-mail@dominio.com.br"
        .Password = "teste1234"
        .from = "e-mail@dominio.com.br"
        .FromDisplayName = "Orçamento - SF Industrial"
        .Recipient = txtTo1.Text
        .RecipientDisplayName = txtTo1.Text
        .CcRecipient = txtTo2.Text
        .CcDisplayName = "e-mail@dominio.com.br"
        .ReplyToAddress = "e-mail@dominio.com.br"
        .Subject = txtAssunto.Text
        .Message = HTML
        .Attachment = App.Path & "logo.gif"
        .AsHTML = True
        .ContentBase = ""
        .EncodeType = MIME_ENCODE
        .Priority = Prioridade
        .Receipt = Recebimento
        .UseAuthentication = False
        .MaxRecipients = 100
        .Send
    End With
    Screen.MousePointer = vbDefault
End Sub

faz com winsock... na seções de dicas/projetos vc irá encontrar alguns exemplos...

pelo winsock vc consegue fazer a autenticação antes de montar o email a ser enviado...

qq dúvida post ae...

 

Renato

Já estou usando o winsock, achei alguns exemplos aqui no site, mas nenhum funcionou, este foi o melhor que achei. Já até montei no meu programa a forma como vou utilizar. Testei com o bol e funcionou, mas com meu domínio não consigo fazer funcionar. Não quero perder todo o trabalho que já tive.