PDA

Ver la Versión Completa : Enviar un correo rellenando el Campo CC


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;

Investment
04-12-2007, 13:38:15
Solucionado....

//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:

BlueSteel
04-12-2007, 14:23:15
Hola Investment

solo queria agregar que en este hilo (http://www.clubdelphi.com/foros/showthread.php?t=50155)tambien esta tratado el tema de otra forma

ASAPLTDA
11-12-2007, 15:56:51
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