0

現在、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) が未宣言または未定義であるため、参照を機能させるにはどうすればよいですか。

前もって感謝します。

4

3 に答える 3

1

「Microsoft Outlook 11.0 オブジェクト ライブラリ」への参照を追加します。

  1. [プロジェクト] メニューの [参照の追加] をクリックします。
  2. [COM] タブで、[Microsoft Outlook 11.0 オブジェクト ライブラリ] をクリックし、[選択] をクリックします。
  3. [参照の追加] ダイアログ ボックスで [OK] をクリックして、選択内容を受け入れます。選択したライブラリのラッパーを生成するように求められたら、[はい] をクリックします。

コードでは、これを追加する必要があります。

Imports Outlook = Microsoft.Office.Interop.Outlook

詳細については 、「 Microsoft Office Outlook 2003 と Visual Basic .NET を使用した便利なタスク」を参照してください。

しかし、.NET を使用している場合は、なぜSystem.Net.Mailを使用しないのでしょうか?

于 2011-07-06T21:39:13.403 に答える
1

ソリューション エクスプローラーでプロジェクトを右クリックし、[参照の追加] を選択して、Microsoft.Office.Interop.Outlook が表示されるまで下にスクロールし、それを選択します。次に、VB ファイルの先頭に「Imports Microsoft.Office.Interop」を追加します。

于 2011-07-06T21:42:31.623 に答える
-1 
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
于 2011-07-06T22:38:54.837 に答える