Gambas3: Enviar un correo y ficheros adjuntos (Actualizacion 2016)

Gambas3: Enviar un correo y ficheros adjuntos

Nos deja Shordi en el foro de gambas-es.org, la funcion que ha realizado para enviar correos electrónicos y fichereos adjuntos:

Public Function sendmail(sFrom As String, aTo As String[], sSubject As String, sBody As String, cServer As Collection, OptionalaBcc As String[], Optional aAttached As String[], Optional ldebug As Boolean) As Boolean

    Dim SmtpC As New SmtpClient
    Dim s, cad, fich, cmime, fname As String

    SmtpC.debug = ldebug
    SmtpC.host = cServer["host"]
    SmtpC.user = cServer["user"]
    SmtpC.password = cServer["password"]
    SmtpC.Encrypt = IIf(cServer["Encrypt"], cServer["Encrypt"], Net.SSL)
    SmtpC.Alternative = False
    SmtpC.From = sFrom
    For Each s In aTo
        SmtpC.To.Add(Replace(s, " ", ""))
    Next
    SmtpC.Subject = sSubject
    SmtpC.Body = sBody
    If Not IsNull(aAttached) Then
        For Each fich In aAttached
            Exec ["file", "-bi", fich] To cmime
            cmime = Left(cmime, InStr(cmime, ";") - 1)
            fname = Right(fich, - RInStr(fich, "/"))
            SmtpC.Add(File.Load(fich), cmime, fname)
        Next
    Endif
    If Not IsNull(abcc) Then
        For Each s In abcc
            SmtpC.bcc.Add(s)
        Next
    Endif
    SmtpC.send
    Return True

Catch

    print Error.text;;Error.where
    Return False

End

Fuentes:
enlace al hilo de http://www.gambas-es.org con el código de la función
enlace al hilo de gambas-es org con programa
enlace al código fuente

Mensa: Enviar correos automáticamente....

Mensa: Enviar correos automáticamente....

Mensa es un programa que envía correos electrónico automáticamente. Organiza los correos en 3 carpetas (por enviar, enviados y otros). Nos permite organizar nuestra agenda de envíos de mensajes, por fecha. Y Una vez enviados, se guardan, para poder luego reenviarlos o reusarlos en otros nuevos mensaje.

Lo podemos instalar como aplicación de inicio, para que cuando encendamos el ordenador, automáticamente mande los mensajes que tiene programados.

Esta seria la forma de configurarlo:



Y os dejo un video explicando todos los detalles del programa:




Código fuente y paquete de instalación: alojado en google drive


Saludos

Julio

Solucionado: Como enviar por Bluetooth, archivos epub en los Smartphones

Solucionado:

 Como enviar por Bluetooth archivos epub en los Smartphones

Durante este verano, conseguí varios libros electrónicos gratuitos por la red. Esta mañana me dispuse a pasarle a un compañero varios de estos, y para no usar la  "linea de datos " y al no tener wifi próximo, lo hicimos por el bluetooh de los móviles que tenemos. (aunque mucha gente no lo sepa, esta es la forma más económica y sencilla de pasar datos de un móvil a otro, sin necesidad de estar conectado a internet.. ni usar el dichoso whatsapp!!!).

El caso que vinculamos los dos móviles (un samsung s2 galaxy y un Nexus 4)  y cuando nos dispusimos a "compartir" (enviar el archivo .epub) de un dispositivo al otro, no había manera... estuvimos un buen rato intentándolo... pero  no pudimos...nos saltaba un error en el movil que enviaba el archivo (el S2) , y en otro (Nexus 4), ni se coscaba... como si no le llegara nada.

Intenté pasarle otro tipo de archivo, un .pdf, y funcionó... ¿cosa extraña, verdad?

Luego le pase otro archivo, un .jpg, y funcionó..... ¿que estraño?

Y se me ocurrió la solución:

-Renombrar el archivo: Cambiar la extensión del archivo ".epub" por ".pdf"...

y enviar ese archivo renombrado por el bluetooth....

Y funcionó !!!

Luego en el otro dispositivo móvil, simplemente le cambiamos la extensión por la de ".epub", y nos descargamos un lector de ebook gratuito (a mi me gusta mucho este: Aldiko ) y ya disfrutar de la lectura.

Conclusión:

Parece que el Nexus 4 (y seguramente otros dispositivos móviles smartphones que tengan la misma versión de Android), tiene "limitado", el recibir ciertos archivos de otros móviles (no se si son por razones de seguridad ¿?), aunque mis ebook eran "libres y gratuitos".

Espero que les sea útil.

Saludos

Julio