|
分類:[VB.NET/VB2005]
はじめまして。
現在、vb.net(ms visual basic 2005 express)にて、Outlook上のメールを表示するWindowsアプリケーションを開発しています。
下記ソースを利用して、確かにデフォルトユーザの受信フォルダ内は取得できました。これは問題ありません。
一方、Outlook上には複数のMailboxが存在しているため、他のMailboxについても同様に取得したいのですが、やり方がわかりません。
ご教授よろしくお願いいたします。
Imports Microsoft.Office.Interop
Public Class FrmMail
Private Sub Form1_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
Dim myOlApp As Outlook.Application = CreateObject("Outlook.Application")
Dim myNameSpace = myOlApp.GetNamespace("MAPI")
Dim myFolder = myNameSpace.GetDefaultFolder(6)
Dim myFolder1 = myNameSpace.folders
Dim i As Integer
For i = 1 To myFolder.Items.Count
Dim myitem = myFolder.Items(i)
ListBox1.Items.Add(myitem.Subject)
Next
myFolder = Nothing
myNameSpace = Nothing
myOlApp = Nothing
End Sub
End Class
|
