VBScriptからSMTPでGmail送信

Gmail の SMTP サーバと CDO コンポーネントを使ってメール送信 - テクノドア～のBlog



Set oMsg = CreateObject("CDO.Message")
oMsg.Fields.Item("urn:schemas:mailheader:X-Mailer") = "Your Mailer Name"
oMsg.Fields.Update()

oMsg.From = "from@mail.address.somewhere"

oMsg.To = "to@mail.addresss.somewhere"

oMsg.Subject = "Your Subject"
oMsg.TextBody = "Your Message"
oMsg.TextBodyPart.Charset = "ISO-2022-JP"
schemas = "http://schemas.microsoft.com/cdo/configuration/"
oMsg.Configuration.Fields.Item (schemas & "sendusing") = 2
oMsg.Configuration.Fields.Item (schemas & "smtpserver") = "smtp.gmail.com"
oMsg.Configuration.Fields.Item (schemas & "smtpserverport") = 465
oMsg.Configuration.Fields.Item (schemas & "smtpauthenticate") = true

oMsg.Configuration.Fields.Item (schemas & "sendusername") = "from@mail.address.somewhere"

oMsg.Configuration.Fields.Item (schemas & "sendpassword") = "YourGmailPassword"
oMsg.Configuration.Fields.Item (schemas & "smtpusessl") = true
oMsg.Configuration.Fields.Update
oMsg.Send
Set oMsg = Nothing


＠IT：Windows TIPS -- Tips：Windows標準機能とWSHを使ってメールを送信する: "CDO"

Microsoft ネットワークを解剖する第3回「ブラウジング機能」

Microsoft ネットワークを解剖する第3回「ブラウジング機能」
NetBIOSネームサービスでネットワーク内の端末をリアルタイムに列挙する：CodeZine