ENVIO DE EMAIL NO VB6 - URGENTE

SAMUKA 06/04/2012 21:14:15
#399284

Tem muito código no site sobre envio de e-mail, só dar uma fuçada

http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=384482&varPagina=1

PASCOAL 07/04/2012 07:29:07
#399292 Resposta escolhida

FERNANDO EU USO ASSIM :

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) = cdoSendUsingPort
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPServer) = ‘informe o servidor smtp aqui
.Item(cdoSMTPConnectionTimeout) = 50 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = informe o usuario de autenticação
.Item(cdoSendPassword) = Informe a Senha aqui
.Update
End With

DoEvents

With msg
Set .Configuration = Cof
.To = [Ô]destinatarios separados por ;[Ô]
.From = [Ô]remetente[Ô]
.Subject = [Ô]ARQUIVO XML[Ô]
.HTMLBody = [Ô]ARQUIVO XML PARA A CONTABILIDADE[Ô]
.CC = [Ô]pascoal@flowsys.com.br[Ô] [ô]Informe o ou os destinatários da cópia[Ô]
.BCC = [Ô]contatos@flowsys.com.br[Ô] [ô]Informe o ou os destinatários da cópia oculta
.Send
End With

DoEvents
MsgBox [Ô]EMAIL ENVIADO COM SUCESSO!!![Ô]

NUMCA TIVE PROBLEMAS ESPERO TER AJUDADO....