Foro Excel

Editado para adecuar el código a code

Macro que permite enviar la hoja activa por e_mail.
Metodo MailEnvelope.
No permite adjuntar archivos. (Que yo sepa)

Código: Seleccionar todo

Private Sub Enviar_Email()

'Envia la hoja "Hoja1" por e_mail
'-----------------------------------------

Worksheets("Hoja1").Activate

With ActiveSheet.MailEnvelope
   .Introduction = "Te adjunto la información que me solicitaste." & vbCrLf
   .Item.To = "username@server.com" 'Destinatario
   .Item.Subject = "Asunto"
   .Item.Send 'Enviamos el e_mail
End With

End Sub


Muchas gracias por el aporte!

Salu2.xls

Hola, tus aportes son fabulosos, pero tuve un problema con éste; Al llegar a la línea:

With ActiveSheet.MailEnvelope

aparece el siguiente error:

Se ha producido el error '-2147467259 (80004005)' en tiempo de ejecución:
Error en el método 'MailEnvelope' de objeto '_Worksheet'

Agradezco tu colaboración, ya que sería espectacular poder integrar éste código a un complemento de registro de actividades que cree.

Mil gracias.

He probado el código tal como está en el foro, no fuera caso que hubiera habido un error en la transcripción y no me da ningún problema.

Funciona con Xp, Excel 2003 y outlook

Tiene que declararse màs propiedades del objeto, sino saldrà el mensaje de error.

Asìpor ejemplo:

'Se declara un objeto de tipo Outlook
Set objOutlook = CreateObject("Outlook.Application")
'Se crea un nuevo mensaje
Set objMail = objOutlook.CreateItem(olMailItem) 'Create a new

Se podria mandar, en vez de la hoja activa, el area de impresion de dicha hoja.
Gracias

Antoni escribió:Editado para adecuar el código a code

Macro que permite enviar la hoja activa por e_mail.
Metodo MailEnvelope.
No permite adjuntar archivos. (Que yo sepa)

Código: Seleccionar todo

Private Sub Enviar_Email()

'Envia la hoja "Hoja1" por e_mail
'-----------------------------------------

Worksheets("Hoja1").Activate

With ActiveSheet.MailEnvelope
   .Introduction = "Te adjunto la información que me solicitaste." & vbCrLf
   .Item.To = "username@server.com" 'Destinatario
   .Item.Subject = "Asunto"
   .Item.Send 'Enviamos el e_mail
End With

End Sub


Hola Antoni

disculpa no se puede mandar la hoja adjunta en formato de excel, ya probe tu codigo pero manda la informacion como cuerpo del mensaje,

gracias, saludos....