Vb.net Outlook 365 for desktop加载项不工作

Vb.net Outlook 365 for desktop加载项不工作,vb.net,Vb.net,我已经将一个outlook 2010加载项项目转换为outlook 365(用于桌面),之后当它到达下面的行时 Private Sub ThisAddIn_Startup()处理我。Startup 试一试 Dim Application As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application 'EXCEPTION LINE 然后立即抛出异常,如下

我已经将一个outlook 2010加载项项目转换为outlook 365(用于桌面),之后当它到达下面的行时

Private Sub ThisAddIn_Startup()处理我。Startup 试一试

    Dim Application As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application 'EXCEPTION LINE
然后立即抛出异常,如下所示

{“检索CLSID为{0006F03A-0000-0000-C000-0000000000 46}的组件的COM类工厂失败,原因是以下错误:8000ffff灾难性故障(来自HRESULT的异常:0x8000FFFF(E_意外))。”}

我读过这个话题,但在我看来,它并没有解决问题


专家们请告诉我。

您已经在outlook(ThisAddin类)中,因此不需要创建应用程序的新实例。您需要的是获取指向现有指针的指针

我不使用VB.Net编写代码,但C#等价物是:

    this.Application;
我假设您想要模仿您所指向的代码中的内容,并且想要发送电子邮件,那么我会这样写:

public void Email_Send()
{
    O.MailItem message = this.Application.CreateItem(O.OlItemType.olMailItem);
    message.To = Receiver;
    message.CC = Sender;
    message.Subject = Subject;
    message.Body = "This is an automated message sent at " + DateTime.Now.ToString("HH:mm:ss") + " about " + Body_Topic + System.Environment.NewLine + Body_Content ;
    message.Send();
}