こんにちは、ジンです。
VBScriptでメールを送信するサンプルを書いておきます。
Dim oMsg Set oMsg = CreateObject("CDO.Message") oMsg.From = "ここに送信元のメールアドレスを記入します" oMsg.To = "ここに送信先のメールアドレスを記入します" oMsg.Subject = "ここにメールのタイトルを記入します" oMsg.TextBody = "ここに本文を書きます" oMsg.TextBodyPart.Charset = "ISO-2022-JP" oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTPサーバーのアドレスを記入します" oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 '場合によっては以下の設定が必要 'oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = true 'oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ここにアカウント名" 'oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ここにメールのパスワード" oMsg.Configuration.Fields.Update oMsg.Send Set oMsg = Nothing |