▼ VBScript
▼ JScript
コマンドプロンプトから、以下のようにしてテストしています
cscript mail.vbs
cscript mail.js
ssl を使用( ポート 465 )するので、smtpusessl が true になっています。
mail.vbs
' ***********************************************************
' 使用するパラメータ
' ***********************************************************
strFrom = "わたしです <ロリポップメールアドレス>"
strTo = "あなたです <送り先メールアドレス>"
strServer = "smtp.lolipop.jp"
nPort = 465
strUser = "ロリポップメールアドレス"
strPass = "パスワード"
' ***********************************************************
' オブジェクト
' ***********************************************************
Set Cdo = WScript.CreateObject("CDO.Message")
' ***********************************************************
' 自分のアドレスと宛先
' ***********************************************************
Cdo.From = strFrom
Cdo.To = strTo
' ***********************************************************
' 件名と本文
' ***********************************************************
Cdo.Subject = "件名の文字列 / " & Now()
Cdo.Textbody = "テキスト本文" & vbCrLf & "改行は vbCrLf"
' ***********************************************************
' CC BCC HTMLメール( CC BCC はどちらか片方 )
' ※ 両方指定すると CC
' ***********************************************************
Cdo.Cc = "メールアドレス1,メールアドレス2"
'Cdo.Bcc = "メールアドレス3,メールアドレス4"
Cdo.Htmlbody = "<img src=""https://winofsql.jp/image/winofsql.png"">"
' ***********************************************************
' ファイル添付あり
' ***********************************************************
Cdo.AddAttachment( "C:\Users\sworc\Pictures\0152-ac.jpg" )
Cdo.AddAttachment( "C:\Users\sworc\Pictures\ai\2022-08-24-1.png" )
' ***********************************************************
' 設定
' ***********************************************************
Cdo.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Cdo.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strServer
Cdo.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = nPort
Cdo.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
Cdo.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Cdo.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = strUser
Cdo.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPass
' ***********************************************************
' 設定の反映
' ***********************************************************
Cdo.Configuration.Fields.Update
' ***********************************************************
' 送信
' ***********************************************************
on error resume next
Cdo.Send
if Err.Number <> 0 then
strMessage = Err.Description
else
strMessage = "送信が完了しました"
end if
on error goto 0
Wscript.Echo strMessage
mail.js
// ***********************************************************
// 使用するパラメータ
// ***********************************************************
var strFrom = "わたしです <ロリポップメールアドレス>";
var strTo = "あなたです <送り先メールアドレス>";
var strServer = "smtp.lolipop.jp";
var nPort = 465;
var strUser = "ロリポップメールアドレス";
var strPass = "パスワード";
// ***********************************************************
// オブジェクト
// ***********************************************************
var Cdo = WScript.CreateObject("CDO.Message")
// ***********************************************************
// 自分のアドレスと宛先
// ***********************************************************
Cdo.From = strFrom
Cdo.To = strTo
// ***********************************************************
// 件名と本文
// ***********************************************************
Cdo.Subject = "件名の文字列 / " + new Date();
Cdo.Textbody = "テキスト本文\r\n改行は \\r\\n";
// ***********************************************************
// CC BCC HTMLメール( CC BCC はどちらか片方 )
// ※ 両方指定すると CC
// ***********************************************************
Cdo.Cc = "メールアドレス1,メールアドレス2"
//Cdo.Bcc = "メールアドレス3,メールアドレス4"
Cdo.Htmlbody = "<img src=\"http://winofsql.jp/image/winofsql.png\">"
// ***********************************************************
// ファイル添付あり
// ***********************************************************
Cdo.AddAttachment( "C:\\Users\\sworc\\Pictures\\0152-ac.jpg" )
Cdo.AddAttachment( "C:\\Users\\sworc\\Pictures\\ai\\2022-08-24-1.png" )
// ***********************************************************
// 設定
// ***********************************************************
Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strServer
Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = nPort
Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strUser
Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPass
// ***********************************************************
// 設定の反映
// ***********************************************************
Cdo.Configuration.Fields.Update()
// ***********************************************************
// 送信
// ***********************************************************
var strMessage
try {
Cdo.Send()
strMessage = "送信が完了しました"
}
catch ( error ) {
strMessage = error.message;
}
WScript.Echo( strMessage );
【VBScript関連のカテゴリ】
※ エキスパートモードで表示しています
アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります
