Question

我的电脑Office 2013 32位。我在我的客户的服务器和Windows会话上开发了一个Intranet：它是一个Office 2016 32位... 在我的vs2017上，我使用nugget包安装了microsoft.office.interop 15.0.4797.1003但它适用于Office 2013。我用

创建邮件

dim outl as new outlook.application
dim Mai las outl.mailitem=outl.createItem(Micrososft.office.Interop.outlook.olitemtype.olmailItem)
Mail.To=...
...
Mail.attachment.add(MyFile)
Mail.display()

我尝试将我的代码放在客户服务器上，并且像我一样...... 80070005拒绝访问... 我找不到如何打开Outlook 2016 谢谢你的帮助

更新关于我的项目的财产，我已经＆＃34;任何CPU＆＃34;选项激活

Answer 1

...最后朋友说我，我的方法只有在我打开服务器上的会话时才可以。 outlook.display在服务器上运行而不在其他计算机上的客户端上运行。然后我改变主意并构建一个emml文件，存储并使用ashx文件推送

 For Each _file As String In IO.Directory.GetFiles(IO.Path.GetDirectoryName(Path), "*.eml")
                        IO.File.Delete(_file)
                    Next

                    Dim MailMdp As New Net.Mail.MailMessage
                    MailMdp.Subject = Vers.Devi.Libelle
                    MailMdp.From = New Net.Mail.MailAddress(ConnectedUser.Mail)

                        MailMdp.To.Add(AnAdress)

                    MailMdp.Body = "Bonjour,"
                    Dim att As New Net.Mail.Attachment(Path)
                    MailMdp.Attachments.Add(att)
                    MailMdp.IsBodyHtml = True

                    Dim Client As Net.Mail.SmtpClient = New Net.Mail.SmtpClient()
                    Client.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.SpecifiedPickupDirectory
                    Client.PickupDirectoryLocation = IO.Path.GetDirectoryName(Path)
                    Client.Send(MailMdp)

                    Dim MonEml = IO.Directory.GetFiles(IO.Path.GetDirectoryName(Path), "*.eml", IO.SearchOption.TopDirectoryOnly).First

                    Dim fso As New System.IO.FileInfo(MonEml)
                    Dim NomFichier As String = fso.Name
                    context.Response.Clear()
                    context.Response.ClearContent()
                    context.Response.ClearHeaders()
                    context.Response.ContentType = "message/rfc822"
                    context.Response.AppendHeader("Content-Disposition", "attachment; filename=" & NomFichier)
                    context.Response.TransmitFile(MonEml)
                    context.Response.End()

我希望这可以有所帮助

如何使用vs2017打开Outlook 2016

1 个答案: