Ссылки в Microsoft Visual Studio не работают

Question

В настоящее время я пытаюсь отправить электронное письмо с использованием VB.NET. Теперь я добавил ссылку с этим кодом: (Я добавил заполнители)

Module Module1

    Sub Main()
        ' Create an Outlook application.
        Dim oApp As Outlook._Application
        oApp = New Outlook.Application()

        ' Create a new MailItem.
        Dim oMsg As Outlook._MailItem
        oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem)
        oMsg.Subject = "Send Attachment Using OOM in Visual Basic .NET"
        oMsg.Body = "Hello World" & vbCr & vbCr

        ' TODO: Replace with a valid e-mail address.
        oMsg.To = "user@example.com"

        ' Add an attachment
        ' TODO: Replace with a valid attachment path.
        Dim sSource As String = "C:\Temp\Hello.txt"
        ' TODO: Replace with attachment name
        Dim sDisplayName As String = "Hello.txt"

        Dim sBodyLen As String = oMsg.Body.Length
        Dim oAttachs As Outlook.Attachments = oMsg.Attachments
        Dim oAttach As Outlook.Attachment
        oAttach = oAttachs.Add(sSource, , sBodyLen + 1, sDisplayName)

        ' Send
        oMsg.Send()

        ' Clean up
        oApp = Nothing
        oMsg = Nothing
        oAttach = Nothing
        oAttachs = Nothing
    End Sub

End Module

Как получить ссылки на работу для всех элементов Outlook (Outlook.Application, Outlook._MailItem, Outlook, Outlook.Attachments, Outlook.Attachment) либо необъявленными, либо неопределенными.

Спасибо заранее.

Answer 1

В обозревателе решений щелкните правой кнопкой мыши свой проект, выберите «Добавить ссылку» и прокрутите вниз, пока не увидите Microsoft.Office.Interop.Outlook и выберите его.Затем добавьте «Импортирует Microsoft.Office.Interop» вверху файла VB.

Answer 2

Добавить ссылку на «библиотеку объектов Microsoft Outlook 11.0»:

1. В меню Проект выберите Добавить ссылку.
2. На вкладке COM щелкните Библиотека объектов Microsoft Outlook 11.0, а затем нажмите кнопку «Выбрать».
3. Нажмите кнопку ОК в диалоговом окне Добавить ссылки, чтобы подтвердить выбор. Если вам будет предложено создать оболочки для выбранной библиотеки, нажмите кнопку «Да».

И в коде вам нужно добавить это:

Imports Outlook = Microsoft.Office.Interop.Outlook

Подробнее можно найти здесь: Удобные задачи с использованием Microsoft Office Outlook 2003 и Visual Basic .NET

Но если вы находитесь в .NET, почему бы не использовать System.Net.Mail ?

Answer 3

Imports Microsoft.Office.Interop

'On the Project menu, click Add Reference.
'On the COM tab, Double click ->  Microsoft Outlook xx.0 Object Library

Module Module1

    Sub Main()
        ' Create an Outlook application.
        Dim oApp As Outlook._Application
        oApp = New Outlook.Application()

        ' Create a new MailItem.
        Dim oMsg As Outlook._MailItem
        oMsg = CType(oApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook._MailItem)
        oMsg.Subject = "Send Attachment Using OOM in Visual Basic .NET"
        oMsg.Body = "Hello World" & vbCr & vbCr

        ' TODO: Replace with a valid e-mail address.
        oMsg.To = "user@example.com"

        ' Add an attachment
        ' TODO: Replace with a valid attachment path.
        Dim sSource As String = "C:\Temp\Hello.txt"
        ' TODO: Replace with attachment name
        Dim sDisplayName As String = "Hello.txt"

        Dim sBodyLen As Integer = oMsg.Body.Length
        Dim oAttachs As Outlook.Attachments = oMsg.Attachments
        Dim oAttach As Outlook.Attachment
        oAttach = oAttachs.Add(sSource, , sBodyLen + 1, sDisplayName)

        ' Send
        oMsg.Send()

        ' Clean up
        oApp = Nothing
        oMsg = Nothing
        oAttach = Nothing
        oAttachs = Nothing
    End Sub

End Module