Envio De E-mail Pelo Microsoft Oulook

[Guest André Unno]

Boa tarde.

Aqui na empresa temos um Sistema de Cotação, desenvolvido em Visual Basic, onde os usuários podem mandar direto desse sistema um e-mail para os clientes com a cotação.

O problema é que esse envio de e-mail só está funcionando com o Outlook Express como programa de e-mail padrão. Se eu colocar o Microsoft Outlook como programa padrão, esse envio automática não funciona.

Alugém sabe me informar como eu resolvo esse problema?

[PiGmEu]

entra no site http://www.aspemail.com/, e baixa as DLLs e depois o codigo abaixo manda o Email

   Dim caminho As String
    mail = "xxxxxxxxxxx@xxxxxxxxxxxxx.com.br"
    MsgBox Err.Number & "-" & Err.Description
    Set EnviaEmail = CreateObject("SMTPsvg.Mailer")
    EnviaEmail.AddRecipient "xxxxxxxxxxxxxxxx", mail
    EnviaEmail.FromName = "xxxxxxxxxxxxxx"
    EnviaEmail.RemoteHost = "smtp.xxxxxxx.com.br"
    EnviaEmail.FromAddress = "erro@sxxxxxxx.com.br"
    EnviaEmail.FromName = "XXXXXXX"
    EnviaEmail.Subject = "XXXXXXXXXXXX"
    
    
    EnviaEmail.Bodytext = "Numero do Erro: " & Err.Number & "," & Chr(13) & Err.Description & Chr(13) & Date & Chr(13) & Time
    sucesso = EnviaEmail.SendMail

Abracos

[Decio]

você pode usar este componente que é muito bom e tem uma versão free:

http://www.oopadelic.com/htmlmailer/

O problema é que não envia anexo