send by gmail for select folder files.(指定したフォルダの全てのファイルをGメールで送信する)

sendfilebygmail.vbs

On Error Resume Next

folder = "" ' フォルダ
from = ""   ' 送信元メールアドレス
sendto = "" ' 送信先メールアドレス
user = ""   ' ユーザID
pass = ""   ' パスワード

Set fso = CreateObject("Scripting.FileSystemObject")
Set src = fso.GetFolder(folder)

For Each FileName In src.Files
	Set oMsg = CreateObject("CDO.Message")
	url = "http://schemas.microsoft.com/cdo/configuration/"
	oMsg.From = from
	oMsg.To = sendto
	oMsg.Configuration.Fields.Item(url & "sendusing") = 2
	oMsg.Configuration.Fields.Item(url & "smtpserver") = "smtp.gmail.com"
	oMsg.Configuration.Fields.Item(url & "smtpauthenticate") = 1
	oMsg.Configuration.Fields.Item(url & "sendusername") = user
	oMsg.Configuration.Fields.Item(url & "sendpassword") = pass
	oMsg.Configuration.Fields.Item(url & "smtpserverport") = 465
	oMsg.Configuration.Fields.Item(url & "smtpusessl") = True
	oMsg.Configuration.Fields.Item(url & "smtpconnectiontimeout") = 60
	oMsg.Configuration.Fields.Update

	oMsg.Subject = ""
	oMsg.TextBody = ""
	oMsg.AddAttachment FileName
	oMsg.Send
	Set oMsg = Nothing
Next

WScript.Quit