Foro

Hola, buenas tardes tengo diseñada una Macro que me envia una solo hoja de un libro de excel en forma automatica a una direccion de correo preestablecido a traves del Outlook. Pero ahora estoy nesecitando que la macro me reconosca no el Outloolk sino el programa de correo predeterminado que tenga la PC cualquiera fuese y que la direcion de correo a donde se envie la hoja Excel no este predeterminada sino que la pueda carar el usuario en ese momento.
Desde ya muchas gracias por vuestro tiempo.
Saludos

Esta macro envia el correo de la hoja llamada Datos el rango de la a1 a la e50

Nota: La hoja debe de llamarse Datos

Saluods

Sub MyMacro()

'Esta macro sirve para enviar un correo con el Outlook 2007, pero antes de enviarlo nos muestra la pantalla del
'correo para poner nosotros los datos del correo, direccion de correo, sujeto, y presionar manualmente enviar.

Dim mihoja As Worksheet
Dim mirango As Range
Dim micelda As Range

On Error GoTo Parar_Macro

Set mirango = Worksheets("datos".Range("A1:E50"
Set mihoja = ActiveSheet

With mirango
.Parent.Select
Set micelda = ActiveCell
.Select
ActiveWorkbook.EnvelopeVisible = True
End With

micelda.Select
Parar_Macro:

End Sub