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