お奨め本の目次を見るだけでも勉強になったり
＜Outlookを操作してメールを送りたい＞
こんにちは、三流プログラマーＫｅｎ３です。 なんか、間があいてしまいました。 １ヶ月間、何にもしていないのに、読者が増えているのはビックリ。 そして、今日の発行でまた減って行く、、、 なんていつもの暗い前置きは置いといて、 今回は、 Outlookを操作してメールを送りたい を軽く書きたいと思います。 へぇ〜、そうなんだぁ程度に、気楽に読んでください。 /* * １．今回のキッカケ */ In message "outlookを開いてメールを送ることはできますか？", onikoさん wrote... > ＩＥを開いてＨＰを見るというのがありましたが、 >ＯＵＴＬＯＯＫを開いてメールを送るにはどうしたら >よろしいでしょうか？ > > 宛先はエクセルのどこかのセルに入れておいても >構いません。 > > マガジンで紹介してください。 >急ぎませんのでよろしくお願いいたします。 ---- 急がないって言われると、変わり者だから急ぎたくなるんだよなぁ、、、 といってたけど、メールを貰ってから１ヶ月がたってたりして（笑） 1999/11/23 Excel VBA からOutLookデータを読む ( http://www.ken3.org/backno/backno_guchi05.html#22 を参照) でだいぶ前に、Excel97とOutLook97で少し遊んでました。 それを思い出しつつ、、、 /* * ２．アプリケーション名はOutlook.Application */ 下記、オブジェクト作成のテストです。 Sub test_Outlook() Dim oApp As Object Dim myNameSpace As Object Dim myFolder As Object Set oApp = CreateObject("Outlook.Application") Set myNameSpace = oApp.GetNameSpace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定 myFolder.Display '表示 End Sub ポイントは、 Set oApp = CreateObject("Outlook.Application") で、Outlookのアプリケーションを操作するためのオブジェクトを作成してます。 Set oApp = CreateObject("Excel.Application") とよくＥｘｃｅｌでやってるので、イメージはＯＫかなぁ。 私が少しハマッタのは、よく oApp.Visible = True とやっているので、これでOutlookが表示されるかと思ったらエラーが出てしまい、 あれ？って感じでした。 ヘルプを見てみると、 Set myNameSpace = oApp.GetNameSpace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定 myFolder.Display '表示 で規定のフォルダー表示とあったので、流用しました。 フォルダー関係の操作は今後の課題かなぁ。 まぁ、なんとか起動は出来たと思います。 /* * ３．送信メールの作成をテストする */ やりたいことは、メールの作成なので、 Sub test送信メール作成() Dim oApp As Object 'アプリケーションオブジェクト Dim objMAIL As Object 'メールのオブジェクト Dim strMOJI As String '本文 'アプリケーションオブジェクトの作成 Set oApp = CreateObject("Outlook.Application") Set objMAIL = oApp.CreateItem(0) 'olMailItem=0 strMOJI = "こんにちは" & vbCrLf _ & "プログラマーの愚痴、教えまっせ？" & vbCrLf _ & "http://www.ken3.org/ よろしく（笑）" objMAIL.To = "test@ken3.org" '宛先 objMAIL.Subject = "未承諾広告※（笑）" '件名 objMAIL.Body = strMOJI '本文の代入 objMAIL.Display '途中で編集したい時（メール表示してみた) 'おまけでＯｕｔｌｏｏｋ表示 Dim myNameSpace As Object Dim myFolder As Object Set myNameSpace = oApp.GetNameSpace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定 myFolder.Display '表示 End Sub まず、アプリケーションオブジェクトの作成 Set oApp = CreateObject("Outlook.Application") 次に、メールアイテムを作成します。 Set objMAIL = oApp.CreateItem(0) 'olMailItem=0 本文を一時的に変数に保管して（直接でもいいですよ） strMOJI = "こんにちは" & vbCrLf _ & "プログラマーの愚痴、教えまっせ？" & vbCrLf _ & "http://www.ken3.org/ よろしく（笑）" こんな感じで、vbCrLfの改行を使って、作成してます。 データをメールアイテムにセットする objMAIL.To = "test@ken3.org" '宛先 objMAIL.Subject = "未承諾広告※（笑）" '件名 objMAIL.Body = strMOJI '本文の代入 見たまま？で、 .To 宛先 .Subject 件名 .Body 本文 をセットしてます。 objMAIL.Display '途中で編集したい時（メール表示してみた) で、メールの編集画面を表示してます。 ここで書きなおしたり出来きます。 ＊送信箱に行かなかったので、たまたま、発見しただけなんだけど（笑） おっと、やりたいことは送信用のメールを作成だったよね。 Sub testSEND送信() Dim oApp As Object 'アプリケーションオブジェクト Dim objMAIL As Object 'メールのオブジェクト Dim strMOJI As String '本文 'アプリケーションオブジェクトの作成 Set oApp = CreateObject("Outlook.Application") Set objMAIL = oApp.CreateItem(0) 'olMailItem=0 strMOJI = "こんにちは" & vbCrLf _ & "プログラマーの愚痴、教えまっせ？" & vbCrLf _ & "http://www.ken3.org/ よろしく（笑）" objMAIL.To = "test@ken3.org" '宛先 objMAIL.Subject = "未承諾広告※（笑）" '件名 objMAIL.Body = strMOJI '本文の代入 objMAIL.Send '直接送信箱行き 'おまけでＯｕｔｌｏｏｋ表示 Dim myNameSpace As Object Dim myFolder As Object Set myNameSpace = oApp.GetNameSpace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定 myFolder.Display '表示 End Sub ポイントは、 objMAIL.Send '直接送信箱行き の.Sendプロパティです。 これで送信箱に行きます。 えっ、送受信をしないと、実際に送信されないって？ いきなり送りたいのかなぁ。。。 次回のネタに取って、今回はこれくらいで。 逃げるなって？ バレた（笑） /* * ４.おわりの挨拶 */ 今回は、OutLookアプリの操作で、 ・アプリケーションの参照用のオブジェクト変数の作成 ・メールの新規作成 ・メールを送信箱に作成 でした。 拾い読みして、 １つでも何かの参考となれば幸いです。 Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。 ---------------------------------- 関連項目(ただのバックナンバー紹介) ---------------------------------- 1999/11/23 Excel VBA からOutLookデータを読む ( http://www.ken3.org/backno/backno_guchi05.html#22 を参照) で、 Excel97とOutLook97で少し遊んでました。 時間があったら、あわせてみて下さい。
| ※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり |