Comunidad Gambas-es

ahtonio 07-07-2022, 10:12

Hola, desde hace mucho, mucho tiempo uso el código que se publicó, en el foro para enviar mails a traves de gmail como smtp externo y funcionaba a las mil maravillas.

Se ha actualizado la política de google así:

Aplicaciones menos seguras y la cuenta de GooglePara proteger tu cuenta, a partir del 30 de mayo del 2022, Google dejará de admitir aplicaciones y dispositivos de terceros que te pidan que inicies sesión en tu cuenta de Google usando solo tu nombre de usuario y contraseña.
Importante: Este plazo no se aplica a los clientes de Google Workspace o de Google Cloud Identity. La fecha en que el cambio se implementará para estos clientes se anunciará en el blog de Workspace más adelante.
Para obtener más información, sigue leyendo.

Y desde ese momento no funciona mi rutina para enviar pedidos que iba tan bien. He cambiado servidor, puerto, Encrypt, etc y no lo consigo.
Como veréis arrastro el problema desde mayo, no es que no lo haya probado. Incluso lo he intentado con un servicio propio de mi dominio y no consigo que se envie nada. Me da error de Conexion failed y otro de EHLO.
¿Que hay que cambiar para seguir usándolo? o es gb.net.smtp que ha dejado de funcionar (cosa que dudo)
Me da igual usar una cuenta de mi dominio si con gmail ya no se puede hacer... pero como lo arreglo o configuro?

Gracias

El código es:

Código:
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 hfile As File

    Dim archivo As String

    Dim destinatarios As String

    Dim textoplano As String

    Dim destino As String

    Dim enviador As New SmtpClient

    Dim campos As New String[]

    Application.busy = 1

    enviador.host = usu.mihost '"miservidor de correo"

    enviador.user = usu.miusuariodecorreo ' "miusuariodecorreo"

    enviador.password = usu.miclavedeusuariodecorreo ' "miclavedeusuariodecorreo"

    enviador.Encrypt = Net.SSL

    If Not cFrom Then cFrom = usu.micuentacorreo ' "micuenta@remitentedecorreo"

    enviador.Alternative = True

    enviador.Port = 465

    enviador.From = cFrom

    For Each destino In aTo

        enviador.to.Add(destino)

    Next

    enviador.Subject = cAsunto

    ' enviador.Add(cTexto, "text/plain")

    enviador.Add(cTexto, "text/html")

    Try enviador.send

    If Error Then

        Application.busy = 0

        Message.Error("No se ha podido enviar el mensaje\n" & Error.Text)

        Return

    Endif

    Application.busy = 0

    Message.Info("Mensaje enviado")

    ' Como no ha habido error, guardamos los datos de enviado

    ' para saber que se ha enviado correctamente... (persistencia)

    archivo = Settings["DATOS/basedatos"] &/ "correo/enviados.csv"

    If Not Exist(archivo) Then

        ' Aqui puede fallar sin hay mas de 1 nivel de

        ' directorio sin crear por encima de archivo.

        If Not Exist(File.Dir(archivo)) Then

            Print "Como no existe creamos " & File.Dir(archivo)

            Try Mkdir File.Dir(archivo)

            If Error Then Print Error.Text

        Endif

        campos.Add("fecha")

        campos.Add("destinatiarios")

        campos.Add("asunto")

        campos.Add("desde")

        campos.Add("mensaje")

        CSVwriter.create(archivo, campos)

    Else

        CSVwriter.Open(archivo)

    Endif

    destinatarios = aTo.Join("|")

    ' Cambio los ; del texto por } y las newline por |

    ' Al leer habrá que reconstruir

    'textoplano = Replace(cTexto, ";", "}")

    'textoplano = Replace(textoplano, gb.NewLine, "|")

    textoplano = Replace(Replace(ctexto, ";", "}"), gb.newline, "|")

    campos.Clear

    campos.Add(Format(Date(), "dd/mm/yyyy"))

    campos.Add(destinatarios)

    campos.Add(cAsunto)

    campos.Add(usu.miusuariodecorreo)

    campos.Add(textoplano)

    CSVwriter.Write(campos)

    CSVwriter.Close()

End

General Respuestas 4

¿ Teneís problemas para convertir un proyecto de Gambas2 ?

Shell 07-07-2022, 00:10

Buenas!.

Parece que tengo problemas para convertir ejemplos de Gambas 2 a Gambas 3.17.2

[Imagen: pcoUsnb.png]

Y después de darle al botón de ok me muestra esto:

[Imagen: 7pVwVmX.png]

Creo que lo esta haciendo con todos los de Gambas2.

Probaré en otra distro.

Saludos

General Respuestas 4

Visualizador tiempo atmosférico. Forecast

seta43 04-07-2022, 22:05

Página principal

El Tiempo - Forecast
Gambas

Con el lenguaje Gambas hacer programas es fácil, y como muestra es este.
Son dos programas:
-El uno toma la IP y localiza el lugar de donde se pide la información del tiempo.
-El segundo programa nos pide el lugar de donde queremos que muestre el tiempo atmosférico
Los datos se toman de la página:
http://wttr.in/?lang=es
Es una página que muestra la información en modo texto.
Para extraer los datos que usará nuestro programa hacemos uso del comando curl , este programa normalmente se encuentra de serie instalado en Linux
[Imagen: tiempo0.jpg]

He añadido también los programas compilados en Debian9 32Bits, que funcionan bien en Debian11 64Bits.
En versiones antiguas de gambas, no funcionaba bien las transparencias ni las fuentes en modo gráfico.
Los datos que proporciona wttr.in proceden de diferentes sitios, por lo que deberemos seleccionar el mejor vd que se adapte a nuestra zona.
Otra posibilidad es de colocar los códigos de los aeropuertos, en : http://www.airportsinspain.net/list-of-a...s-in-spain se pueden encontrar.
Como ejemplo: Barajas Airport ->MAD, Barcelona-> BCN

VIDEO

PROGRAMAS

Saludos.
seta43

Aplicaciones/Fragmentos de Código Respuestas 4

Páginas (557): 1 … 284 285 286 287 288 … 557

Bienvenido, Invitado

Buscar en los foros

Estadísticas del foro

Miembros: 286

Último miembro: Emilio Uribe

Temas del foro: 1,720

Mensajes del foro: 8,935

Últimos temas

Portal

ahtonio 07-07-2022, 10:12

Shell 07-07-2022, 00:10

seta43 04-07-2022, 22:05

GauchoCAD vuelve a las pi...

Archivos .ods

Publicidad

Web con gambas, a ver si ...

Un sistema de ayudas cont...