crear un control active x para enviar hoja por correo

[GARGOLA]

me gustaria crear un control active x en la hoja para que al pulsarlo envie por correo a mi cuenta la hoja de calculo activa. esta hoja es un formulario de pedido que remitiremos a nuestros...

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í

 

[Adrian]

Espero te sirva!

Sub Correo_e()
Dim Direccion, Asunto, Texto, Mensaje As String, i As Integer

For i = 1 To 3
Direccion = Cells(i, 1)
Asunto = "Saludos de X"
Texto = "Les enví­o este mensaje para...

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í

 

[Janoi]

Hola Adrian... he analizado la macro y funciona muy bién, pero quiero hacerte una consulta; al hacer funcionar la macro sale un aviso que un programa intenta enviar un correo... es posible evitar...

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í