Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Modified Date lookup
I have a .rtf documents that may or may not be updated daily. If it was
updated today then it needs to be added to an email to be sent out. If not, the .rft document is not sent. Is there code i can put in excel that will look at the modified date for a specific file, check to see if that file date equals todays, and if it does, attack it to an email. Here is the code i currently use for the email: Sub Mail_workbook_Outlook() Windows("CSTS Rollup.xls").Activate Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "Distro" .CC = "" .BCC = "" .Subject = "Daily/MTD CSTS Rollup as of " & Format(Date, "mm_dd_yy") .Body = "" .Attachments.Add ActiveWorkbook.FullName .Display .ReadReceiptRequested = False End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing ActiveWindow.Close End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Modified Date lookup
Excel changes the modified date to wheneve the file was opened, so if that's
an issue, you may want something else. Otherwise: If DateValue(FileDateTime("C\File.xls")) = DateValue(Now()) Then MsgBox "today" Else MsgBox "not today" End If "Greg H." wrote in message ... I have a .rtf documents that may or may not be updated daily. If it was updated today then it needs to be added to an email to be sent out. If not, the .rft document is not sent. Is there code i can put in excel that will look at the modified date for a specific file, check to see if that file date equals todays, and if it does, attack it to an email. Here is the code i currently use for the email: Sub Mail_workbook_Outlook() Windows("CSTS Rollup.xls").Activate Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "Distro" .CC = "" .BCC = "" .Subject = "Daily/MTD CSTS Rollup as of " & Format(Date, "mm_dd_yy") .Body = "" .Attachments.Add ActiveWorkbook.FullName .Display .ReadReceiptRequested = False End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing ActiveWindow.Close End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Modified Date lookup
Sorry, must not have been clear. I want to look at the modified date of the
..rtf file, not the excel file. If the .rtf file was updated today, attach it. If it was not modified today, dont attach it. "-" wrote: Excel changes the modified date to wheneve the file was opened, so if that's an issue, you may want something else. Otherwise: If DateValue(FileDateTime("C\File.xls")) = DateValue(Now()) Then MsgBox "today" Else MsgBox "not today" End If "Greg H." wrote in message ... I have a .rtf documents that may or may not be updated daily. If it was updated today then it needs to be added to an email to be sent out. If not, the .rft document is not sent. Is there code i can put in excel that will look at the modified date for a specific file, check to see if that file date equals todays, and if it does, attack it to an email. Here is the code i currently use for the email: Sub Mail_workbook_Outlook() Windows("CSTS Rollup.xls").Activate Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "Distro" .CC = "" .BCC = "" .Subject = "Daily/MTD CSTS Rollup as of " & Format(Date, "mm_dd_yy") .Body = "" .Attachments.Add ActiveWorkbook.FullName .Display .ReadReceiptRequested = False End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing ActiveWindow.Close End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Modified Date lookup
Same principle. This will work for any file. Just replace the "sample" file
I posted with yours. It doesn't matter if it's an rtf file. For more info see FileDateTime in the help files. "Greg H." wrote in message ... Sorry, must not have been clear. I want to look at the modified date of the .rtf file, not the excel file. If the .rtf file was updated today, attach it. If it was not modified today, dont attach it. "-" wrote: Excel changes the modified date to wheneve the file was opened, so if that's an issue, you may want something else. Otherwise: If DateValue(FileDateTime("C\File.xls")) = DateValue(Now()) Then MsgBox "today" Else MsgBox "not today" End If "Greg H." wrote in message ... I have a .rtf documents that may or may not be updated daily. If it was updated today then it needs to be added to an email to be sent out. If not, the .rft document is not sent. Is there code i can put in excel that will look at the modified date for a specific file, check to see if that file date equals todays, and if it does, attack it to an email. Here is the code i currently use for the email: Sub Mail_workbook_Outlook() Windows("CSTS Rollup.xls").Activate Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "Distro" .CC = "" .BCC = "" .Subject = "Daily/MTD CSTS Rollup as of " & Format(Date, "mm_dd_yy") .Body = "" .Attachments.Add ActiveWorkbook.FullName .Display .ReadReceiptRequested = False End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing ActiveWindow.Close End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Last Modified Date | Excel Programming | |||
Date Last Modified | Excel Worksheet Functions | |||
Last Modified Date help... | Excel Programming | |||
modified date | Excel Programming | |||
Modified Date | New Users to Excel |