Jump to content
joselica

MACRO QUE CAMBIO DE REPENTE

Recommended Posts

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:

  1. Se ha producido el error’-2147024772(8007007b)’ en tiempo de ejecución:
  2. 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,

Share this post


Link to post
Share on other sites

Puedes subir el archivo. Usé el que compartiste en tu última consulta y remplacé con el código que mencionar, pero no me aparece ni un error.

Comparte tu archivo de nuevo por favor, para poder apoyarte

Share this post


Link to post
Share on other sites

Buenos días Luis Paz,

El archivo que tengo pesa más de lo permitido para subirlo. Voy trabajando en copias de prueba que pesan menos.

Algo raro paso, es la primera vez que me pasa y nunca me he encontrado con estas molestias. Despues de varias pruebas me ha vuelto funcionar.

De lo que yo he entendido, era porque en las celdas "ASUNTO" y "NOMBRE" he utilizado la formula concatenar con TEXTO fecha en cada una de las formulas. He quitado el TEXTO fecha del "ASUNTO" y "voila" me ha vuelto a funcionar.

Saludos y perdonar las molestias.

 

Share this post


Link to post
Share on other sites
Hace 3 horas, joselica dijo:

De lo que yo he entendido, era porque en las celdas "ASUNTO" y "NOMBRE" he utilizado la formula concatenar con TEXTO fecha en cada una de las formulas

Prueba cambiando a:

ASUNTO=Cells(la que sea).Text

Share this post


Link to post
Share on other sites

Hola a todos,

Respondere a cada uno según rcomentarios/preguntas.

La "MACRO QUE CAMBIA DE REPENTE" esta solucionado. De hecho con las respuestas he logro de entender varias cosas a la vez y arreglar los errores que cometia.

Antonio;

Si, me leo las respuestas. Pero aveces me  lio a mi mismo y hago errores de novato.

Sergio;

Simplemente queria felicitar y agradecer la ayuda de todas las personas que me han atendido hasta ahora ya que estamos en fechas Navideñas.

Una vez mas, os agradezco vuestra ayuda y os felicito a todos:

Feliz Navidad y Feliza Año Nuevo.

Jose

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png