Macro work only once in web view

[#1]

Hi All i have a macro which work only once in webview Any reason?

Macro:

Sub OpenOutlook

    dim objOutlk

    dim obMail

    dim strMsg

    const olMailItem=0

    set objOutlk = createobject("Outlook.Application")

    set objMail = objOutlk.createitem(olMailItem)

    objMail.To= "gaurav@gmail.com"

    objMail.cc= ""

    objMail.subject = "Hi"

    objMail.display

    set objMail=nothing

    set objOutlk=nothing

end sub