Buenas noches Señores, tengo este código que cuando lo ejecuto me sale el error "Error definido por la aplicacion o el objeto vba", ya he revisado todo y he intentado de todo pero no encuentro el error, recurro a su apoyo y experiencia para encontrar y solucionar ese error, muchas gracias. PD: distorsione el correo y la clave de acceso **************************************** Sub ENVIO_CORREOS_202() 'Definiciones para el correo 203 Dim Email As CDO.Message Dim Remitente As String Dim Pass As String Dim Destinatario As String Dim Asunto As String Dim Cuerpo As String 'Definiciones para archivo 203 Dim RutaTemporal As String Dim NombreTemporal As String Dim RutaCompleta With Application .ScreenUpdating = False .EnableEvents = False End With 'Creación del archivo temporal 203 RutaTemporal = Environ$("temp") & "\" NombreTemporal = Sheets("201-202").Range("G34") & ".pdf" RutaCompleta = RutaTemporal & NombreTemporal On Error GoTo Err Sheets("201-202").Range("A29:F43").ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=RutaCompleta, _ quality:=xlQualityStandard, _ includedocproperties:=True, _ ignoreprintareas:=False, _ openafterpublish:=False 'Información para el correo 203 Set Email = New CDO.Message Remitente = "adxxxxxxx2@rodacorp.com.pe" Pass = "xxxxxx" Destinatario = "javier.15.897@gmail.com,javier_15_897@hotmail.com" Asunto = Sheets("201-202").Range("G29") Cuerpo = Sheets("201-202").Range("32") Email.CC = "rodacorp.asistente@gmail.com" Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 With Email.Configuration.Fields .Item("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(25) .Item("https://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1) .Item("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("https://schemas.microsoft.com/cdo/configuration/sendusername") = Remitente .Item("https://schemas.microsoft.com/cdo/configuration/sendpassword") = Pass .Item("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End With With Email .To = Destinatario .From = Remitente .Subject = Asunto .TextBody = Cuerpo .AddAttachment RutaCompleta .Configuration.Fields.Update On Error Resume Next .Send End With If Err.Number = 0 Then MsgBox "Se enviaron los correos a Tipuanas con Exito", vbInformation, "RODACORP S.A.C" Else MsgBox "Se produjo el siguiente error: " & vbNewLine & _ Err.Description, vbCritical, "Error No. " & Err.Number End If On Error GoTo 0 Kill RutaCompleta With Application .ScreenUpdating = True .EnableEvents = True End With Exit Sub Err: MsgBox Err.Description, vbCritical + vbOKOnly, Err.Number End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Error definido por la aplicacion o el objeto vba

Autor del tema greco
Fecha de inicio 25 Sep 2018

greco

New member

25 Sep 2018

Buenas noches Señores, tengo este código que cuando lo ejecuto me sale el error "Error definido por la aplicacion o el objeto vba", ya he revisado todo y he intentado de todo pero no encuentro el...

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í

Iniciar sesión o registrarme para responder aquí.

Temas similares

Resuelto

Macro envío de mails - error "no se ha definido el tipo definido por el usuario"

Respuestas: 5

20 Ago 2024

silver_axe007

Resuelto

Eliminar error 1004 (Error definido por la aplicación o el objeto).

Respuestas: 2

8 Mar 2022

Pezquita

Resuelto

Error definido por la aplicación o el objeto

Respuestas: 7

21 Oct 2021

Fernandoguerrerol

Pregunta

Error 1004: error definido por la aplicación o el objeto

Respuestas: 11

13 Jul 2020

zepp

Pregunta

Error VBA 1004. error definido por la aplicación o el objeto.

Respuestas: 4

16 Dic 2019

Leopoldo Blancas

Pregunta

Error 1004 : Error definido por la aplicación o por el objeto

Respuestas: 4

15 Nov 2019

Leopoldo Blancas

Pregunta

Error definido por la aplicación o el objeto (Al accionar botón)

Respuestas: 0

28 May 2019

Eze.Pauer

Pregunta

error definido por la aplicación o el objeto en Multiplerang

Respuestas: 21

14 Nov 2018

Marmarita

Pregunta

Mensaje de error definido por la aplicacion o el objeto

Respuestas: 3

12 Jun 2017

Cacho R

Pregunta

Error 1004 error definido por aplicación u objeto

Respuestas: 1

5 May 2017

erikagriffiths

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba