VB6 - ENVIAR E-MAIL SEM OUTLOOK. DUVIDA NOVAMENTE

ALEXANDRECHIA 05/09/2013 17:45:33
#428518

Gostaria de saber, se alguém pode me ajudar em como um mandar e-mail especifico ( no visual basic 6 ) sem passar pelo Outlook.

Peguei informação em outro tópico, mas não está dando certo, veja:

On Error GoTo erro_envia
Dim Msg As CDO.Message
Dim Cof As CDO.Configuration
Dim Camp
Set Msg = New CDO.Message
Set Cof = New CDO.Configuration
Set Camp = Cof.Fields

With Camp

.Item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.Item(cdoSMTPServer) = [Ô]mail.ABOBORA.com.br[Ô] [ô][Ô]smtp.mail.yahoo.com.br[Ô] ‘informe o servidor smtp aqui
.Item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = [Ô]eu@abobora.com.br[Ô] [ô] informe o usuario de autenticação
.Item(cdoSendPassword) = [Ô]mandioca[Ô] [ô]Informe a Senha aqui
.Update
End With

With Msg

Set .Configuration = Cof

.To = MyEmail_Cli [ô] destinatario1@email.com.br;destinatario2@email.com.br ‘ destinatarios separados por ;
.From = [Ô]mecanica@bol.com.br[Ô] [ô][Ô]contatos@flowsys.com.br[Ô] [ô]remetente@email.com.br ‘ remetente[Ô]
.Subject = [Ô]Feliz Aniversário![Ô]
.HTMLBody = strHTML
[ô].CC = [ô]Informe o ou os destinatários da cópia
[ô].BCC = [Ô]contatos@flowsys.com.br[Ô] [ô]Informe o ou os destinatários da cópia oculta
[ô].AddAttachment “c: este1.txt;c: este2.txt” [ô] informe o ou os anexos

.Send

End With

PRECISA INCLUIR NO PROJETO A DLL MICROSOFT CDO FOR WINDOWS 2000 LIBRARY

FLOW SYSTEMS


Fiz todo procedimento, mas não deu certo, o que deve ser?????