ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
VBScript : Windows 標準 のCDO メール送信 / GMail 用 / cc bcc HTML メール ( No.0 )
日時: 2018/02/04 19:24
名前: lightbox



オンラインライブラリを使った、cdo_gmail.wsf / GMail 用
添付ファイルを省略する場合は "" とします

※ Crun は、コマンドプロンプトでの実行を強制します
※ cc bcc HTML メール は、さらに下の記事です 汎用コード( cdo_gmail.vbs ) Yahoo! の場合の設定部分 / サーバー、ユーザ等
拡張子:
<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン
************************************************************
</COMMENT>

<SCRIPT language="VBScript" src="http://lightbox.in.coocan.jp/laylaClass.vbs"></SCRIPT>
<SCRIPT language="VBScript">
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )
Call laylaLoadFunction( "toolFunction.vbs" )

Crun

' ***********************************************************
' ファイル添付なし
' ***********************************************************
result = CDOSendMail( _
	"smtp.gmail.com:465:ssl", _
	"あなたです <xxxxxxxx@nifty.com>", _
	"わたしです <xxxxxxxx@gmail.com>" & vbTab & "xxxxxxxx:パスワード", _
	"件名の文字列 : " & Now(), _
	"テキスト本文" & vbCrLf & "改行は vbCrLf" , _
	"" _
)
if result = "" then
	Wscript.Echo "送信が完了しました"
else
	Wscript.Echo result
end if

' ***********************************************************
' ファイル添付あり
' ***********************************************************
result = CDOSendMail( _
	"smtp.gmail.com:465:ssl", _
	"あなたです <xxxxxxxx@nifty.com>", _
	"わたしです <xxxxxxxx@gmail.com>" & vbTab & "xxxxxxxx:パスワード", _
	"件名の文字列 : " & Now(), _
	"テキスト本文" & vbCrLf & "改行は vbCrLf" , _
	"C:\Users\lightbox\Desktop\画像\_img.jpg" _
)
if result = "" then
	Wscript.Echo "送信が完了しました"
else
	Wscript.Echo result
end if

' ***********************************************************
' ファイル添付あり( 複数 )
' ***********************************************************
result = CDOSendMail( _
	"smtp.gmail.com:465:ssl", _
	"あなたです <xxxxxxxx@nifty.com>", _
	"わたしです <xxxxxxxx@gmail.com>" & vbTab & "xxxxxxxx:パスワード", _
	"件名の文字列 : " & Now(), _
	"テキスト本文" & vbCrLf & "改行は vbCrLf" , _
	"C:\Users\lightbox\Desktop\画像\_img.jpg" & vbTab & "C:\Users\lightbox\Downloads\del.gif" _
)
if result = "" then
	Wscript.Echo "送信が完了しました"
else
	Wscript.Echo result
end if

</SCRIPT>
</JOB>