Почта с вложением

[Ky3Heu,]

Привет всем. Такая проблема нужно раз в минуту отсылать почту с вложенным файлом. 1 раз уходит нормально, а потом приходит письмо с какой-то ахинеей и файла нет..
(Вот ахинея: This is a multi-part message in MIME format --HlMpX1W6JmGzT9fDi8rB4pI=_xGwMdJAH6 Content-Type: application/octet-stream; name="RealTime_28.09.2012.xml" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="RealTime_28.09.2012.xml" PD94bWwgdmVyc2lvbj0iMS4wIj8+DQo8RGF 0YVNldD4NCgk8eHM6c2NoZW1hIGlkPSJOZX dEYXRh U2V0IiB4bWxucz0iIiB4bWxuczp4cz0iaHR 0cDovL3d3dy53My5vcmcvMjAwMS9YTUxTY2 hlbWEi )
а вот код:

procedure TForm1.Timer1Timer(Sender: TObject);
var dd :String;
begin

dd := DateToStr(Date);
    with IdSMTP1 do
    begin
    Host:='мой хост.ru'; //Сервер Exchange
    Port:=25; 
    Username:='мой логин'; 
    Password:='мой пароль';
    end;

    with IdMessage1 do
    begin
    From.Text:='отправитель@адрес.ru';
    Recipients.EMailAddresses:='получатель@адрес.ru';
    Subject:='Realtime';
    ContentType:='text/html';
    charset:='windows-1251';
    ContentTransferEncoding:='8bit';
    TIdAttachmentFile.Create(IdMessage1.MessageParts,'h:\ASUDocs\MailReports\RealTime_' + dd + '.xml');
    end;
    if (not IdSMTP1.Connected)  then
    IdSMTP1.Connect;
    try
    IdSMTP1.Send(IdMessage1);
    finally
    IdSMTP1.Disconnect();
    end;


end;