MACRO no funciona si la pego en otro libro.

[Jonathan Cancelado]

AL PEGAR ESTA MACRO EN OTRO LIBRO SE EJECUTA SIN ERRORES PERO NO ENVIA EL CORREO. ¿QUE PODRA SUCEDER? EN EL LIBRO ORIGINAL SI SE EJECUTA.

Sub CORREO()
'
' CORREO Macro
' ENVIA...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Abraham.Valencia]

Hola

Cuando envíes código, usa la etiqueta respectiva del foro (<vba/>) y así podremos ver mejor las cosas. Segundo, da detalles ¿Pasa con más usuarios? ¿Solo con un usuario? ¿Algún mensaje de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dante Amor M]

Probé el código y me funciona.

Estas líneas no me hacen sentido, bórralas de tu código y prueba nuevamente:

    Set objNamespace = objOutlook.GetNamespace("MAPI")
    objNamespace.Logon...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Probé el código y me funciona.

Estas líneas no me hacen sentido, bórralas de tu código y prueba nuevamente:

    Set objNamespace =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Jonathan Cancelado]

Probé el código y me funciona.

Estas líneas no me hacen sentido, bórralas de tu código y prueba nuevamente:

    Set objNamespace =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dante Amor M]

De tu archivo, la hoja "BASE NOMINA" está vacía.
Puedes explicar de cuál hoja se toman los datos para enviar el correo, porque de esta hoja "BASE NOMINA", pues no va a hacer nada, ya que no hay datos.

 

[Jonathan Cancelado]

De tu archivo, la hoja "BASE NOMINA" está vacía.
Puedes explicar de cuál hoja se toman los datos para enviar el correo, porque de esta hoja...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dante Amor M]

Cambia esta línea:

FilaFinal = RangoNombre.Count + 1

Por esta línea:

FilaFinal = FilaInicial + RangoNombre.Rows.Count - 1

Cuando tienes solamente un...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí