Enviar_Correo

Creado por David Miralpeix, Modificado el Fri, 16 Feb 2024 a las 12:26 PM 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.

¿Le ha sido útil este artículo?

¡Qué bien!

Gracias por sus comentarios

¡Sentimos mucho no haber sido de ayuda!

Gracias por sus comentarios

¡Háganos saber cómo podemos mejorar este artículo!

Seleccione al menos una de las razones
Se requiere la verificación del CAPTCHA.

Sus comentarios se han enviado

Agradecemos su esfuerzo e intentaremos corregir el artículo