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

Tutorial Internet (1): Crear una cuenta de correo

Tutorial Internet (1):

 Crear una cuenta de correo

Lo primero que tenemos que hacer cuando tenemos internet es crearnos una cuenta de correo para que podamos recibir y enviar correos a amigos, empresas, apuntarnos a foros, etc...

Existen varios servicios gratuitos que os proporcionan una cuenta de correo gratuito, entre ellos:

• http://outlook.com/
• http://gmail.com/
• https://es.mail.yahoo.com/?.intl=es&.lang=es-ES

En el siguiente video os explico como crear una cuenta de correo en yahoo.es

Espero que os sea útil para  los que empezáis con internet.

Saludos

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

Enviar Correos Electrónicos desde vuestros programas.

Enviar Correos Electrónicos 

desde vuestros programas.

Algunas veces necesitamos que nuestro programa mande un correo electrónico a nuestros proveedores, clientes o a nosotros mismos, en determinadas circunstancias, por ejemplo se nos acaba una mercancía y hay que dar el aviso al proveedor, avisar que el cliente de nuevas ofertas, mandarnos datos de la recaudación, etc.

Bien pues en el foro de gambas-es.org (en el hilo http://www.gambas-es.org/viewtopic.php?f=1&t=524&highlight= ), Shordi ha compartido el código de como lo hace, y lo he complementado con un simple formulario para realizar la siguiente aplicación:

Podéis descargarla en la siguiente carpeta de google drive:

Descargar

Espero que os sea útil.

Saludos