with IdMsgSend do
begin
if fileExists(fn) then
body := ToGB(fn)
else
begin
showmessage('文件"' + fn + '"不存在,请稍候再发送此邮件!');
exit;
end;
FileExt := AnsiUpperCase(ExtractFileExt(fn));
if (FileExt = '.HTM') or (FileExt = '.HTML') then
ContentType := 'text/html';
From.Text := UserEmail;
ReplyTo.EMailAddresses := UserEmail;