Envio de Mail

hola, Ivan !

... mandar la informacion de la hoja 2 por mail (desde la hoja 1)... no se por donde empezar.

suponiendo que quieres enviarla como datos adjuntos... prueba la siguiente macro...
en un modulo de codigo 'normal' ==Private Sub EnviarHoja()
Worksheets("Pon aqui el nombre de la hoja").Copy
ActiveWorkbook.SendMail "Pon aqui la direccion de correo", "y el Asunto"
ActiveWorkbook.Close False
End Sub

saludos,
hector.

Hola Tocayo!!!

Como podria modificarse la macro. de forma que la misma quede disponible
para cualquier libro.
Pero además, que en caso de ser utilizada, le salga al usuario una pantalla
de Dialogo preguntandole el NOMBRE DE LA HOJA, El CORREO DEL DESTINATARIO y
el ASUNTO?

De anetmano Gracias.
HMS


"Héctor Miguel" wrote in message
news:

hola, Ivan !

... mandar la informacion de la hoja 2 por mail (desde la hoja 1)... no
se por donde empezar.

suponiendo que quieres enviarla como datos adjuntos... prueba la siguiente
macro...
en un modulo de codigo 'normal' ==> Private Sub EnviarHoja()
Worksheets("Pon aqui el nombre de la hoja").Copy
ActiveWorkbook.SendMail "Pon aqui la direccion de correo", "y el Asunto"
ActiveWorkbook.Close False
End Sub

saludos,
hector.

hola, tocayo !

Como podria modificarse la macro. de forma que la misma quede disponible para cualquier libro.

op1: que la guardes en tu libro de macros 'personal.xls'
op2: que la guardes en algun complemento [add-in]
[hay mas alternativas, pero... 'tendrias que' andar cargando/instalando los archivos de las macros]
otra alternativa es que visites: http://www.rondebruin.nl/mail/add-in.htm

... ademas, que en caso de ser utilizada, le salga al usuario una pantalla de Dialogo preguntandole
el NOMBRE DE LA HOJA, El CORREO DEL DESTINATARIO y el ASUNTO?

prueba con las siguientes modificaciones a la macro
[modifica, cambia, agrega, elimina, etc. lo que consideres necesario] ;)
si cualquier duda... comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub EnviarHoja()
Dim n_Hoja As String, e_Direccion As String, t_Asunto As String, Hoja As Object
PreguntaHoja:
n_Hoja = LCase(Application.Trim(InputBox("Indica la hoja a enviar.", "")))
If n_Hoja = "" Then Exit Sub
On Error Resume Next
Set Hoja = Sheets(n_Hoja)
If Hoja Is Nothing Then GoTo PreguntaHoja
Set Hoja = Nothing
PreguntaDireccion:
e_Direccion = LCase(Application.Trim(InputBox("Indica la direccion de correo.", "")))
If e_Direccion = "" Then Exit Sub
Select Case MsgBox("El envio se hara a la siguiente direccion:" & vbCr & e_Direccion & vbCr & _
"¿Deseas modificarla para continuar con el proceso?", vbYesNoCancel + vbQuestion)
Case vbYes: GoTo PreguntaDireccion
Case vbCancel: Exit Sub
End Select
PreguntaAsunto:
t_Asunto = LCase(Application.Trim(InputBox("Indica el asunto del mensaje.", "")))
If t_Asunto = "" Then Exit Sub
Worksheets(n_Hoja).Copy
ActiveWorkbook.SendMail e_Direccion, t_Asunto
ActiveWorkbook.Close False
End Sub

Gracias Tocayo!!!

Me funciona muy bien la macro.
Pero una consulta, como hago para que envie la hoja pero con valores?
Pues actualmente envia la hoja con formulas.

Gracias de antemano
HMS
"Héctor Miguel" wrote in message
news:%

hola, tocayo !

Como podria modificarse la macro. de forma que la misma quede disponible
para cualquier libro.

op1: que la guardes en tu libro de macros 'personal.xls'
op2: que la guardes en algun complemento [add-in]
[hay mas alternativas, pero... 'tendrias que' andar cargando/instalando
los archivos de las macros]
otra alternativa es que visites: http://www.rondebruin.nl/mail/add-in.htm

... ademas, que en caso de ser utilizada, le salga al usuario una
pantalla de Dialogo preguntandole
el NOMBRE DE LA HOJA, El CORREO DEL DESTINATARIO y el ASUNTO?

prueba con las siguientes modificaciones a la macro
[modifica, cambia, agrega, elimina, etc. lo que consideres necesario] ;)
si cualquier duda... comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==> Sub EnviarHoja()
Dim n_Hoja As String, e_Direccion As String, t_Asunto As String, Hoja As
Object
PreguntaHoja:
n_Hoja = LCase(Application.Trim(InputBox("Indica la hoja a enviar.",
"")))
If n_Hoja = "" Then Exit Sub
On Error Resume Next
Set Hoja = Sheets(n_Hoja)
If Hoja Is Nothing Then GoTo PreguntaHoja
Set Hoja = Nothing
PreguntaDireccion:
e_Direccion = LCase(Application.Trim(InputBox("Indica la direccion de
correo.", "")))
If e_Direccion = "" Then Exit Sub
Select Case MsgBox("El envio se hara a la siguiente direccion:" & vbCr &
e_Direccion & vbCr & _
"¿Deseas modificarla para continuar con el proceso?", vbYesNoCancel +
vbQuestion)
Case vbYes: GoTo PreguntaDireccion
Case vbCancel: Exit Sub
End Select
PreguntaAsunto:
t_Asunto = LCase(Application.Trim(InputBox("Indica el asunto del
mensaje.", "")))
If t_Asunto = "" Then Exit Sub
Worksheets(n_Hoja).Copy
ActiveWorkbook.SendMail e_Direccion, t_Asunto
ActiveWorkbook.Close False
End Sub

hola, tocayo !

... como hago para que envie la hoja pero con valores?... actualmente envia la hoja con formulas.

la parte final de la macro podria quedar +/- como sigue:
[las lineas anteriores del codigo] ...
Worksheets(n_Hoja).Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
[a1].Select
Application.CutCopyMode = False
ActiveWorkbook.SendMail e_Direccion, t_Asunto
ActiveWorkbook.Close False
End Sub

saludos,
hector.