Outlookサポートナビ！ ≫≫≫ Outlookフォーム作成／VBSプログラミング
◆ フォルダ内で選択した全アイテムを添付する
オブジェクト
メソッド
Attachmentsコレクション
Add (添付ファイル , 種類 , 添付の位置 , 表示名) ※添付ファイル以外は省略可
★添付ファイルは”フルパス”で指定したファイルやOutlookアイテムを指定できます。
★種類は、ファイルのコピー(1),ファイルのショートカット(4),msg形式でファイルのコピー（5),OLEドキュメント(6)で指定します。
★添付の位置はリッチテキスト形式の場合のみ指定します。本文先頭に添付する場合は(1),それ以外は末尾,非表示は(0)です。
★表示名はリッチテキスト形式メールで、種類が(1)に指定されている場合のみ設定可能です。” ”内に記述します。
AttachmentsコレクションはItemオブジェクトのAttachmentsプロパティで取得します。
記述例：
Item.Attachments.Add("C:\test\a.doc") → C:\testフォルダにあるa.docを添付します。
Set NewItem= Application.CreateItem(0) Set MySelection = Application.ActiveExplorer.Selection x = MySelection.Count For i = 1 to x NewItem.Attachments.Add MySelection.Item(i) Next NewItem.Display ★新規メッセージを作成 ★現在選択しているアイテム群取得 ★現在選択しているアイテム数取得 ★アイテム数分処理を繰り返す ★選択アイテムを新規メッセージに添付 ★メッセージを表示
Set NewItem= Application.CreateItem(0)
Set MySelection = Application.ActiveExplorer.Selection
x = MySelection.Count
For i = 1 to x
NewItem.Attachments.Add MySelection.Item(i)
Next
NewItem.Display
★新規メッセージを作成
★現在選択しているアイテム群取得
★現在選択しているアイテム数取得
★アイテム数分処理を繰り返す
★選択アイテムを新規メッセージに添付
★メッセージを表示
≫≫ Outlookフォーム作成／開発／VBSプログラミング ≫≫ プログラミングサンプル編
