WINSOCK - ENVIO DE EMIAL CCO

VBRUNNERS 26/08/2010 18:34:18
#351419
Meus caros, eu consigo enviar sem problemas emails, com copia..., porém, não consigo enviar uma email CCO oculto.
Alguém pode ajudar, utilizo o seguinte a 'codigo abaixo parte do código:

.
.
.
Case MAIL_FROM [ô]Verificar se declarado
m_State = MAIL_RCPTTO

Winsock1.SendData [Ô]RCPT TO:[Ô] & EmailProdutor & vbCrLf
Winsock1.SendData [Ô]RCPT CCO:x.y@xxx.com.br[Ô] & vbCrLf

[ô]Winsock1.SendData [Ô]RCPT TO:x.y@xxx.com.br[Ô] & vbCrLf
DoEvents
Case MAIL_RCPTTO
m_State = MAIL_DATA
Winsock1.SendData [Ô]DATA[Ô] & vbCrLf
DoEvents
Case MAIL_DATA [ô]Verificar se declarado
m_State = MAIL_DOT
Winsock1.SendData [Ô]To:[Ô] & EmailProdutor & vbCrLf
Winsock1.SendData [Ô]Subject: Recusa de Risco Massificados - FC sem Credito[Ô]

Dim strMessage As String
strMessage = sTexto & vbCrLf & vbCrLf & m_strEncodedFiles
m_strEncodedFiles = [Ô][Ô]

Winsock1.SendData strMessage & vbCrLf
strMessage = [Ô][Ô]
Winsock1.SendData [Ô].[Ô] & vbCrLf
[ô]Debug.Print [Ô].[Ô]
DoEvents
.
.
.

Grato,
PASCOAL 03/09/2010 12:45:18
#352117
VE SE AJUDA :

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

AQUI FUNCIONA PERFEITO

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

QQ COISA ME AVISE
Tópico encerrado , respostas não são mais permitidas
Voltar