PDA

Ver la Versión Completa : Problema con Outlook Ofice 2003 y MailItem


fredo
29-01-2008, 13:39:02
Bueno tengo un server de outlook, en el cual intercepto los correos salientes, para agregarles una direccion de cc, pero al ingresarles la direccion del cc outlook lo pone entre comillas y le coloca el @ de la direccion principal, impidiendo que el correo salga con la direccion que correspnda.

ejemplo


MailItem.to_:='clubdelphi@yahoo.es';
MailItem.cc:='mi_correo@clubdelphi.com';


el resultado de esto es el "to" queda perfecto... el cc queda " 'mi_correo@clubdelphi.com'@yahoo.com " con comillas simples incluidas....... parece que el problema esta en la clase "MailItem", pero aun no estoy seguro....

Si alguien save algo, lo que sea se agradecera.

ContraVeneno
29-01-2008, 15:59:08
MailItem.to_:='clubdelphi@yahoo.es'+';'+'mi_correo@clubdelphi.com';

//MailItem.to_:='clubdelphi@yahoo.es;mi_correo@clubdelphi.com';

CC := '';
If trim(CorreoAlterno) = '' then
CC := ';'+CorreoAlterno;

MailItem.To_ := CorreoDestino+CC;





Edito:
Acabo de probar:

MailItem.to_:='clubdelphi@yahoo.es';
MailItem.cc:='mi_correo@clubdelphi.com';


y me funcionó perfectamente... :confused::confused:

fredo
29-01-2008, 16:14:04
al correo le adjunta un par de comillas simples, por eso no llegan los cc, el tema es como saco las comillas, en outlook y en el programa se ve bien pero en el destnatario va con ese problema, te adjunto el codigo de prueba....


Slds y gracias


procedure TForm1.OutlookApplication1ItemSend(ASender: TObject;
const Item: IDispatch; var Cancel: WordBool);
var MI: MailItem;
begin
Memo1.Lines.Add('correo enviado');
MI:=Item as MailItem;
Memo2.Lines.Text:=MI.Body;
MI.Body:=MI.Body +'correcto se modifica';
MI.Subject:=datetimetostr(now);
MI.CC:='sigisfredo.belmar@caveit.cl';
// MI.PrintOut;
Edit1.Text:=MI.To_;
Edit2.Text:=MI.CC;
end;


Sent: Tuesday, January 29, 2008 4:10:37 PM
To: haohmarux@hotmail.com
Cc: 'sigisfredo.belmar@caveit.cl'

Test





Atte Fredo


correcto se modifica

esto es lo que llega al correo que n se modifica, notense las comillas en el cc....ya actualica con sp3 el office....

ContraVeneno
29-01-2008, 16:41:03
pues que raro... sí, a mi también me agrega los apóstrofes, pero igual llega bien el correo...

No se, algo raro hay por algún lado, solo te puedo decir que a mi me ha funcionado perfectamente...

fredo
29-01-2008, 16:54:38
pues que raro... sí, a mi también me agrega los apóstrofes, pero igual llega bien el correo...

No se, algo raro hay por algún lado, solo te puedo decir que a mi me ha funcionado perfectamente...

le havia hechado la culpa al servidor de correo, pero use otro, y me paso lo mismo, no llega al cc a destino...... :confused:
y si le agrego un bcc es lo mismo..., no procese el que modifique.....