Macro Pegar rango de celdas en cuerpo de outlook
Estoy creando una macro en excel para que el rango copiado del excel pero no encuentro la manera de hacerlo sin el MsgBox ya que la macro no le da el tiempo suficiente para pegar. Tampoco me funciona el WAIT.
La siguiente programacion esta dentro de un loop.
Selection. Copy
'CREA EMAIL
'Para
objMail.To = Worksheets("MACRO").Range("D" & CONTADORBIS).value
'Copia
objMail.CC = Worksheets("MACRO").Range("G2").value
'CopiaOculta
objMail.BCC = Worksheets("MACRO").Range("G4").value
'Asunto
objMail.Subject = ASC & " - Backlog " & Format(diaActual, "DD/MM/YY")
'Cuerpo
objMail.BODY = "HOLA"
objMail.display
DoEvents
SendKeys "^{END}", True
SendKeys "^{v}", True
MsgBox ("Borrador creado para: " & ASC & ".")
DoEvents
1 respuesta
Revisa el siguiente ejemplo, puse el wait y a mí sí me funciona
Sub Correo()
CONTADORBIS = 2
diaActual = Date
Selection.Copy
'CREA EMAIL
Set objMail = CreateObject("outlook.application").createitem(olmailitem)
'Para
objMail.To = Worksheets("MACRO").Range("D" & CONTADORBIS).Value
'Copia
objMail.CC = Worksheets("MACRO").Range("G2").Value
'CopiaOculta
objMail.BCC = Worksheets("MACRO").Range("G4").Value
'Asunto
objMail.Subject = " - Backlog " & Format(diaActual, "DD/MM/YY")
'Cuerpo
objMail.BODY = "HOLA"
ObjMail. Display
Application. Wait Now + TimeValue("00:00:03")
DoEvents
SendKeys "^{END}", True
DoEvents
Application. Wait Now + TimeValue("00:00:03")
SendKeys "^{v}", True
DoEvents
ObjMail. Display
DoEvents
ObjMail. Send
MsgBox ("Borrador creado para: ") '& Asc("") & ".")
End SubPegar las celdas desde una macro, puede ser algo incierto, ya que depende del tiempo de proceso en que tarda en abrir outlook, y eso depende de la memoria de la máquina, de las aplicaciones que estén en ejecución.
Otra opción es que envíes el rango de celdas como imagen o que envíes el rango de celdas como una tabla, se tiene que codificar en Html.
Ejemplo para enviar celdas como imagen:
Macro para copiar rango de celdas en Outlook no funciona aleatoriamente.-
Ejemplo para enviar celdas como tabla
Ejemplo de E-mail enviado desde excel con tabla de datos
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
