Outlookサポートナビ！  ≫≫≫ Outlookフォーム作成／VBSプログラミング

　

◆ 宛先を追加する  (Item.Recipients.add)

　

オブジェクト

プロパティ

メソッド（追加する）

Item

Recipients

Add

記述法： Item.Recipients.Add("メールアドレス")

現在の宛先に受信者を追加します。

ItemオブジェクトのRecipientsプロパティで全受信者を表すRecipientsコレクションオブジェクトを取得し、RecipientsオブジェクトのAddメソッドで新たな宛先を追加します。

　

★追加ではなく予め全ての宛先が決まっている場合は、Item.Toプロパティで指定します。

　

(例） 宛先に「taro@test.com」を追加する

Set NewItem = Application.CreateItem(0)
NewItem.Recipients.add("taro@test.com")

　

　

記述例：

記号

宛先に「taro@test.com」を追加して送信する

Set NewItem = Application.CreateItem(0)
NewItem.Recipients.add("taro@test.com")

NewItem.Send

★新規メッセージを作成

★宛先を追加

★メッセ―ジを送信

　

　

記号

Textbox1に入力されているアドレスを追加して送信する

Set MyPage = Item.GetInspector.ModifiedFormPages("登録")
Set NewItem = Application.CreateItem(0)
NewItem.to = "somu@a.com"

MgrAddress = MyPage.Textbox1.value

If MyPage.Textbox1.value <> "" then
NewItem.Recipients.Add MgrAddress
End if

NewItem.Display

★現在のページ（タブ）を取得

★新規メッセージを作成

★宛先を「somu@a.com」とする

　

★テキストボックス1の値を変数に格納

（変数：MgrAddress）

★テキストボックス1が空でないなら

★メッセージに変数MgrAddressの値を追加

　

★メッセージを表示する

　

　

≫≫  Outlookフォーム作成／開発／VBSプログラミング  ≫≫ プログラミングサンプル編