Guten Tag Delphianer,
ich versende mit
Indy 10 Email. Dies klappt auch alles ganz gut.
Eigenartig ist aber nur eins, wenn ich eine Anlage, egal von welchem Typ die Anlage ist,
beifüge, wird immer eine Anlage "Unbekannte Anlage 00224.htm" mit beigefügt.
Weiss jemand wie ich dies Verhalten unterbinden kann??
Folgender Quelltext:
.....
Delphi-Quellcode:
with TIDText.create(idmsg1.MessageParts,
nil)
do
begin
ContentType := '
text/plain';
Body.Text := redt1.Text;
end;
with TIDText.create(idmsg1.MessageParts,
nil)
do
begin
ContentType := '
text/html';
Body.Text := RtfToHtml('
MetaHead', redt1);
//Benötigte Funktion um RTF zu HTML umzuwandeln
end;
idmsg1.ContentType := '
multipart/mixed';
idmsg1.CharSet := '
ISO-8859-1';
idmsg1.From.Text := edtAbsender.Text;
idmsg1.Sender.Text := edtAbsender.Text;
idmsg1.Recipients.EMailAddresses := edtMailAdresse.Text;
idmsg1.Subject := edtBetreff.Text;
if advflnmdtAnhang.Text <> '
'
then
TIdAttachmentFile.Create(idmsg1.MessageParts, advflnmdtAnhang.Text);
try
idsmtp1.Send(idmsg1);
idsmtp1.Disconnect(True);
except
on E:SysUtils.Exception
do
MessageDlg('
Fehler beim Senden: ' + E.
Message, mtError, [mbOK], 0);
end;
--------------------
Es wird keine Fehlermeldung ausgegeben.
Mit Gruß
HPB