Macro para enviar hoja de Excel por Correo Electrónico.

Ren, tu código funciona perfectamente. Lo probé en mi
equipo y no generó ningún error. El problema entonces
debe estar en la configuración de tu correo.

Investigando un poco, encontré un vínculo interesante.
Allí se documenta tu problema. Visita esta página:

http://support.microsoft.com/default.aspx?
scid=kb;es;241421

Saludos, y suerte...

Estimados:

Quiero hacer una solicitud de materiales que se elabore

en Excel y cada uno

de mis colegas, al terminarla, presione un

botón "Enviar" y me haga llegar

la comunicación. Sin embargo, he investigado toda esta

tarde y he llegado a

la conclusión que debería usar la instrucción "SendMail"

en una macro. Pero

no me funciona.

Ejemplo:
Sub EnviarHojaPorCorreoElectrónico()
ActiveSheet.Copy
ActiveWorkbook.SendMail

Recipients:="direcció", Subject:="Envío

libro de Excel"
ActiveWorkbook.Close savechanges:=False
End Sub

Pero, al ejecutarla arroja lo siguiente: "Se ha

producido el error '1004' en

tiempo de ejecución. Error en el método "SendMail" de

objeto '_Workbook'.

Presiono "Depurar" y tiñe amarillo la línea que

incluye "SendMail". Sin

saber qué hacer.

Podrían ayudarme?

Atte.

Ren.


.

Estimado David:

Agradezco tu ayuda, pero más que nada por "capacidad neuronal mía", no sé
cómo arreglarlo. Asumo que Microsoft Outlook está bien configurado, por
cuanto, de utilizar la opción "Enviar a: > Destinatario de Correo", la hoja
se envía sin problemas. La idea era facilitar el envío y evitar el rechazo
a la obligación de solicitar materiales por escrito. (Si uno no les entrega
todo listo, se escusan en que es mucho trámite... para que veas)

De todas maneras, nuevamente agradezco tu gentil ayuda.

Atte.

Ren.


"David" escribió en el mensaje
news:73fb01c4cc3f$31ae29c0$
Ren, tu código funciona perfectamente. Lo probé en mi
equipo y no generó ningún error. El problema entonces
debe estar en la configuración de tu correo.

Investigando un poco, encontré un vínculo interesante.
Allí se documenta tu problema. Visita esta página:

http://support.microsoft.com/default.aspx?
scid=kb;es;241421

Saludos, y suerte...

Estimados:

Quiero hacer una solicitud de materiales que se elabore

en Excel y cada uno

de mis colegas, al terminarla, presione un

botón "Enviar" y me haga llegar

la comunicación. Sin embargo, he investigado toda esta

tarde y he llegado a

la conclusión que debería usar la instrucción "SendMail"

en una macro. Pero

no me funciona.

Ejemplo:
Sub EnviarHojaPorCorreoElectrónico()
ActiveSheet.Copy
ActiveWorkbook.SendMail

Recipients:="direcció", Subject:="Envío

libro de Excel"
ActiveWorkbook.Close savechanges:=False
End Sub

Pero, al ejecutarla arroja lo siguiente: "Se ha

producido el error '1004' en

tiempo de ejecución. Error en el método "SendMail" de

objeto '_Workbook'.

Presiono "Depurar" y tiñe amarillo la línea que

incluye "SendMail". Sin

saber qué hacer.

Podrían ayudarme?

Atte.

Ren.


.

Podrias especificar cual es el error marcado ?

Saludos

Francisco Parrilla
Operador de Sistemas


"David" escribió en el mensaje
news:73fb01c4cc3f$31ae29c0$
Ren, tu código funciona perfectamente. Lo probé en mi
equipo y no generó ningún error. El problema entonces
debe estar en la configuración de tu correo.

Investigando un poco, encontré un vínculo interesante.
Allí se documenta tu problema. Visita esta página:

http://support.microsoft.com/default.aspx?
scid=kb;es;241421

Saludos, y suerte...

Estimados:

Quiero hacer una solicitud de materiales que se elabore

en Excel y cada uno

de mis colegas, al terminarla, presione un

botón "Enviar" y me haga llegar

la comunicación. Sin embargo, he investigado toda esta

tarde y he llegado a

la conclusión que debería usar la instrucción "SendMail"

en una macro. Pero

no me funciona.

Ejemplo:
Sub EnviarHojaPorCorreoElectrónico()
ActiveSheet.Copy
ActiveWorkbook.SendMail

Recipients:="direcció", Subject:="Envío

libro de Excel"
ActiveWorkbook.Close savechanges:=False
End Sub

Pero, al ejecutarla arroja lo siguiente: "Se ha

producido el error '1004' en

tiempo de ejecución. Error en el método "SendMail" de

objeto '_Workbook'.

Presiono "Depurar" y tiñe amarillo la línea que

incluye "SendMail". Sin

saber qué hacer.

Podrían ayudarme?

Atte.

Ren.


.

Al ejecutarla arroja lo siguiente: "Se ha producido el error '1004' en
tiempo de ejecución. Error en el método "SendMail" de objeto '_Workbook'.

Presiono "Depurar" y tiñe amarillo la línea que incluye "SendMail". El
código lo han revisado y funciona bien en otros equipos, menos en los míos.

Gracias, de antemano, por tu ayuda.

"Francisco Parrilla" escribió en el mensaje
news:

Podrias especificar cual es el error marcado ?

Saludos

Francisco Parrilla
Operador de Sistemas


"David" escribió en el mensaje
news:73fb01c4cc3f$31ae29c0$
Ren, tu código funciona perfectamente. Lo probé en mi
equipo y no generó ningún error. El problema entonces
debe estar en la configuración de tu correo.

Investigando un poco, encontré un vínculo interesante.
Allí se documenta tu problema. Visita esta página:

http://support.microsoft.com/default.aspx?
scid=kb;es;241421

Saludos, y suerte...


>Estimados:
>
>Quiero hacer una solicitud de materiales que se elabore
en Excel y cada uno
>de mis colegas, al terminarla, presione un
botón "Enviar" y me haga llegar
>la comunicación. Sin embargo, he investigado toda esta
tarde y he llegado a
>la conclusión que debería usar la instrucción "SendMail"
en una macro. Pero
>no me funciona.
>
>Ejemplo:
>Sub EnviarHojaPorCorreoElectrónico()
> ActiveSheet.Copy
> ActiveWorkbook.SendMail
Recipients:="direcció", Subject:="Envío
>libro de Excel"
> ActiveWorkbook.Close savechanges:=False
>End Sub
>
>Pero, al ejecutarla arroja lo siguiente: "Se ha
producido el error '1004' en
>tiempo de ejecución. Error en el método "SendMail" de
objeto '_Workbook'.
>Presiono "Depurar" y tiñe amarillo la línea que
incluye "SendMail". Sin
>saber qué hacer.
>
>Podrían ayudarme?
>
>Atte.
>
>Ren.
>
>
>.
>