Problemas macro para enviar un correo desde un Excel de un servidor
Tengo un problema para enviar un correo desde un Excel en el que me conecto vía remota, no sé si es posible realizar esta tarea ya que el Excel está en un servidor y el Outlook desde el cual voy a enviar el correo está en mi pc, igualmente os agradecería que me dijerais si es posible, con el código que adjunto me peta el excel (se activa el modo de autorecuperación, me sale el mensaje "no se puede leer este archivo...", se cuelga...)
Este es el código que uso:
Sub envio_por_correo
Dim SaveName As String
SaveName = ThisWorkbook.Name
ActiveWorkbook.SaveAs Filename:="\\Client\D$\USUARIOS\carpeta\" & _
SaveName
Dim i As Integer
For i = 1 To Worksheets.Count
If Left(Worksheets(i).Name, 6) = "Hoja" Then
Sheets(i).Activate
End If
Next i
If ActiveSheet.Name = "Hoja_1" Then
Sheets("Hoja_1").Select
Else
If ActiveSheet.Name = "Hoja_2" Then
Sheets(Array("Hoja_1", "Hoja_2")).Select
Else
If ActiveSheet.Name = "Hoja_3" Then
Sheets(Array("Hoja_1", "Hoja_2", "Hoja_3")).Select
Else
If ActiveSheet.Name = "Hoja_4" Then
Sheets(Array("Hoja_1", "Hoja_2", "Hoja_3", "Hoja_4")).Select
Else
If ActiveSheet.Name = "Hoja_5" Then
Sheets(Array("Hoja_1", "Hoja_2", "Hoja_3", "Hoja_4", "Hoja_5")).Select
Else
If ActiveSheet.Name = "Hoja_6" Then
Sheets(Array("Hoja_1", "Hoja_2", "Hoja_3", "Hoja_4", "Hoja_5", "Hoja_6")).Select
Else
If ActiveSheet.Name = "Hoja_7" Then
Sheets(Array("Hoja_1", "Hoja_2", "Hoja_3", "Hoja_4", "Hoja_5", "Hoja_6", "Hoja_7")).Select
Else
If ActiveSheet.Name = "Hoja_8" Then
Sheets(Array("Hoja_1", "Hoja_2", "Hoja_3", "Hoja_4", "Hoja_5", "Hoja_6", "Hoja_7", "Hoja_8")).Select
Else
If ActiveSheet.Name = "Hoja_9" Then
Sheets(Array("Hoja_1", "Hoja_2", "Hoja_3", "Hoja_4", "Hoja_5", "Hoja_6", "Hoja_7", "Hoja_8", "Hoja_9")).Select
Else
If ActiveSheet.Name = "Hoja_10" Then
Sheets(Array("Hoja_1", "Hoja_2", "Hoja_3", "Hoja_4", "Hoja_5", "Hoja_6", "Hoja_7", "Hoja_8", "Hoja_9", "Hoja_10")).Select
Else
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Dim Asunto As String
Asunto = "Reporte " & Sheets("Hoja_1").Range("G3")
On Error Resume Next
des = Range("A1")
Set h2 = ThisWorkbook
wpath = ThisWorkbook.Path & "\"
Nombre = h2.Name
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=wpath & Nombre & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Set dam1 = CreateObject("outlook.application")
Set dam2 = dam1.createitem(olmailitem)
dam2.To = "”
dam2.cc = ""
dam2.Subject = Asunto
dam2.Body = "Buenas," & Chr(13) & _
"Adjunto información solicitada." _
& Chr(13) & "Atentamente."
dam2.Attachments.Add wpath & Nombre & ".pdf"
dam2.send
DoEvents
Kill wpath & Nombre & ".pdf"
DoEvents
Set OutMail = Nothing
Set OutApp = Nothing
End sub
