コメント |
@SHOW
CC BCC はどちらか片方で、両方指定すると CC になります。
@c:red(▼ cdo_gmail2.wsf)
@END
@DIV
<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
' ***********************************************************
' CC + HTML メール
' ***********************************************************
result = CDOSendMail2( _
"smtp.gmail.com:465:ssl", _
"あなたです <xxxxxxxx@nifty.com>", _
"わたしです <xxxxxxxx@gmail.com>" & vbTab & "xxxxxxxx:パスワード", _
"件名の文字列 : " & Now(), _
"テキスト本文" & vbCrLf & "改行は vbCrLf" , _
"C:\Users\lightbox\Desktop\画像\_img.jpg" , _
"宛先1,宛先2", _
"", _
"<img src=""http://winofsql.jp/image/winofsql.png"">" _
)
if result = "" then
Wscript.Echo "送信が完了しました"
else
Wscript.Echo result
end if
' ***********************************************************
' BCC
' ***********************************************************
result = CDOSendMail2( _
"smtp.gmail.com:465:ssl", _
"あなたです <xxxxxxxx@nifty.com>", _
"わたしです <xxxxxxxx@gmail.com>" & vbTab & "xxxxxxxx:パスワード", _
"件名の文字列 : " & Now(), _
"テキスト本文" & vbCrLf & "改行は vbCrLf" , _
"C:\Users\lightbox\Desktop\画像\_img.jpg" , _
"", _
"宛先1,宛先2", _
"" _
)
if result = "" then
Wscript.Echo "送信が完了しました"
else
Wscript.Echo result
end if
' ***********************************************************
' HTML メール
' ***********************************************************
result = CDOSendMail2( _
"smtp.gmail.com:465:ssl", _
"あなたです <xxxxxxxx@nifty.com>", _
"わたしです <xxxxxxxx@gmail.com>" & vbTab & "xxxxxxxx:パスワード", _
"件名の文字列 : " & Now(), _
"テキスト本文" & vbCrLf & "改行は vbCrLf" , _
"C:\Users\lightbox\Desktop\画像\_img.jpg" , _
"", _
"", _
"<img src=""http://winofsql.jp/image/winofsql.png"">" _
)
if result = "" then
Wscript.Echo "送信が完了しました"
else
Wscript.Echo result
end if
</SCRIPT>
</JOB>
@END |