En el cuerpo de un correo creado en VBA necesito ver una selección
Publicado por Ezequiel (4 intervenciones) el 01/03/2016 20:32:41
Buenas!!! Como andan?
Ando con un problema... Me armé una macro que me crea un correo de outlook..
En el cuerpo del correo quiero poner una selección (una tablita en el rango A3:D21), pero quiero que la misma sea automática (por si a futuro se agregan o eliminan filas a la tablita). Para ello en la hoja de excel me armé 4 celdas con las funciones =FILA e =COLUMNA, y en cada una termina dando el resultado de fila inicial, columna inicial, fila final y columna final.. por ejemplo las celdas dicen:
.................O P
fila16........1 4
fila17........3 21
Lo que quiero que aparezca en el BODY del correo es la selección deseada (A3:D21)
(A seria la columna "1" que se detalla en la celda O16; "3" la fila detallada en la celda O17... y asi para los 4 valores)
Les comparto el código.. Habría que modificar la línea anterior a parte2.display porque evidentemente la estoy redactando mal.
Sub Correo2()
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.CreateItem(olmailitem)
columnai = Range("O16").Value
columnaf = Range("P16").Value
filai = Range("O17").Value
filaf = Range("p17").Value
para = Range("H4")
copi = Range("H5")
parte2.to = para
parte2.cc = copi
parte2.Subject = Range("H6")
parte2.Body =Range(cells(filai,columnai), cells(filaf,columnaf))
parte2.Display
End Sub
Espero haber sido claro (es dificil escribir lo que necesito).
Muchas gracias
Ando con un problema... Me armé una macro que me crea un correo de outlook..
En el cuerpo del correo quiero poner una selección (una tablita en el rango A3:D21), pero quiero que la misma sea automática (por si a futuro se agregan o eliminan filas a la tablita). Para ello en la hoja de excel me armé 4 celdas con las funciones =FILA e =COLUMNA, y en cada una termina dando el resultado de fila inicial, columna inicial, fila final y columna final.. por ejemplo las celdas dicen:
.................O P
fila16........1 4
fila17........3 21
Lo que quiero que aparezca en el BODY del correo es la selección deseada (A3:D21)
(A seria la columna "1" que se detalla en la celda O16; "3" la fila detallada en la celda O17... y asi para los 4 valores)
Les comparto el código.. Habría que modificar la línea anterior a parte2.display porque evidentemente la estoy redactando mal.
Sub Correo2()
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.CreateItem(olmailitem)
columnai = Range("O16").Value
columnaf = Range("P16").Value
filai = Range("O17").Value
filaf = Range("p17").Value
para = Range("H4")
copi = Range("H5")
parte2.to = para
parte2.cc = copi
parte2.Subject = Range("H6")
parte2.Body =Range(cells(filai,columnai), cells(filaf,columnaf))
parte2.Display
End Sub
Espero haber sido claro (es dificil escribir lo que necesito).
Muchas gracias
Valora esta pregunta


0