タイトル | : VB.netからOutlook2003でメール送信 |
記事No | : 1398 |
投稿日 | : 2005/02/14(Mon) 18:55 |
投稿者 | : すー |
[OSのVer]:WindowsXP Pro [VBのVer]:VB.NET [その他]:Outlook2003
はじめまして。すーといいます。 現在、上記の環境にて抽出した顧客に対するメール送信を行うプログラムを開発中です。 まず、一度試してみようとMSDNライブラリにあったようにやってみたのですが、ビルドエラーになり 実行できません。
Sorce >------------------------* *参照設定に「Microsoft Outlook 11.0 Object Library」を追加しています。
'TO DO: If you use the Microsoft Outlook 11.0 Object Library, uncomment the following line. Imports Outlook = Microsoft.Office.Interop.Outlook
Module Module1
Sub Main() ' Create an Outlook application. Dim oApp As Outlook._Application = New Outlook.Application
' Create the name space. Dim oNS As Outlook._NameSpace = oApp.GetNamespace("mapi")
' Create a new MailItem. Dim oMsg As Outlook._MailItem oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem) <---- Err
Try
oMsg.Subject = "Test Subject" oMsg.Body = "Test Body" oMsg.To = "Test@***.co.jp" oMsg.Send()
Catch ex As Exception Console.WriteLine(ex.Message) End Try
' Clean up. oMsg = Nothing oNS = Nothing oApp = Nothing End Sub
End Module
Sorce >------------------------*
上記の「Err」の部分で、以下のビルドエラーが出ます。 「Option Strict On で 'System.Object' から 'Microsoft.Office.Interop.Outlook._MailItem' への暗黙的な変換はできません。」
参照設定が「Microsoft Outlook 10.0 Object Library」ではないからかと思ったのですが、 「Microsoft Outlook 11.0 Object Library」しか選択できません。 いろいろ検索してみたりしたのですが、検索してもあまりヒットせず途方にくれています。 とても簡単なところでつまづいているのかもしれませんが、 お力を貸していただけたらと思います。
|