Foros Club Delphi - Enviar un correo rellenando el Campo CC

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)

- - Enviar un correo rellenando el Campo CC (https://www.clubdelphi.com/foros/showthread.php?t=50997)

Enviar un correo rellenando el Campo CC

Estoy tratando de enviar un correo y no se como rellenar el campo Con Copia.
¿Alguna idea?
Para ponerlo en el campo "para" basta con la instruccion
myItem.To:= USUARIO_ACTUAL + '@MICORREO.com';
pero ¿como se referencia al campo "Con Copia"

Código:

procedure TformMultas.btMailClick(Sender: TObject);

const   olMailItem = 0;   olByValue = 1;

var   myOlApp, myItem, myRecipient: OleVariant;

begin   //ABIR CORREO PARA ENVIAR DATOS EXPEDIENTE:

  myOlApp := CreateOLEObject('Outlook.Application');

  myItem := myOlApp.CreateItem(olMailItem);



  //Escribo el asunto del mensaje:

  myItem.Subject := 'Identificación conductor vehículo ';



  //TEXTO DEL MENSAJE:

  myItem.Body := 'bla,bla,bla,bla';



  //PONE a quien enviarlo en el campo "para"

  myItem.To:= USUARIO_ACTUAL + '@MICORREO.com';



//  myItem.Send; // lo enviaria

  myItem.Display;   

  myOlApp := VarNull;   

  myItem := VarNull;   

  myRecipient := VarNull; 

end;

Solucionado....

Código:

  //PARA

  myItem.To:= USUARIO_ACTUAL + '@MICORREO.com';



  //CON COPIA

  myItem.CC:= USUARIO_ACTUAL + '@MICORREO.com';



  //CON COPIA OCULTA

  myItem.BCC:= USUARIO_ACTUAL + '@MICORREO.com';

Era mucho mas facil de lo que me esperaba.:cool:

Hola Investment

solo queria agregar que en este hilo tambien esta tratado el tema de otra forma

Envio Mensajes masivos

Hola Amigos del Foro
En probado el codigo puesto en el foro y efectivamente funciona.
Pero requiero enviar datos masivos y el sistema outlook me solicita que autorice el envio del mensaje, por lo tanto para envios masivos no seria adecuado. Me podrian indicar como evito o configuro el outlook para que no requiera de esta confirmacion ?

Gracias