Monclova, Coahuila
' gambas class file
PUBLIC imagen AS String
PUBLIC ruta AS String
PUBLIC archivo AS String
PUBLIC SUB Form_Open()
ME.Center()
ME.Title = "Envío de FACTURA "
END
PUBLIC SUB DirView1_Click()
FileView1.Dir = DirView1.Current
END
PUBLIC SUB FileView1_Click()
DIM tamano AS Integer
ruta = DirView1.Current
archivo = FileView1.Current
tamano = FileView1.Width
imagen = ruta & "/" & archivo
TextBox3.Text = imagen
PictureBox1.Picture = Picture[imagen]
END
PUBLIC SUB Button3_Click()
ME.Close
END
PUBLIC SUB Button2_Click()
DIM Correo AS SmtpClient
DIM remitente AS String
DIM Asunto AS String
DIM Mensaje AS String
Asunto = (TextBox1.Text)
' remitente = "micuenta@miservidor.com"
Mensaje = "<body><img src='http://www.miservidor.com/facturas/" & archivo & "'></body>"
'Envío del mensaje
Correo = NEW SmtpClient
Correo.To.Add(TextBox2.Text)
Correo.From = "micuenta@miservidor.com"
Correo.Subject = Asunto
Correo.Host = "mail.miservidor.com"
Correo.Port = "26"
Correo.Add(Mensaje, "text/html")
Correo.Send()
message.Info("Mensaje Enviado")
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox2.SetFocus
END
PUBLIC SUB Button1_Click()
DIM FtpBCM AS NEW FtpClient
DIM servidor AS String
DIM usuario AS String
DIM llave AS String
DIM directorio AS String
directorio = "/httpdocs/facturas/"
servidor = "miservidor.com"
usuario = "usuario"
llave = "llave"
'Envío del FTP
FtpBCM.URL = servidor & directorio & archivo
FtpBCM.Timeout = 60
FtpBCM.User = usuario
FtpBCM.Password = llave
FtpBCM.Put(imagen)
TextBox4.Text = FtpBCM.Status
DO UNTIL FtpBCM.Status <= 0
IF FtpBCM.Status = 6
TextBox4.Text = "Conectando con servidor remoto (status:" & FtpBCM.Status & ")"
END IF
IF FtpBCM.Status = 4
TextBox4.Text = "Enviando archivo al servidor (status:" & FtpBCM.Status & ")"
END IF
IF FtpBCM.Status = 0
TextBox4.Text = "En espera (status:" & FtpBCM.Status & ")"
END IF
WAIT 0.01
LOOP
TextBox4.Text = "Transferencia terminada"
FtpBCM.Close()
END
PUBLIC SUB TextBox4_KeyPress()
END
PUBLIC imagen AS String
PUBLIC ruta AS String
PUBLIC archivo AS String
PUBLIC SUB Form_Open()
ME.Center()
ME.Title = "Envío de FACTURA "
END
PUBLIC SUB DirView1_Click()
FileView1.Dir = DirView1.Current
END
PUBLIC SUB FileView1_Click()
DIM tamano AS Integer
ruta = DirView1.Current
archivo = FileView1.Current
tamano = FileView1.Width
imagen = ruta & "/" & archivo
TextBox3.Text = imagen
PictureBox1.Picture = Picture[imagen]
END
PUBLIC SUB Button3_Click()
ME.Close
END
PUBLIC SUB Button2_Click()
DIM Correo AS SmtpClient
DIM remitente AS String
DIM Asunto AS String
DIM Mensaje AS String
Asunto = (TextBox1.Text)
' remitente = "micuenta@miservidor.com"
Mensaje = "<body><img src='http://www.miservidor.com/facturas/" & archivo & "'></body>"
'Envío del mensaje
Correo = NEW SmtpClient
Correo.To.Add(TextBox2.Text)
Correo.From = "micuenta@miservidor.com"
Correo.Subject = Asunto
Correo.Host = "mail.miservidor.com"
Correo.Port = "26"
Correo.Add(Mensaje, "text/html")
Correo.Send()
message.Info("Mensaje Enviado")
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox2.SetFocus
END
PUBLIC SUB Button1_Click()
DIM FtpBCM AS NEW FtpClient
DIM servidor AS String
DIM usuario AS String
DIM llave AS String
DIM directorio AS String
directorio = "/httpdocs/facturas/"
servidor = "miservidor.com"
usuario = "usuario"
llave = "llave"
'Envío del FTP
FtpBCM.URL = servidor & directorio & archivo
FtpBCM.Timeout = 60
FtpBCM.User = usuario
FtpBCM.Password = llave
FtpBCM.Put(imagen)
TextBox4.Text = FtpBCM.Status
DO UNTIL FtpBCM.Status <= 0
IF FtpBCM.Status = 6
TextBox4.Text = "Conectando con servidor remoto (status:" & FtpBCM.Status & ")"
END IF
IF FtpBCM.Status = 4
TextBox4.Text = "Enviando archivo al servidor (status:" & FtpBCM.Status & ")"
END IF
IF FtpBCM.Status = 0
TextBox4.Text = "En espera (status:" & FtpBCM.Status & ")"
END IF
WAIT 0.01
LOOP
TextBox4.Text = "Transferencia terminada"
FtpBCM.Close()
END
PUBLIC SUB TextBox4_KeyPress()
END
