Hinweistext in EMail unterbringen ohne Body-Patchen

[Moombas]

Ich glaube er möchte:
- das Empfänger die in An bzw. CC stehen sich sehen können aber nicht die in BCC
- das Empfänger in BCC alle Empfänger sehen können

[dummzeuch]

Man könnte einen zusätzlichen Header einfügen und die BCC-Emfänger könnten ihren E-Mail-Client so konfigurieren, dass er diesen Header anzeigt (Thunderbird kann das). Allerdings würde dieser Header im Gegensatz zu BCC nicht automatisch entfernt, so dass er ggf. bei den Empfängern in TO und CC auch ankommen würde. (Aber das gilt natürlich auch für Änderungen im Text.)

Wie das mit Indy geht, kann ich allerdings nicht sagen, das habe ich zum Versand von E-Mails nie benutzt.

[Schokohase]

Ich habe mir gerade mal die INDYs angesehen und das sollte z.B. so funktionieren

Delphi-Quellcode:

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.Send(AMsg, AMsg.BccList);
  end;
end;

Als Resultat würde folgende Mail

Code:

To: [e-mail]
Cc: [e-mail]
Bcc: [e-mail]
Subject: Hello

bei [e-mail] und [e-mail] wie folgt ankommen

Code:

To: [e-mail]
Cc: [e-mail]
Subject: Hello

und bei [e-mail] so

Code:

To: [e-mail]
Cc: [e-mail], [e-mail]
Subject: Hello

[dataspider]

Zitat von Schokohase:

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

[Schokohase]

Zitat von dataspider:

[Nachtrag]
Hab grad gesehen, du verwendest beim Bcc - Senden SendMsg...Der 2. Parameter ist bei mir AHeadersOnly: Boolean

Das war nicht korrekt und habe ich im Beitrag jetzt auch korrigiert.

Es muss natürlich lauten ASmtp.Send(AMsg, AMsg.BccList); .

Ich habe es gerade selber getestet und es funktioniert exakt wie von mir beschrieben.

[dataspider]

Zitat von Schokohase:

Ich habe es gerade selber getestet und es funktioniert exakt wie von mir beschrieben.

Wow, jetzt bin ich begeistert!
Ich geh erst mal in den Garten - ein paar Freudenhüpfer machen...

Vielen Dank!

Frank Reim