MS OutLook - Получение списка сообщений папки "Входящие" (или другой)
Просто как пример работы с приложением ....
Private Function esGetEmailMessages(Optional FolderID As Integer = 6) As String
Dim OutLookApp As New Outlook.Application
Dim OutLookNameSpace As Outlook.NameSpace
Dim MesItems As Outlook.Items
Dim MesItem As Outlook.MailItem
Dim MesEntryID As String
Dim MesSubject As String
Dim MesFrom As String
Dim MesReceived As Date 'Когда Отправлено
On Error GoTo esGetEmailMessages_Err
Set OutLookApp = New Outlook.Application
Set OutLookNameSpace = OutLookApp.GetNamespace("MAPI")
Set MesItems = OutLookNameSpace.GetDefaultFolder(FolderID).Items
For Each MesItem In MesItems
With MesItem
MesEntryID = .EntryID
MesSubject = .Subject
MesFrom = .SenderName
MesReceived = CDate(.ReceivedTime)
esGetEmailMessages = esGetEmailMessages & _
MesEntryID & ";" & _
MesSubject & ";" & _
MesFrom & ";" & _
MesReceived & ";"
End With
Next MesItem
On Error Resume Next
OutLookApp.Quit
Set OutLookApp = Nothing
Set MesItem = Nothing
Set MesItems = Nothing
Set OutLookNameSpace = Nothing
Exit Function
esGetEmailMessages_Err:
MsgBox Err.Description
End Function
Ahtung!!!
Требует ссылки на библиотеку MS OutLook XX.X Object Library
C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl.olb
|