olesession = createobject("MSMAPI.MAPISession")
olemessage = createobject("MSMAPI.MAPIMessages")
oleSession.Signon
oleMessage.SessionID = oleSession.SessionID
oleMessage.Compose
oleMessage.RecipIndex = 0
oleMessage.RecipDisplayName = "log@"+pub_dominio	
oleMessage.ResolveName
oleMessage.MsgSubject = 'bkp'
oleMessage.AttachmentIndex = 0
oleMessage.AttachmentPathName = "bkp.htm"
oleMessage.Send(0)
oleSession.Signoff