我无法打开Web服务器中带有附件的Outlook应用程序(客户端)。这是我的代码。有什么建议吗?
Dim app As Microsoft.Office.Interop.Outlook.Application
Dim appNameSpace As Microsoft.Office.Interop.Outlook._NameSpace
Dim memo As Microsoft.Office.Interop.Outlook.MailItem
Dim processes = System.Diagnostics.Process.GetProcessesByName("OUTLOOK")
Dim collCount As Integer = processes.Length
If collCount > 0 Then
app = Marshal.GetActiveObject("Outlook.Application")
memo = app.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
memo.Attachments.Add(Report, Outlook.OlAttachmentType.olByValue, , HttpContext.Current.Session("fileName"))
memo.Display()
Else
Try
app = New Microsoft.Office.Interop.Outlook.Application
appNameSpace = app.GetNamespace("MAPI")
Process.Start("OUTLOOK")
memo = app.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
memo.Attachments.Add(Report, Outlook.OlAttachmentType.olByValue, , HttpContext.Current.Session("fileName"))
memo.Display()
Catch ex As Exception
Debug.WriteLine(ex.Message)
End Try
End If
您不能-该代码将在服务器上运行,在那里没人会看到消息。而且,您无论如何都无法在服务器上运行Outlook。仅当您的站点被标记为受信任时,才可以在IE上在客户端上运行。
但是,您可以创建一个MIME(EML)文件,并允许用户从浏览器中下载它-Outlook将很乐意打开并显示它。为了确保它显示为未发送,请将X-Unsent
MIME标头设置为1。