[UWSC]スクリーンショットをメールで送信

公開日: : 最終更新日:2016/12/11 プログラムのメモ , ,

UWSC作業完了後の確認として完了後のPC画面をスクリーンキャプチャをしCDOを使いGmailでスマホなどへ送信します。
タスク登録をしていてPCから離れている際の作業など確認できて便利です。エラーでコケたときだけ起こしにいけます。



SPONSORED LINK



//UWSCスクショ撮ってメール送信

//スクリーンショットを撮る(実行ファイルと同じフォルダに保存されます)
SAVEIMG("screenshot", 0, , , , , , 70) // "保存ファイル名",0でPC画面全体,圧縮率を70に,圧縮率指定でjpg保存に変更

//添付画像ファイルまでのディレクトリ(メール添付にはフルパスが必要)
tempfile = GET_CUR_DIR + "\screenshot.jpg" //GET_CUR_DIR 実行ファイルがあるディレクトリ

//CDOメール送信部分(Gmailを使っています)
Dim objEmail = CreateOleObj("CDO.Message")

//メールの内容
objEmail.From = "送信元メールアドレス(hoge@gmail.com)"
objEmail.To = "送信先メールアドレス"
objEmail.Subject = "メールタイトル"
objEmail.Textbody = "メール本文"
objEmail.AddAttachment (tempfile) //添付ファイルはフルパスを指定する

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" //ログインID
objEmail.Configuration.Fields.Item(Schemas + "sendpassword") = "ログインパスワード" //パスワード
objEmail.Configuration.Fields.Item(Schemas + "smtpusessl") = True

objEmail.Configuration.Fields.Update

objEmail.Send

//gmailが送信できない場合。ログインができなかった場合。
//Googleアカウントの設定から「安全性の低いアプリの許可」をする。
//または、2段階認証の場合は専用のログインパスワードを作成する必要があります。
Sponsored Link
◆RECOMMEND◆

関連記事

認証サイトではGoogleDocumentViewer使えなかったので対策

認証のあるPHPサイトでjpgとPDFを表示できるようにしたかっただけなんですが 見るのは家族だけ

記事を読む

【エクセル】URLのファイル名だけ取り出す数式

エクセルでURLからファイル名だけを残す数式です。 例)http://www.example.co

記事を読む

class属性とid属性の違い

たまにCSSを打つと忘れていることがあるのでメモ class属性とid属性の違い

記事を読む

[UWSC]OfficeのOCR機能を使う

こちらのUWSCサンプルを実行してみました。がエラーが出たのでメモ UWSCサンプル - OCRの

記事を読む

MySQL命令文(読み出し)

MySQLのデータ読み出し命令文のメモ。 データベースの読み出し 例) SEL

記事を読む

フォームのクロスサイトスクリプティング(XSS)を防ぐ【PHP】

フォームにHTMLタグやJavaScriptを放り込まれて困ることがあるそうで エスケープ方法を調

記事を読む

[WP]WP to TwitterでTwitterに投稿できなかった時やったこと

原因不明のWPtoTwitterの401エラーが続いていたので Twitterデベロッパー

記事を読む

毎日ビットコインが貰えるサイトの仕組み

typographyimages / Pixabay[/captio

暗号通貨を買うとき時の注意

ついに暗号通貨を買った!という方が周りでも増えてきて 暗号通貨または

VPNが利用できる暗号通貨MysteriumNetwork

MysteriumNetwork($MYST)という暗号通貨のICOに

ビットコインを買ってみて変わったこと

2017年4月より暗号通貨が目立つほどに値上がりをはじめネットをざわめ

windows10のプログラムの関連付けを解除する

前回はプログラムの変更でしたが今回は関連付けの解除です。

→もっと見る

  • 管理人
    サイト名:ぽけっとろぐ

    カバンやポケットでひっそり活躍してくれるガジェットが好き。
    写真は猫カフェで撮影
    RSS / Twitter / Facebook
PAGE TOP ↑