GeneXus - envio de emails

&smtp.Host = &Serv (SMTP.SMTPDIR.COM.AR)

&smtp.Sender.Address = &RMail //Email remitente manda el mail 

&smtp.Sender.Name = &RNom //Nombre remitente 

&smtp.ErrDisplay = 1 //Si hay error 

&smtp.Login()

&Mail.Clear()

&Mail.To.New(&To, &To)

&Mail.Subject = &Asunto

&Mail.Text = &TexMail

&smtp.AttachDir = 'C:Directorio'

&Mail.Atachments.Add('Archivo.ext') // &archivo 

&smtp.Send(&Mail)

&smtp.Logout()