Estoy desarrollando un reporte en pdf y deseo utilizar el encabezado del documento más la fecha para guardar en una carpeta envi

Desarrollo un reporte en pdf y seo utilizar el encabezado del documento más las fecha para guardar en una carpeta y posteriormente adjuntarlo para enviarlo por correo. Pero al ejecutar no se guarda el pdf en la carpeta y solo aparece el encabezado del documento en el correo

Public Sub enviareportediario_Click()
'Selecciona PED.ENV Y POR ENVIAR'
Sheets("PED.ENV Y POR ENVIAR").Select
'controla cualquier posible error, ejecutando en ese caso la línea siguiente
On Error Resume Next
Dim NombreArchivo As String
Teststr = Format(Now(), "General Date")
NombreArchivo = (Range("H2") & " " & Range("J1") & " " & (Teststr))
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\Almacen-plas\abastecimientos 2015\A.P.T\INVENTARIO PROD TERMINADO\REPORTE DIARIO  2015\" & NombreArchivo & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
ActiveSheet.PrintOut Copies:=0, Collate:=True
'incrementa en 1 la celda J1
ActiveSheet.Range("J1").Value = ActiveSheet.Range("J1").Value + 1
strReportName = "\\Almacen-plas\abastecimientos 2015\A.P.T\INVENTARIO PROD TERMINADO\REPORTE DIARIO LIC. ANGELES 2015\" & NombreArchivo & ".pdf"
Dim objOutlook As Object
Dim objMail As Object
Dim objOutlookAttach As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(olMailItem)
Set objOutlookAttach = objOutlook.CreateItem(olAttachMents)
With objMail
'A quien va dirigido el correo
.To = "correo a quien va dirijido"
'Se especifica el asunto
.Subject = NombreArchivo & ".pdf"
'Se especifica lo que se quiere que diga el mensaje
.body = "adjunto reporte diario de pedidos enviados y pendientes por enviar"
'Se escriben el o los archivos a adjuntar en el mail
.Attachments.Add (strReportName)
'Se manda el mensaje
.Send
End With
'Se cierran todos los objetos utilizados
Set objMail = Nothing
Set objOutlook = Nothing
Sheets("INICIO").Select
ActiveWorkbook.Save
End Sub

1 Respuesta

Respuesta
1

1. ¿Todavía necesitas ayuda con la macro?

2. ¿Qué versión de office y de excel tienes?

3. Qué formato de fecha quieres, ¿puedes poner un ejemplo de cómo quieres la fecha en el nombre del archivo? (Por ejemplo: 15-jul-2015)

¡Gracias! Dante ya lo pude resolver  no estaba considerando que no se puede guardar nombres de archivos con símbolos incluidos.

quedo de esta manera

Public Sub PENDENVIAR()
'Selecciona PENDENVIAR'
Sheets("PENDENVIAR").Select
'controla cualquier posible error, ejecutando en ese caso la línea siguiente
On Error Resume Next
Dim NombreArchivo As String
Hora = Format(Time, "HH.mm.ss")
Teststr = Format(Now(), "Long Date")
NombreArchivo = (Range("D3") & " " & Range("J2") & " " & (Teststr) & " " & (Hora))
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\Almacen-plas\h\PENDIENTESDEENVIAR\" & NombreArchivo & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveSheet.PrintOut Copies:=0, Collate:=True
'incrementa en 1 la celda J2
ActiveSheet.Range("J2").Value = ActiveSheet.Range("J2").Value + 1
strReportName = "\\Almacen-plas\h\PENDIENTESDEENVIAR\" & NombreArchivo & ".pdf"
Dim objOutlook As Object
Dim objMail As Object
Dim objOutlookAttach As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(olMailItem)
Set objOutlookAttach = objOutlook.CreateItem(olAttachMents)
With objMail
'A quien va dirigido el correo
.To = "mail a donde se enviara el archivo"
.Cc = "copias a quienes enviar el archivo"
'Se especifica el asunto
.Subject = NombreArchivo & ".pdf"
'Se especifica lo que se quiere que diga el mensaje
.Body = "Listado de pedidos pendientes de enviar"
'Se escriben el o los archivos a adjuntar en el mail
.Attachments.Add (strReportName)
'Se manda el mensaje
.Send
End With
'Se cierran todos los objetos utilizados
Set objMail = Nothing
Set objOutlook = Nothing
Sheets("PEDIDO").Select
ActiveWorkbook.Save
End Sub

esperando que alguien mas le pueda servir y lo adapte a sus necesidades

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro guardar en PDF y mandar el archivo el PDF por correo

Quería saber si alguien me podía ayudar a crear o modificar un macro que guarde un archivo en PDF con nombre en base a una celda que es un formato concatenar de una celda que también es consecutivo, para después este archivo en PDF mandarlo por...
1 respuesta

Macro en excel para enviar archivo por e-mail

Necesito saber si hay algún modo de hacer una macro que me envié un libro por correo electrónico mediante Outlook a varios destinatarios claro con asunto y descripción de lo que se envía... En espera de su gentil ayuda
4 respuestas

Tengo una macro que envía correos, pero no envía la firma, ¿Cómo adjunto una firma?

Sub SendMail() Dim strReportName As String Dim strReportName2 As String 'Declaración de variables Dim objOutlook As Object Dim objMail As Object Dim objOutlookAttach As Object Dim Dan As String Dim Rafa As String P = 2 For F = P To 50 L = Cells(P,...
1 respuesta

Añadir attach para enviar mail desde Excel

Tengo esta macro que conseguí en la red. Desde Excel lanza Outlook con la información que incluyo en el código, envía un email a varios destinatarios, me personaliza y formatea el titulo, me deja escribir varias líneas en el mensaje... Etc, pero lo...
1 respuesta

Macro enviar correo desde excel a lista de contactos

Quería saber si es posible hacer una macro que envíe un correo utilizando Outlook, y en el .BCC incluya una lista de contactos existente en el Outlook. Tengo este código: Sub Correo() Dim objOutlook As Object Dim objMail As Object Dim...
1 respuesta

Macro para enviar hoja de excel y pdf en el mismo correo a varios destinatarios

Desde Guayaquil - Ecuador. Estoy realizando una programación en vba para mediante de una macro enviar una hoja de excel especifica de un libro y dentro de esa hoja hay un rango de celdas las cuales genero un PDF, aun no logro que ambas (PDF + HOJA DE...
1 respuesta

Ayuda para mandar correo desde vb6!

Mi intención es mandar 1 correo con archivo adjunto, desde vb6. Lo he intentado con la instrucción "shell("start.exe"...) y llamando a mailto: ; pero lo hace todo bien... Me comunica con el gestor de correo predeterminado y le pasa los parámetros,...
1 respuesta

Macro para enviar por correo electrónico

Para que responda a ser posible el experto Dante Amor o subsidiariamente para Elsa Matilde El siguiente código me da problemas: Sub Send_Msg() ActiveWorkbook.Save Dim objOL As New Outlook.Application Dim objMail As MailItem Set objOL = New...
2 respuestas

Necesito una macro que envíe por mail el mismo archivo en que se encuentra esta.

El código es el siguiente: Public Sub Enviar_Mail() Dim objOutlook As Outlook.Application Dim objSession As Outlook.Namespace Dim objMessage As Outlook.MailItem Dim objRecipient As Object Dim Fichero As String Dim Destino As String Fichero =...
1 respuesta

En excel, dos macros, crear pdf con la hoja 1 y adjunatrla y enviarla por mail

Tengo problemas, no me reconoce que archivo adjuntar! Sub ReportePDF() On Error Resume Next Dim NombreArchivo As String NombreArchivo = Sheets("Pedidos del mes").Range("b2").Value Sheets("Pedido").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _...
1 respuesta