オレのメモ(仮)

ＧＰＯ適用時にエラーだったらメールを飛ばす...とか色々と使えそうなのでmemoしておきます。

Ｇｍａｉｌとか、外部のＳＭＴＰ鯖も使えます。Ｇｏｏｇｌｅから何か言われるかもしれませんが。
以下ソース。

[ mail.vbs ]
---------------------
Option Explicit

Sub mail_send()
    Dim oMsg
    Dim schemas

    Set oMsg = CreateObject("CDO.Message")
    schemas = "http://schemas.microsoft.com/cdo/configuration/"

    oMsg.From = "hogefuga@gmail.com"
    oMsg.To = "test@example.com"
    oMsg.Subject = "Test "
    oMsg.TextBody = "テストメッセージです" & vbCrLf & Now

    oMsg.Configuration.Fields.Item(schemas + "sendusing") = 2
    oMsg.Configuration.Fields.Item(schemas + "smtpusessl") = true
    oMsg.Configuration.Fields.Item(schemas + "smtpauthenticate") = true
    oMsg.Configuration.Fields.Item(schemas + "sendusername") = "hogefuga@gmail．com"
    oMsg.Configuration.Fields.Item(schemas + "sendpassword") = "password"
   
    oMsg.Configuration.Fields.Item(schemas + "smtpserver") = "smtp．gmail．com"
    oMsg.Configuration.Fields.Item(schemas + "smtpserverport") = 25
    oMsg.Configuration.Fields.Update

    oMsg.Send
End Sub

mail_send
[ EOF ]
---------------------