ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как считать вхождения из email (MS Outlook) и записать его на диск.
2 сообщений из 2, страница 1 из 1
Как считать вхождения из email (MS Outlook) и записать его на диск.
    #32845089
Vlad_KB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vlad_KB
Гость
Помогите пожалуйста дописать код. Как записать вхождение на диск ?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
#Define olFolderInbox  6 
oOutLook = CreateObject("OutLook.Application")
oNameSpace = oOutLook.GetNameSpace("MAPI")
loInbox	      = loNameSpace.GetDefaultFolder(inbox)
loInbox	      = loNameSpace.GetDefaultFolder(olFolderInbox)
nMessageCount = loInbox.Items.Count
FOR nLoop =  1  TO nMessageCount
	Subject=loInbox.Items[nLoop].Subject
	Body=loInbox.Items[nLoop].Body
	...
	File_= loInbox.Items[ 1 ].Attachments[ 1 ]
ENDFOR
...
Рейтинг: 0 / 0
26.12.2004, 12:13
| Ответить | Цитировать | Написать  
Как считать вхождения из email (MS Outlook) и записать его на диск.
    #32854875
Jurisfox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jurisfox
Гость
Так правильно...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
#Define olFolderInbox  6 
Local lcFilename,lcPath
lcPath='c:\saved_mail_attachments\'
If  !Directory('c:\saved_mail_attachments')
    Md 'c:\saved_mail_attachments' 
Endif
oOutLookObject = Createobject('Outlook.Application')
olNameSpace = oOutLookObject.GetNameSpace('MAPI')
myAtts=olNameSpace.GetDefaultFolder(olFolderInbox).Items
For Each loItem In myAtts
    If loItem.attachments.Count > 0  
        For i =  1  To loItem.attachments.Count
            lcFilename=''
            lcFilename = loItem.attachments.Item(i).filename
            lcFilename = Alltrim(lcPath)+lcFilename
            loItem.attachments.Item(i).SaveAsFile(lcFilename)
           *loItem.Delete() 
        Next
    Endif
Next
...
Рейтинг: 0 / 0
05.01.2005, 23:58
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как считать вхождения из email (MS Outlook) и записать его на диск.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]