нужно вытащить файлы из Outlook

[svetlanalanya]

нужно вытащить файлы из Outlook, переделать их в dbf формат и положить в нужное место
Прога которая переделывает файлы из excel в dbf написанна на delphi, теперь нужно чтобы она сама брала файлы из outlook и потом их в dbf формате кидала в нужное место.
Подскажите, пожалуйста, как это можно осуществить и с помощью чего.
Заранее спасибо.

[Квэнди]

Outlook не является хранилищем данных (файлов)

[svetan]

файлы которые нужно вытащить в формате *.dbf и excel

[Квэнди]

еще раз повторяю
Outlook не является хранилищем файлов. ставьте вопрос правильно и подробно

[svetan]

Приходят письма с приклепленными файлами по Outlook, из этих писем нужно вытащить файлы в формате excel и *.dbf. И положить в нужное место.

Подскажите, пожалуйста, как это можно осуществить и с помощью чего.
Заранее спасибо.

[Квэнди]

Небезызвестный код:

 uses
   ComObj;

 {...}

 function ManageAttachments(SendersName, AttachmentPath: string;
   MailDelete: Boolean): Boolean;
 var
   oApp: Variant;
   oNs: Variant;
   oFolder: Variant;
   oMsg: Variant;
   AtC: Variant;
   AttFilename: Variant;
   FileName: string;
   CheckSender: string;
   Counter: integer;
   MailCounter: integer;
 begin
   try
     oApp := CreateOLEObject('outlook.application');
     try
       oNs         := oApp.GetNamespace('MAPI');
       ofolder     := oNS.GetDefaultFolder(6); // FolderTypeEnum  (olFolderInbox) 
      MailCounter := 1;
       // If there is any email in the Inbox 
      if ofolder.Items.Count > 0 then
       begin
         repeat
           // Get the first Email 
          oMsg := ofolder.Items(MailCounter);
           // Check the name or Email 
          //   Use CheckSender := oMsg.subject to search on Subject; 
          CheckSender := oMsg.sendername;
           if CheckSender = SendersName then
           //  Remove this line to backup all your attachments. 
          begin
             // Check how many attachments 
            atc := oMsg.Attachments.Count;
             if atc > 0 then
             begin
               // Get all the attachments and save them 
              for Counter := 1 to atc do
               begin
                 AttFilename := oMsg.Attachments.item(Counter).FileName;
                 //filename := IncludeTrailingBackslash(AttachmentPath)+AttFilename; {Use this line for D5)} 
                FileName := AttachmentPath + '\' + AttFilename;
                 oMsg.Attachments.Item(Counter).SaveAsFile(FileName);
               end;
             end;
             if MailDelete then
             begin
               oMsg.Delete;
               // There's 1 Email less, so MailCounter - 1 
              Dec(MailCounter);
             end;
           end;
           // Get the next Email 
          Inc(MailCounter);
           // Do until there is no more Email to check 
        until MailCounter > ofolder.Items.Count;
       end;
     finally
       oApp.quit;
     end;
   except
     Result := False;
     Exit;
   end;
   Result := True;
 end;


 procedure TForm1.Button1Click(Sender: TObject);
 begin
   // ManageAttachments(Email or name, Backup directory, MailDelete yes or no) 
  ManageAttachments('info@cleys.com', 'F:\test', False);
 end;

трансормируйте его под себя и все

[Астраханка]

Добрый день. У меня Microsoft Outlook хулиганит. Майл на него выгружает заявки от клиентов в формате dbf. Так вот Microsoft Outlook отрезает последнюю позицию в заказе. Только с одного адреса и не во всех заявках, где-то в половине случаев.
Ребята, подскажите, что делать. Я не программист, но наш системный администратор тоже не понимает, что происходит.

[Человек_Борща]

Проблема где-то в генерации таблиц а не в почтовом клиенте. Они ничего не знают про dbf формат. Если бы была порча данных, вы бы эти файлы вообще не открыли.