Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как считать вхождения из email (MS Outlook) и записать его на диск. / 2 сообщений из 2, страница 1 из 1
26.12.2004, 12:13
    #32845089
Vlad_KB
Vlad_KB
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как считать вхождения из email (MS Outlook) и записать его на диск.
Помогите пожалуйста дописать код. Как записать вхождение на диск ?

Код: 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
| Ответить | Цитировать | Написать  
05.01.2005, 23:58
    #32854875
Jurisfox
Jurisfox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как считать вхождения из email (MS Outlook) и записать его на диск.
Так правильно...

Код: 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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как считать вхождения из email (MS Outlook) и записать его на диск. / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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