Regulations Publication History: Part 1630: Cost standards and procedures

The following documents are the Federal Register notices announcing the current and previous versions of the LSC regulations. The supplemental information found in these notices may be useful in understanding the regulations. They are provided for research purposes. Please make sure that you are using the current version of the regulation if you want to know the rules that apply today.

All documents, unless otherwise noted, are available as Portable Document Format (PDF) files, which may be viewed with a free copy of Adobe Acrobat Reader.

Date Title Cite
10-09-15 Advanced Notice of Proposed Rulemaking 80 FR 61142
04-20-15 Proposed Rule 80 FR 21692
01-09-98 Correction 63 FR 1532
12-31-97 Final Rule 62 FR 68219
08-29-97 Proposed Rule 62 FR 45778
08-13-86 Final Rule 51 FR 29076
04-21-86 Proposed Rule 51 FR 13532
08-29-85 Proposed Rule 50 FR 35102
08-28-84 Proposed Rule 49 FR 34190

 

Sub ReplyWithAttachments()
    Dim oReply As Outlook.MailItem
    Dim oItem As Object
      
    Set oItem = GetCurrentItem()
    If Not oItem Is Nothing Then
        Set oReply = oItem.Reply
        CopyAttachments oItem, oReply
        oReply.Display
        oItem.UnRead = False
    End If
      
    Set oReply = Nothing
    Set oItem = Nothing
End Sub
  
Sub ReplyAllWithAttachments()
    Dim oReply As Outlook.MailItem
    Dim oItem As Object
      
    Set oItem = GetCurrentItem()
    If Not oItem Is Nothing Then
        Set oReply = oItem.ReplyAll
        CopyAttachments oItem, oReply
        oReply.Display
        oItem.UnRead = False
    End If
      
    Set oReply = Nothing
    Set oItem = Nothing
End Sub
Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application
          
    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    End Select
      
    Set objApp = Nothing
End Function
  
Sub CopyAttachments(objSourceItem, objTargetItem)
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set fldTemp = fso.GetSpecialFolder(2) ' TemporaryFolder
   strPath = fldTemp.Path & "\"
   For Each objAtt In objSourceItem.Attachments
      strFile = strPath & objAtt.FileName
      objAtt.SaveAsFile strFile
      objTargetItem.Attachments.Add strFile, , , objAtt.DisplayName
      fso.DeleteFile strFile
   Next
  
   Set fldTemp = Nothing
   Set fso = Nothing
End Sub