Una de emails

Hola Adolfo,
Aplica lo que yo tengo. a mi me funciona...
PROCESO:
1. En VBA ir a Herramientas/Referencias y seleccionar/activar Microsoft
Outlook Object Library...

2. Despues pegas el siguiente código en un módulo general...
(puedes asignar este código a un botón en la hoja)...

Sub Envio_Hoja()
' Crea Libro con la Hoja que vas a enviar
Ruta = ActiveWorkbook.Path
Sheets("A Enviar").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Ruta & "\Enviado.xls"
ActiveWindow.Close
' Envío por mail
Dim olapp As Outlook.Application
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ""
msg.Subject = "Asunto:"
msg.Body = "Adjunto Hoja a remitir"
msg.Attachments.Add Source:=Ruta & "\Enviado.xls"
msg.Send
End Sub

Compruebalo, y modificalo para tus necesidades, y si tienes problemas o
dudas comentas...
SALUDOS.

"Adolfo Fernández" escribió:

Buenas tardes,

Necesitaba saber el código para que el usuario, una vez rellenado un archivo
excel aprete un botón y envíe ese archivo, o una copia del mismo a una
dirección fija de correo electrónico.

Si alguien me puede ayudar o por lo menos decirme por donde puedo empezar a
mirar, a parte de ahorrarme mucho trabajo se lo agradecería eternamente.

Un saludo,
Adolfo