Anónimo
Macro que copia captura a correo
Hice una macro que copia a correo con tu ayuda, pero mi duda es como hace que lo que te copia lo deje después del texto y centrarlo,
Sub Button3935_Click()
Range("A1:I8"). CopyPicture
'
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.CreateItem(olMailItem)
'
parte2.To = ""
parte2.CC = ";"
'parte2.BCC = "@bluescopebuildingsna.com"
parte2.Subject = "Reporte horas semanales " & Range("E2").Value & " al " & Range("E8").Value & vbCrLf
parte2.Body = "¡Hola " & Range("d2").Value & "!" & vbCrLf & vbCrLf & "Te comparto tu reporte de Puntualidad-horas semanales del " & Range("E2").Value & " al " & Range("E8").Value & " del año en curso. " & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Cualquier duda, me encuentro a tus órdenes."
parte2.Display
Application.SendKeys "^v"
'SendKeys "^({v})"
Application.SendKeys "{NUMLOCK}"
Set parte1 = Nothing
Set parte2 = Nothing
End Sub
1 Respuesta
H o l a:
Supongo que lo que necesitas es algo como esto:
Con el siguiente código se puede lograr:
Sub Button3935_Click()
'Act.Por.Dante Amor
Range("A1:I8").CopyPicture
Set dam = CreateObject("outlook.application").CreateItem(0)
'
dam.To = "[email protected]"
dam.CC = "[email protected];[email protected]"
dam.Subject = "Reporte horas semanales " & Range("E2").Value & " al " & Range("E8").Value & vbCrLf
dam.Body = "¡Hola " & Range("d2") & "!" & vbCrLf & vbCrLf & _
"Te comparto tu reporte de Puntualidad-horas semanales del " & _
Range("E2") & " al " & Range("E8") & " del año en curso. " & vbCrLf & vbCrLf & vbCrLf & _
"Cualquier duda, me encuentro a tus órdenes."
dam.Display
DoEvents
Application.SendKeys "^{DOWN}", True
Application.SendKeys "^{DOWN}", True
Application.SendKeys "^v", True
Set dam = Nothing
End SubPero, copiar y pegar una imagen es algo inestable, depende de la velocidad en que se abra tu correo, si se tarda puede que la imagen la pegue al final, o si es muy rápido, puede que se pegue al principio.
Si tienes dificultades entonces habría que pasar la información como HTML, revisa el resultado y si tienes problemas entonces me avisas y te preparo la macro.