Dim smtp1 As SMTP
smtp1.Initialize("mail.xxx.com",587,"user id","password","s")
smtp1.To.Add(recepient emailid)
smtp1.Subject="Subject line"
smtp1.Body="Dear User, xxxx"
smtp1.Sender="sender name"
smtp1.UseSSL=True
smtp1.StartTLSMode=True
smtp1.AuthMethod=smtp1.AUTH_LOGIN
smtp1.Send