mahsara
شنبه 03 تیر 1391, 11:49 صبح
با سلام
من در برنامه ارسال ایمیل فایلی رو به صورت اتچ می فرستم و وقتی در اینباکس چکش میکنم نشونش میده اما عنوان و پسوند فایل نداره. یعنی عنوانش تبدیل میشه به Untitled و وقتی که دانلود میکنمش یک فایل بدون پسوند هست که باید با open with باز بشه!
سرچ کردم بعضیا گفتن مشکل از header ها هست و یا از contentType. نمیدونم همینطوره؟ کسی میتونه کمکی بکنه؟
var
html: TStrings;
htmpart, txtpart: TIdText;
bmppart: TIdAttachment;
filename: string;
begin
filename := ExtractFilePath(Application.ExeName) + 'test.txt';
html := TStringList.Create();
html.Add('<html>');
html.Add('<head>');
html.Add('</head>');
html.Add('<body><h1>Hello</h1>');
html.Add('This is For Test!</body>');
html.Add('</html>');
email.From.Text := edtFrom.text;
email.Recipients.EMailAddresses := edtTo.text;
email.Subject := 'Hello';
htmpart := TIdText.Create(email.MessageParts, html);
htmpart.Body.Text := html.Text;
htmpart.ContentType := 'text/html';
bmppart := TIdAttachmentFile.Create(email.MessageParts, filename);
bmppart.ContentType := 'image/jpeg';
// bmppart.ExtraHeaders.Values['content-id'] := 'test.txt';
bmppart.DisplayName := 'test.txt';
bmppart.FileName := 'test.txt';
// bmppart.ContentID := 'test.txt';
email.ContentType := 'multipart/mixed';
من در برنامه ارسال ایمیل فایلی رو به صورت اتچ می فرستم و وقتی در اینباکس چکش میکنم نشونش میده اما عنوان و پسوند فایل نداره. یعنی عنوانش تبدیل میشه به Untitled و وقتی که دانلود میکنمش یک فایل بدون پسوند هست که باید با open with باز بشه!
سرچ کردم بعضیا گفتن مشکل از header ها هست و یا از contentType. نمیدونم همینطوره؟ کسی میتونه کمکی بکنه؟
var
html: TStrings;
htmpart, txtpart: TIdText;
bmppart: TIdAttachment;
filename: string;
begin
filename := ExtractFilePath(Application.ExeName) + 'test.txt';
html := TStringList.Create();
html.Add('<html>');
html.Add('<head>');
html.Add('</head>');
html.Add('<body><h1>Hello</h1>');
html.Add('This is For Test!</body>');
html.Add('</html>');
email.From.Text := edtFrom.text;
email.Recipients.EMailAddresses := edtTo.text;
email.Subject := 'Hello';
htmpart := TIdText.Create(email.MessageParts, html);
htmpart.Body.Text := html.Text;
htmpart.ContentType := 'text/html';
bmppart := TIdAttachmentFile.Create(email.MessageParts, filename);
bmppart.ContentType := 'image/jpeg';
// bmppart.ExtraHeaders.Values['content-id'] := 'test.txt';
bmppart.DisplayName := 'test.txt';
bmppart.FileName := 'test.txt';
// bmppart.ContentID := 'test.txt';
email.ContentType := 'multipart/mixed';