TypeName で As Objectのタイプを見つけ処理してみては？MeetingItem オブジェクト？

人力検索の回答下書き,メールアイテムとミーティングのアイテムで.TOが(ミーティングに)ありそうでないのでチェック時にエラーになる。オブジェクトの種類が区別できれば、判断付ければなんとかなるのかなぁ・・・

OutlookのVBAで、以下のようなコードを作って、メールの宛先チェックを実装しようと思います。

http://q.hatena.ne.jp/1295881459

ヤバイ、ミーティングじゃなくって、
アポ AppointmentItem インターフェイス
http://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.outlook.appointmentitem.aspx
Office 2007 予定表フォルダの会議、1 回限りの予定、または定期的な予定や会議を表します。
↑こっちか、下記はやはりお蔵入り

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    
    Dim strTYPE As String
    strTYPE = TypeName(Item)
    
    Debug.Print strTYPE
    
    'MailItem
    'MeetingItem
    Dim oMeetingItem As MeetingItem
    
End Sub

確かに、As MeetingItemに.toが無いので、エラーになるのかなぁ。

MeetingItem オブジェクト
http://msdn.microsoft.com/ja-jp/library/cc421161.aspx
をよく探さないと、宛先までたどり着けないのかなぁ？

カッコつけて、回答書こうとしたら...

カッコつけて、回答書こうとしたら...
As MeetingItem
で、送り先の調べ方がわからなかった(ぉぃぉぃ)

    Dim strTYPE As String
    strTYPE = TypeName(Item)

    If strTYPE = "MailItem" Then
        'メールの処理
    End If

    If strTYPE = "MeetingItem" Then
        'ミーティング 会議出席依頼
    End If

MeetingItem オブジェクト
http://msdn.microsoft.com/ja-jp/library/cc421161.aspx
をよく探さないと、宛先までたどり着けないのかなぁ？

なんか、勘違いのような気もするし、
いつもの 日記 お蔵入り パターンかなぁ。。。