Investment
04-12-2007, 13:18:24
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"
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;
¿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"
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;