Ver Mensaje Individual
  #1  
Antiguo 04-12-2007
Avatar de Investment
Investment Investment is offline
Miembro
 
Registrado: may 2003
Posts: 378
Reputación: 21
Investment Va por buen camino
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;
__________________
Saludos,
Peter Investment

Última edición por Investment fecha: 04-12-2007 a las 13:21:15.
Responder Con Cita