Array
(
)

Copia Oculta - Email IDSmtp

Tremonti
   - 15 fev 2006

Galera, como envio e-mail com cópia oculta?

estou com o seguinte codigo

o metodo ReplyTo nao funciona, para enviar copia oculta...

Aguardo Resposta

with IdSMTP1 do
Begin
//Nome do host
// Host:= edit1.Text;
//Nome do usuário, normalmente o e-mail
// Username:= edit2.Text;
//Conecta com o servidor smtp
Connect();

End; //with

with IdMessage1 do
Begin
//O seu endereço de e-mail
From.Address := ´endereco´;
From.Name := ´Nome´;
//Aqui vai o endereço de e-mail para o qual você quer mandar o e-mail
Recipients.EMailAddresses := ´Email´;
ReplyTo.EMailAddresses := ´Email secreto´;

//O assunto da mensagem
Subject := ´Teste´;
//A mensagem que você quer mandar
Body.Text := Memo1.Text;
MessageParts.Clear;
End; //with
//anexar
TIdAttachment.Create(IdMessage1.MessageParts , Edit1.Text);
IdSMTP1.Send(IdMessage1) ;
IdSMTP1.Disconnect;


Massuda
   - 15 fev 2006

Em inglês, ´cópia oculta´ é ´blind carbon copy´ ou simplesmente BCC...#Código

...
with IdMessage1 do begin
...
//Aqui vai o endereço de e-mail para o qual você quer mandar o e-mail
Recipients.EMailAddresses := ´Email´;

// emails que vão receber cópia normal
CcList.EMailAddresses := ´Email´;

// emails que vão receber cópia oculta
BccList.EMailAddresses := ´Email´;
...
...com relação ao ReplyTo, ele serve para indicar qual o email que deve receber respostas à mensagem (não precisa ser igual ao email do remetente).