Hola chicos y chicas.!

Tengo este pequeño aporte para quien le interese o necesite:), dado que he visto este mensaje y sin respuestas en algunas ocasiones (No solo este foro) Esta macro envía a el destinatario por medio de OUTLOOK el archivo que están usando, lo pueden modificar para antes de cerrar el libro, o modificar las variables para los destinatarios o asuntos o bueno como gusten, esta digamos es la base que permitirá hacerlo :D

Sub Envia_Correo()

    Dim Destinatario As String

    Destinatario = "[email protected]"

            Dim objOL As Outlook.Application

            Dim objMail As MailItem

            Set objOL = New Outlook.Application

            Set objMail = objOL.CreateItem(olMailItem)

            With objMail

                .To = Destinatario

                .Subject = " Actualizado: " & ActiveWorkbook.Name

                .Body = "Fecha: " & Date & "  -   Hora :" & Time

                .Attachments.Add ActiveWorkbook.FullName

'                .Display 'MUESTRA EL CORREO

                .Send ' LO ENVIA DE UNA VEZ

            End With

            Set objMail = Nothing

            Set objOL = Nothing

End Sub[/CODE]

[i][b]Espero a alguno le guste y/o sirva, es practico y corto, lo uso hoy día en mis archivos de trabajo diario[/b][/i]

Genial el aporte!!

Comparto contigo un tema muy requerido pero casi nunca queda muy claro la solución a este tipo de planteamiento.

Genial tu aporte nixonlyo, mira con una consulta.... se podría adicionar al correo que se crea con la macro de excel la firma que tiene mi cuenta de outlook, ya que los correos que envío deben de llevar mi firma para que me localicen. Bueno espero tus comentarios. Slds.

[uSER=194396]@Walfred Gamboa[/uSER] estoy de vuelta después de meses con mi computadora del trabajo con esta pagina bloqueada .... pero eme aquí de vuelta al ruedo, las firmas son editadas en el mismo outlook con la barra de herramientas / opciones / formatos de correo / firmas

perdón

la hiper demora

OK mucchas gracias por el dato.