Restore deleted items in Outlook

Accidents happen. When that sudden realization hits days later that you need an email message that’s long gone, the Recover Deleted Items command might save your day. You can recover some deleted items, like messages, appointments, contacts, tasks, and notes, even after the Deleted Items folder is emptied or you’ve “hard deleted” an item by pressing Shift+Delete. This feature requires a Microsoft Exchange Server account and doesn’t work with POP3 or Internet Message Access Protocol (IMAP) accounts.
If you’re using Office 365 or another Exchange-based client, you can also restore deleted items using Outlook Web App. For more information, see Recover deleted messages or items in Outlook Web App.
  1. Click Folder > Recover Deleted Items.Recover Deleted Item command on the ribbonIf you don’t see Recover Deleted Items, you’re probably not using an Exchange account or you don’t have a folder selected in that account.
  2. Click the message you want to recover, and then click Recover Selected Items Button image. Tip    To select multiple items, press Ctrl as you click each item, and then click Recover Selected Items Button image.Recovered items are restored to the folder you’re working in.

Note    Your Exchange administrator specifies the retention time for deleted items. After this time elapses, deleted items cannot be restored.

To enable port 80 on Windows Server 2008 R2:

To enable port 80 on Windows Server 2008 R2:

NOTE: This assumes that IIS is not installed. I added this firewall rule to enable Apache to accept connections on port 80.

  1. Click Start->Control Panel->Windows Firewall
  2. Click “Advanced Settings” in the left panel of Windows Firewall
  3. Click “Inbound rules” in the left panel of Advanced Settings
  4. Click “New Rule…” in right “Actions” panel
  5. Select “Port” and click “Next>”
  6. Select “TCP”, then “Specific local ports:” (should already be selected)
  7. Type 80 in the box (just the number) and click “Next>”
  8. Select “Allow the connection” and click “Next>”
  9. Leave all profiles checked and click “Next>”
  10. Enter a name and click “Finish”.

Your server should now be able to accept connections on port 80.


How to Automatically Update Another Git Repository After Push

Git hooks are basically glorified shell scripts that execute before or after certain Git operations complete, allowing you to customize the behavior of Git.

The post-receive hook executes when a repository receives changes via a git push from another repository. One clever use of this hook is to automatically update another repository when the origin repository receives changes…


Excel – Creating a List of Formulas

Most users have discovered that Excel has an option that lets you display formulas directly in their cells: Choose Tools Options, click the View tab, and select the Formulas checkbox. However, Excel doesn’t provide a way to generate a concise list of all formulas in a worksheet. The VBA macro below inserts a new worksheet, then creates a list of all formulas and their current values.

To use this subroutine:

  1. Copy the code below to a VBA module. You can also store it in your Personal Macro Workbook, or create an add-in.
  2. Activate the worksheet that contains the formulas you want to list.
  3. Execute the ListFormulas subroutine. The subroutine will insert a new worksheet that contains a list of the formulas and their values.

The ListFormulas Subroutine

Sub ListFormulas()
Dim FormulaCells As Range, Cell As Range
Dim FormulaSheet As Worksheet
Dim Row As Integer

' Create a Range object for all formula cells
On Error Resume Next
Set FormulaCells = Range("A1").SpecialCells(xlFormulas, 23)

' Exit if no formulas are found
If FormulaCells Is Nothing Then
MsgBox "No Formulas."
Exit Sub
End If

' Add a new worksheet
Application.ScreenUpdating = False
Set FormulaSheet = ActiveWorkbook.Worksheets.Add
FormulaSheet.Name = "Formulas in " & FormulaCells.Parent.Name

' Set up the column headings
With FormulaSheet
Range("A1") = "Address"
Range("B1") = "Formula"
Range("C1") = "Value"
Range("A1:C1").Font.Bold = True
End With

' Process each formula
Row = 2
For Each Cell In FormulaCells
Application.StatusBar = Format((Row - 1) / FormulaCells.Count, "0%")
With FormulaSheet
Cells(Row, 1) = Cell.Address _
(RowAbsolute:=False, ColumnAbsolute:=False)
Cells(Row, 2) = " " & Cell.Formula
Cells(Row, 3) = Cell.Value
Row = Row + 1
End With
Next Cell

' Adjust column widths
Application.StatusBar = False
End Sub