AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Hinweistext in EMail unterbringen ohne Body-Patchen
Thema durchsuchen
Ansicht
Themen-Optionen

Hinweistext in EMail unterbringen ohne Body-Patchen

Ein Thema von dataspider · begonnen am 2. Aug 2019 · letzter Beitrag vom 2. Aug 2019
Antwort Antwort
Benutzerbild von Moombas
Moombas

Registriert seit: 22. Mär 2017
Ort: bei Flensburg
525 Beiträge
 
FreePascal / Lazarus
 
#1

AW: Hinweistext in EMail unterbringen ohne Body-Patchen

  Alt 2. Aug 2019, 08:04
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
Der Weg ist das Ziel aber man sollte auf dem Weg niemals das Ziel aus den Augen verlieren.
  Mit Zitat antworten Zitat
Benutzerbild von dummzeuch
dummzeuch

Registriert seit: 11. Aug 2012
Ort: Essen
1.734 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: Hinweistext in EMail unterbringen ohne Body-Patchen

  Alt 2. Aug 2019, 08:11
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.
Thomas Mueller
  Mit Zitat antworten Zitat
Schokohase
(Gast)

n/a Beiträge
 
#3

AW: Hinweistext in EMail unterbringen ohne Body-Patchen

  Alt 2. Aug 2019, 08:42
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: a@test.de
Cc: b@test.de
Bcc: c@test.de
Subject: Hello
bei a@test.de und b@test.de wie folgt ankommen
Code:
To: a@test.de
Cc: b@test.de
Subject: Hello
und bei c@test.de so
Code:
To: a@test.de
Cc: b@test.de, c@test.de
Subject: Hello

Geändert von Schokohase ( 2. Aug 2019 um 11:59 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.361 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Hinweistext in EMail unterbringen ohne Body-Patchen

  Alt 2. Aug 2019, 11:02
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
Frank Reim

Geändert von dataspider ( 2. Aug 2019 um 11:10 Uhr)
  Mit Zitat antworten Zitat
Schokohase
(Gast)

n/a Beiträge
 
#5

AW: Hinweistext in EMail unterbringen ohne Body-Patchen

  Alt 2. Aug 2019, 12:03
[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.
  Mit Zitat antworten Zitat
Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.361 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Hinweistext in EMail unterbringen ohne Body-Patchen

  Alt 2. Aug 2019, 12:43
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
Frank Reim
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:38 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz