Enviar desde excel correo con información desde celdas
Solicito de su ayuda necesito enviar correos con los datos que tengo en un hoja de excel tengo todos los datos "para, CC. Asunto y el texto separado en celdas"
Mi macro guardad la hoja y conviene en pdf y luego la envía por outlook
En nombre se lo da de una celda y todos los datos en están en celda
Sub enviar_correo()
'aneudys "pushyman"
Application.DisplayAlerts = False
ruta = ActiveWorkbook.Path & "\"
mio = ActiveWorkbook.Name
cliente = Range("D5").Value
correo = "[email protected]"
asunto = Range("D7").Value
texto = Range("D58Value & Range("D9").Value
nombre = cliente
Sheets("hoja1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & nombre
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.To = correo
parte2.Subject = asunto
parte2.Body =texto
parte2.attachments.Add ruta & nombre & ".pdf"
parte2.display
End Sub
Sino quiere visualizar el correo solo cambia este parte
Parte2. Display por estas parte2. Send
1 respuesta más de otro experto
Realmente me fue de mucha utilidad para adaptarla a una necesidad puntual!
Solo le agregue un salto de párrafo :-)
texto = Range("D58Value & vbCrLf & Range("D9").Value