Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];

Вниз

Работа с Outlook   Найти похожие ветки 

 
Kolos_rus   (2003-07-31 12:38) [0]

Как получить список писем в папке ВХОДЯЩИЕ Outlook, найти письмо например по теме и извлечь из него вложение (возможно оно там не одно).


 
Digitman   (2003-07-31 13:37) [1]

какое отношение имеет тема вопроса к разделу "Сети" ?
задавай тот же вопрос в "Общие", ибо Outlook по сабжу вопроса выступает просто как обычный OLE-сервер автоматизации.


 
valwhite   (2003-08-01 06:13) [2]

Что-то примерно такое:

procedure TForm3.Button3Click(Sender: TObject);
var
MyOlApp, InboxEK, EKItem, myFolder, myItem, EkAttachments, MyNameSpace: OleVariant;
i, j, k, m: integer;
AttFileName: string;
// CurNode, FldNode1, FldNode2, ItemNode, AttNode: TTreeNode;
begin
MyOlApp := CreateOLEObject("Outlook.Application");
MyNameSpace := MyOlApp.GetNamespace("MAPI");
try
for i := 1 to MyNameSpace.Folders.Count do begin
Application.ProcessMessages;
myFolder := MyNameSpace.Folders(i);
for j := 1 to myFolder.Folders.Count do begin
myItem := myFolder.Folders(j);
InboxEK := myFolder.Folders(j);
for k := 1 to InboxEK.Items.Count do begin
EKItem := InboxEK.Items(k);
// ItemNode := TreeView1.Items.AddChild(FldNode2,EKItem.Subject+" Размер:"+IntToStr(EKItem.Size));
// ItemNode.ImageIndex := 15;
// ItemNode.SelectedIndex := 15;
for m := 1 to EKItem.Attachments.Count do begin
EkAttachments := EKItem.Attachments(m);
AttFileName := EkAttachments.FileName;
// AttNode := TreeView1.Items.AddChild(ItemNode,"Файл:"+IntToStr(m)+": "+AttFileName);
//******************* Сохранить как файл: ***********************************
//
( "C:\Tmp\Att\"+EkAttachments.FileName)
Что-то примерно такое:

procedure TForm3.Button3Click(Sender: TObject);
var
MyOlApp, InboxEK, EKItem, myFolder, myItem, EkAttachments, MyNameSpace: OleVariant;
i, j, k, m: integer;
AttFileName: string;
// CurNode, FldNode1, FldNode2, ItemNode, AttNode: TTreeNode;
begin
MyOlApp := CreateOLEObject("Outlook.Application");
MyNameSpace := MyOlApp.GetNamespace("MAPI");
try
for i := 1 to MyNameSpace.Folders.Count do begin
Application.ProcessMessages;
myFolder := MyNameSpace.Folders(i);
for j := 1 to myFolder.Folders.Count do begin
myItem := myFolder.Folders(j);
InboxEK := myFolder.Folders(j);
for k := 1 to InboxEK.Items.Count do begin
EKItem := InboxEK.Items(k);
// ItemNode := TreeView1.Items.AddChild(FldNode2,EKItem.Subject+" Размер:"+IntToStr(EKItem.Size));
// ItemNode.ImageIndex := 15;
// ItemNode.SelectedIndex := 15;
for m := 1 to EKItem.Attachments.Count do begin
EkAttachments := EKItem.Attachments(m);
AttFileName := EkAttachments.FileName;
// AttNode := TreeView1.Items.AddChild(ItemNode,"Файл:"+IntToStr(m)+": "+AttFileName);
//******************* Сохранить как файл: ***********************************
//
EkAttachments.SaveAsFile("C:\Tmp\Att\"+EkAttachments.FileName);
//
//****************************************************************************
// AttNode.ImageIndex := 3;
// AttNode.SelectedIndex := 2;
end;
end;
end;
end;
finally
MyNameSpace.LogOff;
myOlApp.quit;
myOlApp := UnAssigned;
end;
end;



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.01 c
1-96241
Nikulin
2003-09-17 14:13
2003.09.29
Помогите разобраться и понять в чем я не прав...


14-96349
Сатир
2003-09-09 17:55
2003.09.29
Помогите найти файлик


1-96173
alexandr1045
2003-09-18 09:39
2003.09.29
Связь кнопки с .exe файлом (продолжение)


1-96283
Sewix
2003-09-13 09:03
2003.09.29
CheckBox прозрачный


3-96095
Tommy
2003-09-09 15:43
2003.09.29
Nujna pomosh s tablicami mdb





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский