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: 

Código:

)

  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.

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

Esto funcionó para mí.

Código:

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]

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

Buenas tardes,

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

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

     

Código:

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

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.