Envio de Datos a correos externos

La única forma de enviar un rango es enviar un nuevo libro que lo contenga.
Si las fórmulas del rango no hacen referencia a otras celdas fuera de el es
tan facil como copiar y pegar en un libro nuevo, lo que se puede hacer con
una macro (incluso grabada). En el caso de que si haya referencias a celdas
externas hay que primero hacer un "Pegado especial - Valores". Para el caso
de una hoja es lo mismo.

Para enviar archivos se puede automatizar Outlook desde Excel: Aqui te
paso una rutina que utilizo:

Public Sub EnviarMail(omPara As String, omAsunto As String, omAttach As
String)
Dim OLinstancia As New Outlook.Application
Dim oMail As Outlook.MailItem
Set oMail = OLinstancia.CreateItem(olMailItem)
oMail.To = omPara
oMail.Subject = omAsunto
oMail.Attachments.Add omAttach
oMail.Send
Set OLinstancia = Nothing
Set oMail = Nothing
End Sub

Donde omAttach es una cadena con la ruta del archivo a enviar. (tiene que
estar grabado)
Para utilizarla, hay que copiar este código en el editor de Visual Basic y
llamar al procedimiento con la sentecia:
EnviarMail("", "Asunto","C:\Mis
documentos\archivo.xls")

Nota: Hay que hacer referencia a la biblioteca la biblioteca de Outlook
(Herramientas - Referencias)

Saludos
Mariano A. Hernández

"Ing. Héctor Montero Sobrado" escribió en el
mensaje news:

Hola a Todas (os)
Existe alguna forma en la yo pueda hacer envío de una parte de una Hoja a

un

destinatario de Correo?
Ejem: Supongamos que necesito enviar solamente el rango de A1:B45, a 3
diferentes destinatarios, se podría?

Por otro lado como hago para enviar solamente la hoja en la que estoy
ubicado a un destinatario, y que no se env[ie TODO el Libro, se necesita
Macros?
Gracias de antemano
HMS