Liebe Community,
ich versuche eine Newsletter per Delphi zu verschicken.
Dazu verwende ich Indy 9 und Delphi 7.
Mit folgendem Code erzeuge ich eine Nachricht, belege Absender, Betreff, Body und das Fornat (HTML oder Plain Text) in Abhängigkeit davon, ob eine CheckBox angewählt ist, oder nicht):
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| FNachricht := TIdMessage.Create(nil);
FNachricht.From.Name := tmpEinstellungen.Newsletter_SenderName;
FNachricht.From.Address := tmpEinstellungen.Newsletter_SenderEnail;
FNachricht.Subject := edtBetreff.Text;
if chkHTMLFormat.checked then
FNachricht.ContentType := 'text/HTML' else
FNachricht.ContentType := 'text/plain';
FNachricht.Body.Clear;
FNachricht.Body := mmoBody.Lines; |
Das funktioniert einwandfrei.
Wenn ich an die Mail noch eine Dateianlage (PDF Dokument) hinzufüge:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| if edtDateiAnhang.Text <> '' then
begin
if FileExists(edtDateiAnhang.Text) then
begin
TIdAttachment.Create(FNachricht.MessageParts, edtDateiAnhang.Text);
result := true;
end else
begin
MailLogger('Fehler: die Datei "' + edtDateiAnhang.Text + '" konnte nicht gefunden werden -> Senden abgebrochen...');
result := false;
end;
end; |
Dann verschickt er die Mail als normalen Text.
Ich habe in dem Eingabefeld "edtDateiAnhang" keine Datei drinnen -> Mail wird als HTML gesendet.
Sobald ich in meiner Anwendung nur einen Dateianhang angebe (der Hakeb bei chkHTMLFormat bleibt davon unberührt) wird der selbe Text als normaler Text anstelle als HTML gesnedet.
Entferne ich die Datei wirder, sendet er HTML.
Gleiches, wenn ich ein Bild (JPG) anhänge.
Es bringt auch nichts, wenn ich das Setzen des Mailformates (FNachricht.ContentType := 'text/HTML') nach dem Anfügen des Dateianhangs mache.
Wo liegt das Problen?
Was kann ich machen?
Danke für Eure Hilfe.....
Gruß
OLLI
MIME