Enviar_Correo

Creado por David Miralpeix, Modificado el Vie, 16 Feb a 12:26 P. M. por David Miralpeix

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.