// ----------------------------------------------
// 5wsh.vbs全文
// 
// 　第5章 リスト2 に掲載されているものと同じです．
// 　これの改訂版(本誌未発表)も付けていますので，
// 　試してみてください．
// ----------------------------------------------
    Dim ObjSession As MAPI.Session  ' CDOオブジェクトの宣言(CDO以外は不要）
    crlf = Chr(13) & Chr(10) ' 改行の定義
    Set ObjSession = CreateObject("MAPI.Session") ' CDO本体
    ObjSession.Logon , , , False                  ' ログインする
    Set ObjMessage = ObjSession.Outbox.Messages.Add ' メールアイテムを作成
    ObjMessage.Subject = "FAX送信" ' タイトルを定義
    ObjMessage.Text = "TRY!PC編集部の担当者御中" & crlf & "5章のWSHの送信です．" & crlf  ' 本文を代入
    Set ObjAttach = ObjMessage.Attachments.Add ' ファイルを添付
    With ObjAttach
        .Type = 1 ' データ
        .Name = "c:\test.awd"
        .Source = "c:\test.awd"  ' スキャナで入力したファイルを添付
    End With
    Set ObjOneRecip = ObjMessage.Recipients.Add ' 宛先を作成
    With ObjOneRecip
        .Address = "FAX:03-xxxx-xxxx"  ' FAXエントリを指定
        .Type = 1 'mapiTo' 宛先を作成
        .Resolve
    End With
    ObjMessage.Send
    MsgBox "メールを送信しました．"
    ObjSession.Logoff
    Set ObjSession = Nothing ' オブジェクトのクリア

// ----------------------------------------------
// 改訂版(本誌未発表)
// 　
// 　若干変更したWSHのソースです．
// 　With文と宣言部分を無くしたので，使えるケースが
// 　多くなるはずです．試してみてください．
// 　また，宛先と本文を冒頭で宣言するようにしました．
// ----------------------------------------------
    Dim ObjSession
    crlf = Chr(13) & Chr(10) ' 改行の定義

    Body =　"TRY!PC編集部の担当者御中" & crlf & "5章WSHの送信です" & crlf ' 本文
    Address =　"FAX:03-xxxx-xxxx"  ' FAXエントリを指定 電子メールはSMTP:

    Set ObjSession = CreateObject("MAPI.Session") ' CDO本体
    ObjSession.Logon , , , False                  ' ログインする
    Set ObjMessage = ObjSession.Outbox.Messages.Add ' メールアイテムを作成

    ObjMessage.Subject = "FAX送信" ' タイトルを定義
    ObjMessage.Text = Body  ' 本文を代入

    Set ObjAttach = ObjMessage.Attachments.Add ' ファイルを添付

    ObjAttach.Type = 1 ' データ
    ObjAttach.Name = "c:\test.awd"
    ObjAttach.Source = "c:\test.awd"  ' スキャナで入力したファイルを添付


    Set ObjOneRecip = ObjMessage.Recipients.Add ' 宛先を作成

    ObjOneRecip.Address = Address ' 宛先
    ObjOneRecip.Type = 1 'mapiTo
    ObjOneRecip.Resolve ' 宛先のチェック


    ObjMessage.Send
    MsgBox "メールを送信しました。"

    ObjSession.Logoff
    Set ObjSession = Nothing ' オブジェクトのクリア