Comunidad Gambas-es

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 Smile

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.

calcena

gambafeliz

cogier

calcena

irrimtzi

tincho