Expertos favor revisar la siguiente macro

Estimados tengo el siguiente problema con una macro que guarda el libro de trabajo y luego lo manada por correo, necesito copiar un rango de una hoja del libro y pegarla en el envío o cuerpo del correo, agradeceré vuestra ayuda, les dejo la macro

Sub guardando_ENVIOINFORME()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("hoja 1").Unprotect "2013"
If Sheets("hoja1").Range("k1").Value = "" Then
Exit Sub
End If
Sheets("hoja1").Protect "2013"
Sheets("hoja1").Select
Range("b3:d32").Copy
Dim dia As String
Dim tim As String
Dim nom As String
Dim ext As String
Dim Path As String
dia = Format(Range("k1"), "DD-MM-YYYY")
tim = Format(Time(), "H-MM-SS")
ext = ".xls"
nom = nom + " " + dia + " " + "Hora" + " " + tim & ".xls"
Path = "d:\libro" & nom
ActiveWorkbook.SaveAs Filename:=Path, FileFormat:=xlNormal
Application.Quit
Set OutApp = CreateObject("Outlook.Application")
Application.SendKeys "^v"
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "[email protected]"
.CC = " "
.BCC = ""
.Subject = "libro" + " " + "DEL" + " " + Str(Date)
.Body = "Buen día:" + Chr(13) + Chr(13) + "Adjunto envío a usted, informe" + Chr(13) + Chr(13) + "Saludos"
.attachments.Add "D:\libro" & nom
.Display
Application.SendKeys "^v"
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Application.DisplayAlerts = False
Sheets("hoja1").Protect "Tesoreria2013"
End Sub

0

Añade tu respuesta

Haz clic para o