Envio de Email

[pradilsoncarlos]

Bom Dia. Esto fazendo envio de email de um documento fiscal e faço da seguinte forma:

      if Trim(TxtEmailNovo.Text) <> ''  then
         Begin
            With PainelMDFe Do
               Begin
                  ACBrMDFe1.Manifestos.Items[0].EnviarEmail(TxtEmailNovo.Text,    // e-mail do destinatário
                                                            BDados.NfeEmpresa.FieldByName('EMAILASSUNTO').AsString,// Assunto
                                                            mmEmailMsg.Lines,// Mensagem
                                                            True,            // Enviar em PDF
                                                            nil,             // sCC
                                                            nil)             // Anexos
               End;
         End;

Como faço para deixar opção para enviar CC e CCo ?

Obrigado.

[Daniel Simoes]

Observe no seu código que você sinalizou um parâmetro como sCC... ou seja, basta passar um TStringList para ele...

Para CCO você teria que usar diretamente o ACBrMail e compor o email 

[pradilsoncarlos]

1 hora atrás, Daniel Simoes disse:

Observe no seu código que você sinalizou um parâmetro como sCC... ou seja, basta passar um TStringList para ele...

Para CCO voxe teria que usar diretamente o ACBrMail e compor o email 

Vdd Né...

Como diria um amigo "USE A FORÇA, LEIA OS FONTES", kkkkkkkk

Obrigado pela informação.

Problema resolvido.

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.