Excel2003 VBA から OutLookを起動

http://www.ken3.org/cgi-bin/group/vba_outlook.asp で VBA Outlookの解説してます。。。よかったら遊びに来てください。
下記、テストのソース
http://ken3-info.blog.ocn.ne.jp/code_gomibako/2009/02/221_excel_vba_o_d1aa.html



Option Explicit

Sub OL_TEST_0221() 'Excel VBA から OutLookを起動して 受信箱を表示する Dim oApp As Object 'OutlookのApplication オブジェクトを入れる Dim myNameSpace As Object '名前のスペースと言われても、、 Dim myFolder As Object 'フォルダー指定 'outlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を Set oApp = CreateObject("Outlook.Application") '呪文１ 名前空間 の 指定 と言っても、.GetNamespace("MAPI")しただけ Set myNameSpace = oApp.GetNamespace("MAPI") '次は作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display) Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダー olFolderInbox=6 指定 myFolder.Display '表示 いつものクセで .Visible = True とやりがちだけど

End Sub


三流解説 [え～と] And [こんな感じ]
カテゴリ: 科学と技術

タグ: 三流君 VBA Outlook 起動 え～と こんな感じ Outlook.Application