Error 91 ayuda en outlook

buenos días veras he desarrollado un script para el outlook a fin de abrir todos los links que vengan de una determinada dirección de email mediante reglas, la cosa es que al ejecutar el código en el visual basic para aplicaciones me sale el código 91....
mi script es:
Sub AbrirLinks(itm As MailItem)
Dim bodyString As String
Dim bodyStringSplitLine
Dim bodyStringSplitWord
Dim splitLine
Dim splitWord bodyString = itm.Body bodyStringSplitLine = Split(bodyString, vbCrLf)
For Each splitLine In bodyStringSplitLine bodyStringSplitWord = Split(splitLine, " ")
For Each splitWord In bodySpringSplitWord
If Left(splitWord, 7) = "http://" Or Left(splitWord, 8) = "https://" Then Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE" & " " & splitWord)
End If
Next
Next Set itm = Nothing
End Sub
Private Sub Test()
Dim currItem As MailItem
Set currItem = ActiveInspector.CurrentItem
AbrirLinks (currItem)
End Sub
al depurar me da error en la linea Set currItem= ActiveInspector.currentItem
podrías ayudarme? Gracias