Question

目前我的代码将从Outlook消息主题行中提取信息，并使用此代码在IE中打开链接。

我前几天设法打破了这个网址，这些网址开始在Outlook消息预览窗口中打开。

:)是否有任何人有关于我如何编码的指示，所以它是故意发生的？

我想打开Outlook应用程序窗口中的url，而不是在Internet Explorer中打开url。

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

由于 AJ

Answer 1

是的，您可以通过设置Applicatiobn.ActiveExplorer.CurrentFolder属性来创建临时文件夹并使其处于活动状态。

Answer 2

有几种方法可以在Outlook中实现此任务。

使用Outlook文件夹的主页。 WebViewURL属性允许设置一个字符串，指示分配给文件夹的网页的URL。

Sub SetupFolderHomePage（）     Dim nsp As Outlook.NameSpace     Dim mpfInbox作为Outlook.Folder
    Dim mpfNew作为Outlook.Folder
    设置nsp = Application.GetNamespace（＆＃34; MAPI＆＃34;）
    设置mpfInbox = nsp.GetDefaultFolder（olFolderInbox）
    设置mpfNew = mpfInbox.Folders.Add（＆＃34; MyFolderHomePage＆＃34;）
    mpfNew.WebViewURL =＆＃34; http://www.microsoft.com＆＃34;
    mpfNew.WebViewOn = True
End Sub
创建一个相邻的Outlook窗口并将其隐藏到资源管理器窗口中。有关详细信息，请参阅Adjacent Windows In Outlook和Creating Adjacent Windows In Outlook。

在Outlook消息预览窗口中打开URL

2 个答案: