Macro de excel a outlook
Hola experto, bueno no se si me puedas dar una mano con el siguiente código que tengo, básicamente lo que quiero es que me copie y pegue un grupo de celdas en el body del mensaje.
Tengo el siguiente código hecho pero solo me copia una celda,
Sub outlook_1()
Dim olApp As Object, olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
olMail.To = "[email protected]"
olMail.Subject = Range("c5")
olMail.Body = Range("A1")
olMail.Display
'Reactive Excel
AppActivate "Microsoft Excel"
End Sub
bueno muchisimas gracias por cualquier tip q me puedas dar
Tengo el siguiente código hecho pero solo me copia una celda,
Sub outlook_1()
Dim olApp As Object, olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
olMail.To = "[email protected]"
olMail.Subject = Range("c5")
olMail.Body = Range("A1")
olMail.Display
'Reactive Excel
AppActivate "Microsoft Excel"
End Sub
bueno muchisimas gracias por cualquier tip q me puedas dar
1 respuesta
Respuesta de Roberto Alvarado
-1
Hola Mil gracias por la pronta respuesta pero no funciona poniendo el rango de esa manera:
olMail.Body = Range("A1:C14")
al ejecutar esto produce un runtime error diciendo
array lower bound must be zero
:(
olMail.Body = Range("A1:C14")
al ejecutar esto produce un runtime error diciendo
array lower bound must be zero
:(
Los array deben empezar desde cero no desde 1
te refieres a cambair
olMail.Body = Range("A0:C13")?
olMail.Body = Range("A0:C13")?
No se si sea la forma de etraer un rango la que usas
