Duda sobre macro de excel
Estoy viendo las macros de excel que tienes publicadas para copiar datos y enviarlas por correo electrónico pero no consigo en el cuerpo del email poner el texto delante de las celdas copiadas, yo quiero que el Texto "hola esto es una prueba de texto" esté encima de la tabla copiada.
Esta es mi Macro
Sub correo()
'Aqui se declara la variable Incidencia para luego colocarla en el asunto
Inci_aviso = Range("d2").Value
'Aquí se empieza a copiar el rango de datos
Range("H11:I21").Copy
'Aquí se declara el mail
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.to = "[email protected]"
parte2.Subject = "Pasar presupuesto para la incidencia " & Inci_aviso
parte2.Display
parte2.body = "hola esto es prueba de texto"
Application.SendKeys "^v"
Application.SendKeys "{NUMLOCK}"
Set parte1 = Nothing
Set parte2 = Nothing
End Sub
Y me devuelve lo de la imagen adjunta
MUCHAS GRACIAS de antemano!
1 respuesta
Prueba la siguiente:
Sub correo()
Dim Inci_aviso
Dim dam As Object
Inci_aviso = Range("D2").Value
'Aquí se empieza a copiar el rango de datos
Range("H11:I21").Copy
'Aquí se declara el mail
Set dam = CreateObject("outlook.application").createitem(0)
dam.to = "damor"
dam.Subject = "Pasar presupuesto para la incidencia " & Inci_aviso
dam.Body = "hola esto es prueba de texto " & vbCr & " "
dam.Display
Application.SendKeys "^{END}"
Application.SendKeys "^v"
Set dam = Nothing
End Sub
