在Outlook邮件预览窗口中打开URL

Question

Currently I have code that will extract information from outlook message subject line and use this to open a link in IE.

I managed to break outlook the other day and these url's started opening in the outlook message preview window.

:) Does any one have any pointers on how can I code this so it happens on purpose?

I want to open the url inside the outlook application window instead of opening the url in internet explorer.

If subj <> "" Then
        Dim IE As Object
        With CreateObject("Shell.Application").Windows
            If .Count > 0 Then
        ' Get IE
                Set IE = .Item(0) '.Item(.Count + 1)
            Else
        ' Create IE
                Set IE = CreateObject("InternetExplorer.Application")
                IE.Visible = True
            End If
        IE.Navigate "url here"
        Set IE = Nothing
        End With
        Exit Sub
End If

Thanks aj

Answer 1

是的，您可以通过设置Applicatiobn.ActiveExplorer.CurrentFolder属性来创建一个临时文件夹并将其激活。

Answer 2

There several way to implement this task in Outlook.

1. Use the home page for the Outlook folder. The WebViewURL property allows to set a string indicating the URL of the Web page that is assigned to a folder.

   Sub SetupFolderHomePage() Dim nsp As Outlook.NameSpace Dim mpfInbox As Outlook.Folder
   Dim mpfNew As Outlook.Folder
   Set nsp = Application.GetNamespace("MAPI")
   Set mpfInbox = nsp.GetDefaultFolder(olFolderInbox)
   Set mpfNew = mpfInbox.Folders.Add("MyFolderHomePage")
   mpfNew.WebViewURL = " http://www.microsoft.com "
   mpfNew.WebViewOn = True
   End Sub

2. Create an adjacent Outlook window and injkect it into the explorer window. See Adjacent Windows In Outlook and Creating Adjacent Windows In Outlook for more information.