【UWSC】gmailでメールを送信する

UWSC でメールを送信するには CDO を利用する。

------------------------------------------------

Dim objEmail = CreateOleObj("CDO.Message")

//内容をセット
objEmail.From = "送信者@gmail.com"
objEmail.To = "あて先アドレス"
objEmail.Subject = "題名"
objEmail.Textbody = "内容"

Schemas = "http://schemas.microsoft.com/cdo/configuration/"
objEmail.Configuration.Fields.Item(Schemas + "sendusing") = 2
objEmail.Configuration.Fields.Item(Schemas + "smtpserver") = "smtp.googlemail.com"

objEmail.Configuration.Fields.Item(Schemas + "smtpserverport") = 465 //ポート番号
objEmail.Configuration.Fields.Item(Schemas + "smtpauthenticate") = True
objEmail.Configuration.Fields.Item(Schemas + "sendusername") = "ID(送信者@gmail.com)"
objEmail.Configuration.Fields.Item(Schemas + "sendpassword") = "メールパスワード(ログイン時と同じもの)"
objEmail.Configuration.Fields.Item(Schemas + "smtpusessl") = True

objEmail.Configuration.Fields.Update

objEmail.Send

------------------------------------------------

メールが届かない場合は、gmail の受信箱をチェック。

gmail1

「ログイン試行をブロックしました」というメールが届いていたら、ブロックを解除する必要がある。google のアカウント情報から「安全性の低いアプリの許可」を有効にすればいい。

【UWSC】デュアルモニター側にふきだしを表示

デュアルモニター側にふきだしを表示するスクリプト↓

fukidasi("ふきだしだよ",MONITOR(1,MON_X),0)

-----------------------------------
// マルチモニタ情報
戻値 = MONITOR( モニタ番号, 取得情報 ) 
引数
 モニタ番号: モニタ番号を指定 (メインモニタは 0,二つ目のモニターは1)
 取得情報:
   MON_X      // X座標を返す
   MON_Y      // Y座標を返す
   MON_WIDTH    // 幅を返す
   MON_HEIGHT    // 高さを返す

 ※ MONITOR() 引数なしの場合はモニターの数を返す
-----------------------------------