Cita:
Empezado por maxvera
[..]
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;[FONT=verdana,geneva,lucida,'lucida grande',arial,helvetica,sans-serif]
[..][/font]
|
Te lo confirmo mañana desde el trabajo, porque tengo el código allí, pero tiene algo que ver con:
Cita:
if Mail.Values['to'] <> '' then begin
|
Que será algo así como:
Cita:
if Mail.Values['bcc'] <> '' then begin
|