Ich habe mir gerade mal die INDYs angesehen und das sollte z.B. so funktionieren
[DELPHI]
procedure SendMailSpecial(ASmtp: TIdSMTP; AMsg: TIdMessage);
var
LRecipients: TIdEMailAddressList;
begin
LRecipients := TIdEMailAddressList.Create(Self);
try
LRecipients.AddItems(AMsg.Recipients);
LRecipients.AddItems(AMsg.CCList);
if LRecipients.Count > 0 then
ASmtp.Send(AMsg, LRecipients);
finally
FreeAndNil(LRecipients);
end;
if AMsg.BccList.Count > 0 then
begin
// Bcc-Einträge an
CC anfügen
AMsg.CCList.AddItems(AMsg.BccList);
// Diese Mail nur an die BCC-Empfänger senden
ASmtp.SendMsg(AMsg, AMsg.BccList);
end;
end;
Ich hab das mal probiert.
Ich habe eine Addresse in To und eine in Bcc eingetragen und an Bcc gesendet.
Bcc bekommt nur eine Nachricht, sieht aber den Empfänger in "To" nicht.
Es scheint als ob er dann alle Empfängerlisten ignoriert und die im Command Send übergebenen Adressen als "To" behandelt.
Das wäre zu schön gewesen
[Nachtrag]
Hab grad gesehen, du verwendest beim Bcc - Senden SendMsg...Der 2. Parameter ist bei mir AHeadersOnly: Boolean
Frank