&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()