0425 VBA Outlook CreateITEM を 探った。予定表アイテムの作成。

outlookの .CreateItemを探った、そんなお話です。
olAppointmentItem 1 予定表
olContactItem 2 連絡先
olDistributionListItem 7 配布リスト
olJournalItem 4 履歴
olMailItem 0 メール
olNoteItem 5 メモ
olPostItem 6 投稿
olTaskItem 3 仕事

04/18 結合して、実行。

全てつなげてみました。

Excel2003 VBA から OutLookを起動

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

4/6 Outlook2007 WrapLines PlainWrapLen Regedt32.exe

強制改行を調整したくて、レジストリをいじった。そんなお話です。※広告のリンクコー ドなど、途中で強制的に改行されるとマズイので。
本家サポート情報は、 http://support.microsoft.com/kb/82392... ←を見てください。

2009-04-06 Excel2007 VBA IE8 Vista TEST

2009-04-06 Excel2007 VBA IE8 Vista TEST
DoEvents