'Timelog簡易メール投稿スクリプト by Mah

'個人設定部分↓---------------------------------------------------------------------------------
strSMTPServer = "smtp.xxxx.co.jp"                           'SMTPサーバ名
intSMTPPort = 25                                            'SMTPポート番号　通常は25
strFromAddress = "yyyy@xxxx.co.jp"                          'Timelogに登録してあるメールアドレス
strToAddress = "xxxxxxxxxxxxxxxxxx@post.timelog.jp"         'Timelogメール送信先アドレス
'個人設定部分↑---------------------------------------------------------------------------------

Set objArgs = WScript.Arguments
Set oMsg = CreateObject("CDO.Message")
oMsg.From = strFromAddress
oMsg.To = strToAddress
oMsg.Subject = ""
strText = ""
strText = InputBox("メモの本文を入力してください。空打ち・キャンセルをすると投稿されません。","投稿確認",strText)
If strText <> "" Then
    oMsg.TextBody = strText
    strAttach = ""
    For Each n in objArgs
        oMsg.AddAttachment n
    Next
    oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer
    oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = intSMTPPort
    oMsg.Configuration.Fields.Update
    oMsg.Send
End If