Hallo in die Runde,
kann sich bitte mal jemand meinen Quelltext anschauen. Ich stehe völlig auf der Leitung. Ist bestimmt wieder so 'ne Unicodegeschichte. Prog war in Delphi 2007 geschrieben und ich wollte es auf Delphi 2009 umschreiben. Nun scheitere ich daran, dass das Attachment nur nur *.att heißt beim Empfänger.
Delphi-Quellcode:
var
att:TIDAttachmentFile;
begin
TRY
screen.cursor:=crhourglass;
eMail.CCList.EMailAddresses := '
blah blah';
SMTP.Host := '
blah blah';
SMTP.UserName := '
blah blah';
SMTP.Password := '
blah blah';
SMTP.Port := 25;
// SMTP.AuthType := atDefault; /*was kommt anstelle dessen hin?*/
SMTP.Connect;
while not eof
do begin
email.MessageParts.Clear;
email.ContentTransferEncoding := '
udf-8';
with TIdText.Create(Email.MessageParts,
nil)
do
begin
ContentType := '
text/plain';
CharSet := '
ISO-8859-1';
ContentTransfer := '
base64';
body.Text := '
blah blah'
end;
// Anfang EMail erzeugen
eMail.From.Text := '
blah';
eMail.Recipients.EMailAddresses := '
blah';
eMail.Subject := '
blah';
email.ContentType := '
multipart/related; type="text/plain"';
email.CharSet :='
ISO-8859-1';
//Attachment ranbauen
att := TIdAttachmentFile.Create(Email.MessageParts, '
c:\test.pdf');
//Prüfen ob Attachment da
if FileExists('
c:\test.pdf')
then
SMTP.Send(eMail);
SMTP.Disconnect;
end;
//with helpi do begin
screen.Cursor :=crdefault;
except
screen.Cursor :=crdefault;
END;
end;
Der gleiche Quelltext hat sonst ohne Probleme funktioniert.
Hat jemand eine Idee?
Danke,
Romy