三流君VBAでOutlookを操作する

Sub MAKE_MAIL_ITEM()

    Dim oApp As Object
    Dim myNameSpace As Object
    Dim myFolder As Object

    Dim objMAIL As Object 'メールのオブジェクト
    Dim strMOJI As String '本文

    'outlook 起動
    Set oApp = CreateObject("Outlook.Application")

    Set myNameSpace = oApp.GetNameSpace("MAPI")
    Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定
    myFolder.Display  '表示 いつものクセで .Visible = True とやりがちだけど

    'メールアイテムの作成
    Set objMAIL = oApp.CreateItem(0) 'olMailItem=0 直値はいけないと思いつつ、
    
    '宛先・件名・本文 などのデータを代入する
    objMAIL.To = "test@ken3.org"           '宛先 ほかに.cc や.Bccも可能です
    
    objMAIL.Subject = "テスト メールの件名です "  '.Subjectに文字列設定で件名
    
    '本文を作る、(vbCrLfで改行されます)
    strMOJI = "こんにちは(このメールtestアドレスなので質問は別便で)" & vbCrLf _
            & " ここで 文字列を作って .Bodyに代入する" & vbCrLf _
            & " メールアイテムが作成されたらその後、 " & vbCrLf _
            & " .save 下書きへ保存 や .sendで送信(確認が出る)" & vbCrLf _
            & " 今回は、.Display で メール作成画面を表示" & vbCrLf _
            & Now() & "作成"

    objMAIL.Body = strMOJI                 '本文の代入
    objMAIL.Display   '途中で編集したい時（メール編集画面を表示してみた)

    'ここで、普通はオブジェクトの開放など、後始末をする。

End Sub

余談ですが、広告コードをBlogに簡単にUPしたくて、Blogのメール投稿機能を使うことを考えました。広告コードをVBAで置き換えて自動送信するイメージで。普通に作ったらハマりました。どこでハマったかと言うと、vbCrLfを入れていないのに自動で改行され長いためか、広告用のリンクコードが途中できれてしまいました。
少々危険を感じつつ、↓下記のリンクを見て、レジストリを書き換えて対応しました
[[BUG] Outlook 2003 で電子メール メッセージを送信したときに、想定した位置で行が折り返さない]
↑データや長い文章をOutlook本文 文字列で送りたい場合はここに注意してください。
※以上、広告職人の余談でした・・・(最近はBlogに機械的な広告は効果なしですが)

VBAでOutlookを操作する

概要とリンク先

    strBASEPATH = "C:\Documents and Settings\user2000\My Documents\"
    strFILETYPE = "*.xls"  'マッチングパターン
    strFileName = Dir(strBASEPATH & strFILETYPE) 'DIR関数にPATH+*.xlsを渡す
    '↑すると、一番最初の名前が返ってくる(順不同)
    '名前がなくなるまでループ
    While strFileName <> ""   'ファイル名が""空文字以外の間ループする
        'ファイル名を使って処理を行う
            '↓１つ1つ添付する ↓↓パス＋ファイル名を渡す
        objMAIL.Attachments.Add strBASEPATH & strFileName 
        '↓次の名前の処理に移るには、Dir関数を引数無しで呼び出します
        strFileName = Dir  '←引数無しで次のパターンを取り出せる
    Wend
    '↑こんな感じでループを作って１つ１つファイルを処理してみました。

Private Sub UserForm_Initialize()
    'フォームの初期化イベントでリストボックスにメールデータをセットする
    Dim objOL      As Object 'OutLookのアプリケーションオブジェクト
    Dim objNAMESPC As Object '名前空間
    Dim objFLD     As Object 'フォルダー保存用
    Dim objMAIL    As Object 'メールアイテム
    Dim strWORK As String

    Me.lstMAIL.Clear  '.Clearでリストボックスの内容を全てクリア
    'アプリケーションのオブジェクトを新規作成
    Set objOL = CreateObject("Outlook.Application")
    'Namespace オブジェクト作成
    Set objNAMESPC = objOL.GetNamespace("MAPI")
    'フォルダーの下、第二階層.Foldersでループさせる
    For Each objFLD In objNAMESPC.Folders(1).Folders
        'フォルダー名が受信トレイか？
        If objFLD.Name = "受信トレイ" Then
            'フォルダーのアイテム数分ループ Folders.Items
            For Each objMAIL In objFLD.Items
                '作成日:題名で文字列を作成する
                strWORK = objMAIL.CreationTime & ":" & objMAIL.Subject
                'データをセット
                Me.lstMAIL.AddItem (strWORK)
            Next objMAIL
        End If
    Next objFLD
    '後始末
    objOL.Quit
End Sub

VBA Outlook関係書籍の紹介

プログラミングＭｉｃｒｏｓｏｆｔＯｕｔｌｏｏｋ 著者：トーマス・リッゾ / オーパス・ワン 出版社：日経ＢＰソフトプレス／日経ＢＰ出版センター 本体価格：3,800円 楽天ブックスで購入する

Ｍｉｃｒｏｓｏｆｔ Ｏｕｔｌｏｏｋ Ｖｅｒｓｉｏｎ ２００２オフィシャルマニュア 著者：ジム・ボイス / 薄金宏之進 出版社：日経ＢＰソフトプレス／日経ＢＰ出版センター 本体価格：6,000円 楽天ブックスで購入する

VBA Outlookのオブジェクトの探り方

これも、私の我流な三流的攻略法だけど、
Outlookのオブジェクトの探り方は、

Outlookを起動します。
^^^^^^^^^^^^^^^^^^^^^
起動後、Alt+F11を押します。
すると、ＶＢＡのいつものよく見かける画面が表示されます。
※ExcelやAccessで参照設定したあとでもＯＫです。

ここで、探りたいオブジェクトの適当な変数を定義します。
Dim aa as 
とか入力すると、なんと、mailitemとか出てきます。


↑オブジェクトの変数が表示された例

そこで、
Dim aa as MailItem
と、メールのアイテム型の変数を定義します。
※これは、オブジェクト名前とかで狙いを付けて、
  まぁ、失敗してもやり直すって感じで。
（女性をデートの誘う時もこれくらい気軽に？できたらいいね(オイオイ)）

次は、狙いをつけた女性の身に付けているブランド品や行動パターンじゃなくって、
あたりをつけた、オブジェクトのプロパテイやメソッドを探ります。

ここは、いきなりアタックって感じで、
Dim aa as MailItem
と定義してから、aa.とaaさんにアタックします。
すると、プロパティやメソッドが表示されるので、
それらしいプロパティ・メソッドの名称を選択します。

おっ、aaさんの行動は(メソッドは)これだとか、
ここも経験や当てずっぽうに推理します。
※出たとこ勝負もアリでしょう or パターンでなんとなくわかったり・・・


↑MailItemの.FlagStatus フラグのステータスを探して、選択したところです。

次は、そのプロパティにカーソルを合わせ、F1のヘルプを見る。
あれれ・・・ハズシタ（笑）フリダシニ戻る
や
ＯＫ、目的のプロパティ、メソッドだった、となります。

探り方、まとめるとこんな感じで、
該当するオブジェクト型の変数を定義
Dim aa as MailItem
その後、
aa.
と、候補を表示させ、それらしいのにアタック。

aa.FlagStatus と選択後、カーソルを合わせてからF1のヘルプを見る。

そんな流れでいつもVBAのプロパティ、メソッドを探ってます。
※もっと効率の良い、
  女の子(オブジェクト)へのアタック方法もあるんだろうけど・・・

あとは、世の中のチャラ男やナンパ男の成功例を見て自分も真似したいので、
GoogleやYahooで探したプロパティ、メソッドをキーワードにして事例を検索します。

すると、
.xxxxx プロパティはひどい女だったよ、
期待させておいてボッタクリのバグかよ・・・
とか
口説き落とすテクや扱い方の注意事項が載ってます。

まぁ、そのまま真似してもいいし、アレンジしてもいいし。

ヘルプで添付をキーワードに調べると

ヘルプで例えば、[添付]をキーワードに調べると。
.Attachments.Add
ってのが見つかる。（ネットでoutlook 添付で探すと一発だけど）

嘘つくなよテメエ、ＥｘｃｅｌＶＢＡのヘルプにそんなの無いぞ。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
素人だと思ってバカにしやがって、いつもヘルプ見ろヘルプ見ろってうるせえ。
Excelのヘルプで添付が出てこないから聞いてんだろ。

まぁまぁ、そんなに興奮しないでよ、どこかの危険な掲示板じゃないんだから。
えっと、これ、Outlookを起動してから、Alt+F11押すと、
OutlookのＶＢＡ編集画面が出るんですよ。

ここで、F1（ヘルプ）押して添付とキーワード入力をすると、
Attachmentsオブジェクトを見つけることが出来ます。
※outlook2000,20002からで、97は出ません（残念、、、）


↑ヘルプの検索イメージ

さてと、
Attachmentsオブジェクトのヘルプを見ると、
---
アイテムに添付ファイルを追加するには、Add メソッドを使用します。 

一貫した結果を得るには、アイテムの Attachments コレクションのオブジェクトを
追加したり削除したりする前に、アイテムを必ず保存します。

次の VBA の例は、新しいメッセージを作成し、Q496.xls ファイルをリンクではなく
添付ファイルとして添付し、その添付ファイルにわかりやすいキャプションを付けます。
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.Save
Set myAttachments = myItem.Attachments
myAttachments.Add "C:\My Documents\Q496.xls", _
    olByValue, 1, "1996 年の第 3 四半期報告"
---

なんて載ってます。

最近発売の雑誌を紹介する

1. DTP WORLD (ディーティーピー ワールド) 2008年 06月号
2. Windows 100% 2008年 06月号
3. 日経 PC (ピーシー) ビギナーズ 2008年 06月号
4. PC Japan (ジャパン) 2008年 06月号
5. Software Design (ソフトウエア デザイン) 2008年 06月号
6. Web Designing (ウェブデザイニング) 2008年 06月号
7. I/O (アイオー) 2008年 06月号
8. 月刊 COMPUTERWORLD (コンピュータワールド) 2008年 07月号

ページフッター(リンクなど)

書籍の購入

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック