RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

Pregunta:	58872 - PROBLEMAS CON MACRO EXCEL
Autor:	Wilberth Mendez
Tengo problemas para enviar por correo información de las celdas de una hoja de excel por medio del Outlook. El código es el siguiente: Sub Enviar() Set objOutlook = CreateObject("Outlook.Application") 'Create and open a new email for input. Set objItem = objOutlook.CreateItem(olMailItem) With objItem .To = "[email protected]" .Subject = "Nueva Información para Cotizar" .body = Range("a1:i15") .display End With 'Quit Microsoft Outlook Set objOutlook = Nothing End Sub Todo funciona bien excepto donde trato de obtener todas las celdas con la instrucción "Range". Si trato de obtener una por una si funciona. Ej. range("a1")......... range("a2").....etc pero como comprenderán este método es muy engorroso y lento.