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

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

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

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