Lo siento por las molestias pero me paso algo muy extraño.
Resulta que tengo una plantilla guardada en un PENDRIVE y voy trabajando sobre ella en casa y en el trabajo cuando puedo.
Ayer lo tenia bien y trabaje en casa sobre pequeños detalles y hoy al abrir el documento, la macro "ENVIAR mail" me indica este error:
Se ha producido el error’-2147024772(8007007b)’ en tiempo de ejecución:
No se guardo el documento
La macro que me habéis ayudado en conseguirla es la siguiente:
Sub PdfMail()
Dim Archivo As String, Destinatario As String
Dim Asunto As String, Cuerpo As String
Dim OutlApp As Object, H1 As Worksheet
'--
Application.ScreenUpdating = False
With Sheets("FICHA")
Destinatario = .Range("C11")
Asunto = .Range("B72")
Cuerpo = .Range("B85")
Archivo = Replace(.Range("B70"), "/", "-")
Archivo = Replace(Archivo, ":", "")
Archivo = ThisWorkbook.Path & "\" & Archivo & ".pdf"
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Archivo, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
'--
On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If Err Then
Set OutlApp = CreateObject("Outlook.Application")
End If
'--
With OutlApp.CreateItem(0)
.To = Destinatario
.Subject = Asunto
.Body = Cuerpo
.Attachments.Add Archivo
.Display
End With
'--
Application.ScreenUpdating = True
End Sub
Es muy extraño ya que unas horas antes hize las pruebas pertinentes y me ha funcionado de maravilla.
Saludos,
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola,
Lo siento por las molestias pero me paso algo muy extraño.
Resulta que tengo una plantilla guardada en un PENDRIVE y voy trabajando sobre ella en casa y en el trabajo cuando puedo.
Ayer lo tenia bien y trabaje en casa sobre pequeños detalles y hoy al abrir el documento, la macro "ENVIAR mail" me indica este error:
La macro que me habéis ayudado en conseguirla es la siguiente:
Sub PdfMail()
Dim Archivo As String, Destinatario As String
Dim Asunto As String, Cuerpo As String
Dim OutlApp As Object, H1 As Worksheet
'--
Application.ScreenUpdating = False
With Sheets("FICHA")
Destinatario = .Range("C11")
Asunto = .Range("B72")
Cuerpo = .Range("B85")
Archivo = Replace(.Range("B70"), "/", "-")
Archivo = Replace(Archivo, ":", "")
Archivo = ThisWorkbook.Path & "\" & Archivo & ".pdf"
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Archivo, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
'--
On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If Err Then
Set OutlApp = CreateObject("Outlook.Application")
End If
'--
With OutlApp.CreateItem(0)
.To = Destinatario
.Subject = Asunto
.Body = Cuerpo
.Attachments.Add Archivo
.Display
End With
'--
Application.ScreenUpdating = True
End Sub
Es muy extraño ya que unas horas antes hize las pruebas pertinentes y me ha funcionado de maravilla.
Saludos,