メールドリブン outlookマクロ

Option Explicit

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim itm As Object
Dim msg As String
Dim IE As Object

Set itm = Application.Session.GetItemFromID(EntryIDCollection)
If LCase(TypeName(itm)) = "mailitem" Then
With itm.ReplyAll
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Navigate "http://lifework.hatenablog.com/category/VBA"
        .Visible = True
    End With
    Set IE = Nothing

End With
End If
End Sub