Para dam enviar archivo con rango de celdas por email desde excel
para dam , enviar un archivo con un rango de celdas de excel por email , tengo un archivo de excel con una serie de adtso que eligo en un combo y que me da un resultado de celdas , esas celdas las quiero enviar a una email en forma de archivo
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro, el archivo se guarda con el nombre de la hoja y ese archivo es enviado por correo "[email protected]" por el correo del destinatario y cambia asunto del correo" por el asunto que quieras que lleve el correo.
Sub EnviarHoja()
'Por.Dante Amor
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'
Set h = Sheets("Hoja1")
h.Range("A5:E50").Copy
Set h2 = Sheets.Add
ActiveSheet.Paste
'
ruta = ThisWorkbook.Path & "\"
nombre = h.Name
h2.Copy
ActiveWorkbook.SaveAs Filename:=ruta & nombre & ".xlsx"
ActiveWorkbook.Close False
h2.Delete
'
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = "[email protected]"
dam.Subject = "asunto del correo"
dam.Attachments.Add ruta & nombre & ".xlsx"
dam.Send
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
