Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Извлечение вложений из email Добавлено: 19.06.03 16:51  

Автор вопроса:  Alexndr1 | Web-сайт: avpsun.mail333.com

Как програмно извлечь вложения (желательно из Outlook Express)?

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Vach



ICQ: 24499605 

Вопросов: 0
Ответов: 5
  Web-сайт: False
 Профиль | | #1 		Добавлено: 26.09.03 00:13

Пример для Outlook - полная версия. Я думаю в Express все похоже
Не забуть про references >> Microsoft Outlook 10.0 Object Library
F5 >> откроется Outloo, выдели нужные маилы и жми на Command1
Все упадет на App.Path

Public olApp As Outlook.Applicatio
Public olNs As NameSpace
Public mi As MailItem

Private Sub Form_Load()
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI"
olApp.Explorers.Add(olNs.GetDefaultFolder(olFolderInbox), _
    olFolderDisplayNormal).Activate
End Sub

Private Sub Command1_Click()
    Dim nF1, nF2 As Integer
    For nF1 = 1 To olApp.Explorers.Item(1).Selection.Count
        Set mi = olApp.Explorers.Item(1).Selection.Item(nF1)
            For nF2 = 1 To mi.Attachments.Count
                sStr = App.Path & "\" & mi.Attachments.Item(nF2).FileName
                mi.Attachments.Item(nF2).SaveAsFile sStr
            Next nF2
        Next nF1
End Sub

Вроде так.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам