Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)
-   -   Problema con Outlook Ofice 2003 y MailItem (https://www.clubdelphi.com/foros/showthread.php?t=52711)

fredo 29-01-2008 13:39:02

Problema con Outlook Ofice 2003 y MailItem
 
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

Código Delphi [-]
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

Código Delphi [-]
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:
Código Delphi [-]
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


Código Delphi [-]
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;


Cita:

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

Cita:

Empezado por ContraVeneno (Mensaje 261847)
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.....


La franja horaria es GMT +2. Ahora son las 06:22:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi