Enviar Email con MAPI y los campos cc y bcc (o cco)

[Durbed]

Gracias Dec, pero esa no es la solución, lo que tu propones solo es la llamada a la funcion, pero lo que hay que modificar aparte de la llamada es la propia función.

Sospecho que el tema va mas por aqui, pero no he conseguido nada.

Código Delphi [-]
  if Mail.Values['to'] <> '' then
    begin
      Receip.ulReserved := 0;
      Receip.ulRecipClass := MAPI_TO;
      Receip.lpszName := StrNew(PChar(Mail.Values['to']));
      Receip.lpszAddress := StrNew(PChar('SMTP:' + Mail.Values['to']));
      Receip.ulEIDSize := 0;
      MapiMessage.nRecipCount := 1;
      MapiMessage.lpRecips := @Receip;
    end;

//Introducir las direcciones al BCC
  if Mail.Values['bcc'] <> '' then
    begin
      Receip.ulReserved := 0;
      Receip.ulRecipClass := MAPI_TO;
      Receip.lpszName := StrNew(PChar(Mail.Values['bcc']));
      Receip.lpszAddress := StrNew(PChar('SMTP:' + Mail.Values['bcc']));
      Receip.ulEIDSize := 0;
      MapiMessage.nRecipCount := 1;
      MapiMessage.lpRecips := @Receip;
    end;

[dec]

Hola,

Sí; llevas razón. Lo que ocurrió fue que ví tan claro (ah, qué errado estaba) que ni siquiera me paré en la implementación de la función...

De todos modos investigaremos un poco a ver qué tal...

[dec]

Hola,

Prueba añadiendo el siguiente código fuente luego del bloque:

Código Delphi [-]
if Mail.Values['bcc'] <> '' then
begin
  {...}
end;

Código Delphi [-]
    if Mail.Values['bcc'] <> '' then
    begin
      Receip.ulReserved := 0;
      Receip.ulRecipClass := MAPI_BCC;
      Receip.lpszName := StrNew(PChar(Mail.Values['bcc']));
      Receip.lpszAddress := StrNew(PChar('SMTP:' + Mail.Values['bcc']));
      Receip.ulEIDSize := 0;
      MapiMessage.nRecipCount := 1;
      MapiMessage.lpRecips := @Receip;
    end;

Básicamente se trataría de cambiar la constante "MAPI_TO" por la constante "MAPI_BCC"... y recoger el "valor" adecuado en este caso. Prueba a ver qué tal.

Y si funcionara... ya puestos podrías ampliar un tanto la función (si te interesara) de manera que incluyeras el remitente del correo... a lo menos es lo que entiendo yo por "Indicates the original sender of the message", que es la descripción de la constante "MAPI_ORIG" tal como se lee en esta página.

A lo mejor, en este último caso, bastaría con cambiar el "bcc" del "valor" por "orig"... ya dirás qué tal.

[Durbed]

La combinacion de los dos no me ha funcionado, pero como en realidad tengo que meter todas las direcciones en el bcc, he cambiado el to, por el bcc y funciona perfectamente.

Muchas gracias. Muy buena la pagina esa

PD: Del poner el remitente del correo se encarga tu cliente de correo, pues la función lo que hace es mandar el email atraves del cliente que tienes por defecto. Esta probado con Outlook y Mozilla Thunderbird y funciona, te pone el remitente de la cuenta de SMTP que tengas puesta por defecto para el correo saliente.

[dec]

Hola,

Un momento, que creo que nos hemos hecho un lío con los mensajes... y es que he publicado estos míos últimos un tanto rápido... mea culpa, pues. Digo si has probado con el código de más arriba, esto es, si probaste a utilizar la constante "MAPI_BCC", en lugar de "MAPI_TO",... ¿sabes a qué me refiero no? A incluir tanto el "bloque" "TO" como el bloque "BCC"... ¿porqué no iba a funcionar?

Tal vez el tema pase por usar sendas variables "Receip" (distintas) o algo así... ¡no te rindas!