Enviar_Correo

Creado por David Miralpeix, Modificado el Mar, 13 Ene a 12:26 P. M. por Duncan Rua

Libreria	Clase	Metodo
AhoraAsistentes	Asistentes	Enviar_Correo

Implementación:

 Public Sub Enviar_Correo(
     aCn As Conexion,
     aPrevisualizar As Boolean,
     aUsuario As String,
     Optional aAsunto As String,
     Optional aDetalle As String,
     Optional aArchivo As String,
     Optional aRutaArchivo As String,
     Optional aCopia As String,
     Optional aCopiaOculta As String)

Descripción:

Envío de correos electrónicos. Permite enviar también links o documentos por adjuntos.

Ejemplo de uso:

Código VB6:

 lEmail = "pruebas@acme.com"
 lAsunto = "Asunto de prueba"
 lTexto = "Texto de prueba"
  
 gCn.AhoraProceso "Enviar_Correo", False, gCn, True, lEmail, lAsunto, lTexto

Código C#:

using AhoraCore;
using AhoraOCX;
using AhoraSistema;
using static AhoraCore.VBA.Interaction;
using static AhoraCore.VbMsgBoxResult;
using static AhoraCore.VbMsgBoxStyle;
using System;
using System.Drawing;

namespace AhoraScriptsVacia
{
    public class Script_17 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {
            bool previsualizar = true;
            IItemColeccion objcorreo = gCn.Obj.DameObjeto("Articulos", "WHERE IdDoc=1");
            AhoraCore.IVB6Collection<Valor> paramcorreo = null;
            paramcorreo = gCn.DameNewCollection();
            paramcorreo.Add(AhoraCore.VBA.Conversion.CStr(objcorreo.Tipo));
            paramcorreo.Add(1);
            paramcorreo.Add(DBNull.Value);
            string cadcorreo = "";
            if (gCn.EjecutaStoreCol("PDameEmail", paramcorreo))
            {
                cadcorreo = paramcorreo[3];
            }
            gCn.AhoraProceso("Enviar_Correo", out _, gCn, previsualizar, cadcorreo, "ASUNTO DEL CORREO", "CUERPO DEL MENSAJE", null, "C:\\TEMP\\cc_installer.log");
        }
    }
}

NOTA: Este proceso a partir de la versión 5 abre el gestor de correo predeterminado con el texto y documentos adjuntos indicados y no es posible usarlo para el envío directo de correos. Para ello tendrán que desarrollar dicha funcionalidad basándose en la librería de System Net Mail.

Activar enviar por correo desde el ERP:

Enviar por correo desde la factura:

NOTA: Indicar un correo al empleado, cliente y contacto asociado a la factura.

Error encontrado:

NOTA: Crea un usuario de Windows que sea administrador, en aplicaciones predeterminadas busca la aplicación (Outlook o Thunderbird dependiendo del que utilices) y asigna el Outlook a todos los tipos de archivos predeterminados o tipos de vínculos que aparecen. En Outlook establece una cuenta predeterminada.
Por último ejecuta el ERP en modo administrador y vuelve a enviar por correo.