Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos!!
Tengo un problema con la siguiente macro:
Código:
Sub Correo()
strReportName = "C:\Users\xxx\Documents\Pedidos nacional\Pedido Norte Chico&FechaHora&. Pdf.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
.To = "xxx@xxxx.com.pe"
.Subject = "Pedidos"
.Body = ""
.Attachments.Add (strReportName)
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub
Como el archivo esta guardado con HORA Y FECHA no reconoce al archivo para que pueda enviarlo por correo.
Hay alguna manera de llamar al último archivo guardado en esa carpeta para que se envie por correo?
Por favor ayudenme, que tengo que entregar este archivo esta semana y me estoy volviendo loca.
Muchas Gracias!!!