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
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
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]

[Imagen: tiempo1.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
Páginas (557):    1 284 285 286 287 288 557   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 286
Último miembro: Emilio Uribe
Temas del foro: 1,720
Mensajes del foro: 8,935
Últimos temas
Archivos .ods
Foro: General
Último mensaje por: tincho, 01-07-2025, 18:54
Respuestas: 8 - Vistas: 273
Publicidad
Foro: Sobre gambas-es.org
Último mensaje por: tincho, 01-07-2025, 18:48
Respuestas: 6 - Vistas: 332
Web con gambas, a ver si ...
Foro: WebApp/WebForms
Último mensaje por: tincho, 01-07-2025, 17:47
Respuestas: 41 - Vistas: 32,593
Un sistema de ayudas cont...
Foro: Videotutoriales
Último mensaje por: guizans, 22-06-2025, 19:55
Respuestas: 3 - Vistas: 310
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.