Macro para enviar correo hoja de calculo

Hola Luis! Antes que nada quiero felicitarte por tu excelente trabajo y el servicio que brindas a esta comunidad. Me he apoyado mucho en tu trabajo, pero necesito que me apoyes en algo.

¿Cómo quedaría si lo necesito enviar el nuevo libro que he creado?, es decir, se ejecuta el proceso, se guarda.. ¿y cómo se agrega la ruta para adjuntarlo?

Sub enviarCorreo()
'por luismondelo
mes = Month(Date)
Select Case mes
Case Is = 1
mes = "Enero"
Case Is = 2
mes = "Febrero"
Case Is = 3
mes = "Marzo"
Case Is = 4
mes = "Abril"
Case Is = 5
mes = "Mayo"
Case Is = 6
mes = "Junio"
Case Is = 7
mes = "Julio"
Case Is = 8
mes = "Agosto"
Case Is = 9
mes = "Septiembre"
Case Is = 10
mes = "Octubre"
Case Is = 11
mes = "Noviembre"
Case Is = 12
mes = "Diciembre"
End Select
ruta = ActiveWorkbook.Path & "\"
mio = ActiveWorkbook.Name
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
nombre = ActiveSheet.Name
ActiveSheet.Copy before:=Workbooks(otro).Sheets(1)
ActiveSheet.Name = nombre
ActiveSheet.UsedRange.Copy
Application.CutCopyMode = False
For x = 2 To Sheets.Count
Sheets(2).Delete
Next
ActiveWorkbook.SaveAs ruta & "GR " & Day(Date) & " de " & mes & " " & Year(Date) & " " & nombre
ActiveWorkbook.Close False
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.To = "[email protected]"
parte2.Subject = "GR " & Day(Date) & " de " & mes & " " & Year(Date) & " " & nombre
parte2.body = "anexo reporte de las Guías Retorno al día de hoy"
parte2.attachments.Add          ??????????????? Aquí me atoro ??????????
parte2.display
Kill           ??????????????? Aquí me atoro ??????????
End Sub

0

Añade tu respuesta

Haz clic para o