[calcena]

Buenas a todos en esta nueva y muy modernizada versión del foro. He buscando en el anterior foro (historial) sobre cómo adjuntar un archivo utilizando Gambas, y he encontrado la forma de poder pasarlo a formato html pero no la de realizar un attach de un archivo: 

GAMBAS

Public Sub enviarmail(aTo As String[], cAsunto As String, cTexto As String, Optional cFrom As String, Optional bcc As String[], Optional adjuntos As Variant[])
 
  Dim destino As String
  Dim enviador As New SmtpClient
 
  enviador.host = "miservidor de correo"  'Estos datos que te pongo entre comillados no los recibo como parámetros, por cuanto los saco de una clase "Usuario" que se instancia en el momento del login  
  enviador.user = "miusuariodecorreo"
  enviador.password = "miclavedeusuariodecorreo"
  If Not cFrom Then cFrom = "micuenta@remitentedecorreo"
  enviador.Alternative = True
  enviador.From = cFrom
  For Each destino In aTo
      enviador.to.Add(destino)
  Next
  enviador.Subject = cAsunto
  enviador.Add(cTexto, "text/plain")
  enviador.send  
    
End​​​​​​

Es posible que sea añadiendo un:

enviador.Add(... ,"application/pdf", "nombre del archivo)    ????

El attachment sería siempre de un pdf.

gracias y saludos.

[gambafeliz]

Te pregunto desde el desconocimiento total desde gambas. Si se pero en Visual Basic y con un servidor smtp elegido por mi.

¿Has probado el código que has puesto?

¿Te funciona lo que has puesto?

Solo me refiero al código antes de añadir un archivo adjunto.

Saludos

[cogier]

Esto funcionó para mí.

GAMBAS

Public Sub Form_Open ()
 
  Dim sender As New SmtpClient
  Dim sAttach As String = File.Load ("Text1.pdf")
 
  sender.host = "mail.world.com"
  sender.User = "charlie@world.com "
  sender.password ="xxxxxxxx "
  sender.From ="charlie@world.com "
  sender.To.add ("calcena@world.com ")
  sender.From ="charlie@world.com "
  sender. Subject = "Sending subject"
  sender.Body = "Hello me, it's me!"
  sender.Add (sAttach, "application / pdf", "Text1.pdf")
 
  sender.send
 
End

[/b]

[calcena]

@cogier, perfecto !! esto es lo que me faltaba, introducir la parte del String que realiza el Load del archivo.
Muchas gracias por vuestra ayuda.

[irrimtzi]

Buenas tardes,

Alguien sabe como configurar el smtp  para que funcione con gmail?

siempre me sale error de conexión con el servidor.

     

GAMBAS

sender.host = "smtp.gmail.com"
      sender.User = "ppppp@gmail.com "
      sender.password = "xxxx "
      sender.Authentication = 0
      sender.From = "ppppp@gmail.com "
      sender.To.add(Destinatario)
      sender.From = "ppppp@gmail.com "
      sender.Subject = Asunto
      sender.Body = cos_missatge
      sender.Add(sAttach, "application / pdf", Adjuntar)
      sender.send

[tincho]

En este tema del foro anterior tal vez encuentrs algo
https://foro.gambas-es.org/viewtopic.php...smtp+gmail

    SmtpClient1.Host = "smtp.googlemail.com"
    SmtpClient1.User= "miusuario"
    SmtpClient1.Password= "micontraseña"
    SmtpClient1.Encrypt = Net.SSL
    SmtpClient1.Port = 465
    SmtpClient1.to.Add(para.Text)
    SmtpClient1.From = de.Text
    SmtpClient1.Subject = asunto.Text
    SmtpClient1.Add(texto.Text)
    SmtpClient1.Send()

Saludos.