Hi Leute,
habe ein Problem mit einem PDf Anhang an einer Mail mittels
INDY 10.
Die Mail wird ordnungsgemäß versendet, der Anhang ist auch dabei, aber wird umbenannt z.B. zu: "Unbenannte Anlage 00189.dat" (Outlook 2010).
Wenn ich die Datei als 'xxx.pdf' speichere, kann ich die PDF Datei auch öffnen und ist auch ok. Woran kann das liegen, dass die Datei einfach umbenannt wird?
hier mal ein das Wichtigste:
...
var
idSMTP : TidSMTP;
idText : TidText;
EMessage : TidMessage;
Attachment : TIdAttachmentFile;
begin
Attachment := nil;
idSMTP := TidSMTP.Create(nil);
EMessage := TidMessage.Create(nil);
with EMessage do
begin
CharSet := 'iso-8859-1';
From.Address := '...';
From.Name := '...';
Recipients.EMailAddresses := '...';
CCList.EMailAddresses := '...';
Subject := 'Test';
idText := TidText.Create(MessageParts, nil);
IdText.CharSet := 'iso-8859-1';
idText.ContentType := 'text/plain';
idText.ContentTransfer := 'BASE64';
idText.ContentDisposition := 'inline';
idText.Body.Text := 'Text ....';
end;
if FileExists(FileToSend) then
begin
if not assigned(Attachment) then
begin
Attachment := TidAttachmentFile.Create(EMessage.MessageParts, FileToSend);
Attachment.FileName := FileToSend;
Attachment.ContentType := 'application/pdf';
end;
end;
idSMTP.Host := xxx;
idSMTP.Username := xxx;
idSMTP.Password := xxx;
try
idSMTP.Connect();
idSMTP.Send(EMessage);
idSMTP.Disconnect;
idSMTP.Free;
idText.Free;
if Assigned(Attachment) then Attachment.Free;
EMessage.Free;
except on E :
Exception do
begin
if idSMTP.connected then try idSMTP.disconnect; except end;
....
end;
end;
....