smtpserver = "smtp.gmail.com"
youremail = "xxx@gmail.com"
yourpassword = "xxx"
youremail = "xxx@gmail.com"
yourpassword = "xxx"
Dim ObjSendMailSet ObjSendMail = CreateObject("CDO.Message")