AL RECIBIR EL CORREO LLEGA DE DOCUMENTO ADJUNTO UN FORMATO EN NUMEROS Y CON FORMATO TXT COMO PUEDO HACER PARA QUE SE ADJUNTE EL ARCHIVO DE EXCEL Function EnviarMails_CDO() As Boolean ' Creo la variable de objeto CDO Dim Email As CDO.Message Dim Autentificion As Boolean ' ahora doy vida al objeto Set Email = New CDO.Message 'indicamos los datos del servidor: Email.Configuration.Fields(cdoSMTPServer) = "smtp.live.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 'indicamos el nro de puerto. por defecto es el 25, pero gmail usa el 465. hay otr '(que ahora no recuerdo) pero no me funcionaba... por eso no lo usé mas y lo olvidé Email.Configuration.Fields.Item _ ("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(25) 'aqui dejamos en claro si el servidor que usamos requiere o nó autentificación. '1=requiere, 0=no requiere. Para gmail, entonces, 1 Email.Configuration.Fields.Item("https://schemas.microsoft.com/cdo/" & _ "configuration/smtpauthenticate") = Abs(1) 'segundos para el tiempo maximo de espera. aconsejo no modificarlo: Email.Configuration.Fields.Item _ ("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 'aqui defino como True (verdadera) a la autentificación para el envío de mails. Autentificacion = True 'ahora configuramos las opciones de login de gmail: If Autentificacion Then 'nombre de usuario Email.Configuration.Fields.Item _ ("https://schemas.microsoft.com/cdo/configuration/sendusername") = "micorreo" 'contraseña Email.Configuration.Fields.Item _ ("https://schemas.microsoft.com/cdo/configuration/sendpassword") = "mi clave" 'si el servidor utiliza SSL (secure socket layer). en gmail: True Email.Configuration.Fields.Item _ ("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End If 'a partir de ahora tomaremos los datos incluidos en el la hoja de excel: ' Dirección del Destinatario Email.To = "memocordova@yahoo.com.mx" ' Dirección del remitente Email.From = "memo.cordova@hotmail.com" ' Asunto del mensaje Email.Subject = "___MENSAJE" ' Cuerpo del mensaje Email.TextBody = "expediente" 'Email.AddAttachment = "SOFTWARE ADMISION URGENCIAS.xlsm" ' Email.AddAttachment. "C:\Users\Guillermo\Desktop\SOFTWARE ADMISION URGENCIAS.xlsm" 'Email.Attachments.Add.Filename = "SOFTWARE ADMISION URGENCIAS.xlsm" Email.Attachments.Add Destwb("C:\Users\Guillermo\Desktop\SOFTWARE ADMISION URGENCIAS.xlsm") 'antes de enviar actualizamos los datos: Email.Configuration.Fields.Update 'colocamos un capturador de errores, por las dudas: On Error Resume Next 'enviamos el mail Email.Send 'si el numero de error es 0 (o sea, no existieron errores en el proceso), 'hago que la función retorne Verdadero If Err.Number = 0 Then EnviarMails_CDO = True Else 'caso contrario, muestro un MsgBox con la descripcion y nro de error MsgBox "Se produjo el siguiente error: " & Err.Description, vbCritical, "Error nro " & Err.Number End If 'destruyo el objeto, para liberar los recursos del sistema If Not Email Is Nothing Then Set Email = Nothing End If 'libero posibles errores On Error GoTo 0 'este sub es el que asignaré al botón de la hoja: End Function Sub EnviarMail() Dim MailExitoso As Boolean 'llamo a la funcion: MailExitoso = EnviarMails_CDO() 'si me devuelve un resultado Verdadero, todo salió bien: If MailExitoso = True Then MsgBox "El mail fué enviado satisfactoriamente", vbInformation, "Informe" End If 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.

no puedo anexar archivo a mi macro de correo

Autor del tema Guillermo Kordova
Fecha de inicio 19 Feb 2014

Guillermo Kordova

New member

19 Feb 2014

AL RECIBIR EL CORREO LLEGA DE DOCUMENTO ADJUNTO UN FORMATO EN NUMEROS Y CON FORMATO TXT COMO PUEDO HACER PARA QUE SE ADJUNTE EL ARCHIVO DE EXCEL

Function EnviarMails_CDO() As Boolean
' Creo la...

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

Pregunta

como puedo medir el tiempo de ejcucion de una macro en miliseundos?

Respuestas: 3

29 Dic 2025

Frank2021

Pregunta

No puedo registrar mas de 30k renglones, me genera Error 6)

Respuestas: 6

31 Oct 2025

Ferelias

Resuelto

No puedo desbloquear un archivo descargado de la WEb

Respuestas: 6

22 May 2026

Rosetastone

Resuelto

Cómo puedo poner una casilla con 2 colores y escribir dentro. ?

Respuestas: 3

3 Ene 2025

Héctor Miguel

Pregunta

Cómo puedo agilizar la búsqueda con macro en excel?

Respuestas: 1

11 Oct 2024

Macro Antonio

Resuelto

No puedo usar en VBA nombre de rango definido con constantes entre { }

Respuestas: 10

20 Sep 2024

Goldfinger

Pregunta

Como puedo sacar todos los conceptos de un xml hacia abajo

Respuestas: 0

12 Jul 2024

JUAN1985

Pregunta

cómo puedo copiar un diseño con macros n cantidad de veces

Respuestas: 1

24 Mar 2024

hc3115

Pregunta

VBA- EXCEL - No puedo pegar mis datos en otra hoja

Respuestas: 1

15 Mar 2024

Leopoldo Blancas

Resuelto

Como puedo juntar 2 Worksheet_Change?

Respuestas: 2

9 Ene 2024

Turibreaf1542

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