請教各位大大，小弟近日在用DELPHI 2009 撰寫一支自動MAIL發送程式，想用 IDSMTP  自動寄發附件，但寄出去後附件名稱都變成 ATxxxxx.dat，
請教各位大大有無方法可解呢？我希望我寄出的檔案名稱跟對方收到的檔案名稱一模一樣（不限檔案類型而且不限寄發幾個附件檔案)。

------
Duke

建议使用XE以上，支持UNICODE的来写

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

我这边没有问题。你是怎么做的？能不能贴出 CODE 来？
===================引 用 duke.lai 文 章===================
請教各位大大，小弟近日在用DELPHI 2009 撰寫一支自動MAIL發送程式，想用 IDSMTP 自動寄發附件，但寄出去後附件名稱都變成 ATxxxxx.dat，
請教各位大大有無方法可解呢？我希望我寄出的檔案名稱跟對方收到的檔案名稱一模一樣（不限檔案類型而且不限寄發幾個附件檔案)。

delphi 2009用的應該是indy 10

試試看下面的code

[code delphi]
uses IdAttachmentFile;
PROCEDURE SENDMAIL(mFROM:STRING;mTO:STRING;mTITLE:STRING;mBODY:TSTRINGLIST;mATT_FILE:STRING='');
VAR MAIL_HOST:STRING;
MSG:TIdMessage;
SMTP:TIdSMTP;
begin

MAIL_HOST:='xxx.xxx.xxx';
MSG:=TIdMessage.Create(NIL);
SMTP:=TIdSMTP.Create(NIL);
if mbody<>nil then
begin
MSG.Body.Assign(mBODY);
end;
msg.From.Text:=mFROM; //從那邊來的
msg.Recipients.EMailAddresses:=mTO; //要給誰
msg.Subject:=mTITLE; //信件抬頭
IF mATT_FILE<>'' THEN //如果有設定要附寄的檔案，就產生要送的檔案
BEGIN
TIdAttachmentFile.Create(msg.MessageParts,mATT_FILE); //indy 10時使用這行
END;
smtp.Host:=MAIL_HOST; //設定SMTP SERVER
smtp.Connect; //設定SMTP 連結
try
smtp.Send(msg); //設定SMTP 傳送
finally
smtp.Disconnect;
SMTP.Free;
end;
END;

[/code]

===================引 用 duke.lai 文 章===================
請教各位大大，小弟近日在用DELPHI 2009 撰寫一支自動MAIL發送程式，想用 IDSMTP 自動寄發附件，但寄出去後附件名稱都變成 ATxxxxx.dat，
請教各位大大有無方法可解呢？我希望我寄出的檔案名稱跟對方收到的檔案名稱一模一樣（不限檔案類型而且不限寄發幾個附件檔案)。