Howdy All,

I am trying to get the values of the fields in a Custom Outlook Form into a preformatted excel spreadsheet that starts at B8 and finishes at F8, once that row has been fill it will then move onto B9:F9 etc

I have this bit of VBA code that I have use in a userform experiment but I need the equivalent VBscript code for Outlook that will loop through the active cells to fill the range and rows.

Also I'll need it to "run in the background" so that it will open the excel spreadsheet and just save it (NOT Save As).

Private Sub cmdButton_Click()
ActiveWorkbook.Sheets("TEST").Activate
Range("B8").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = Item.UserProperties("TextBox1")
ActiveCell.Offset(0, 1) = Item.UserProperties("TextBox1") ' Outlook Form Field
ActiveCell.Offset(0, 2) = Item.UserProperties("TextBox2") ' Outlook Form Field
ActiveCell.Offset(0, 3) = Item.UserProperties("TextBox3") ' Outlook Form Field
ActiveCell.Offset(0, 4) = Item.UserProperties("TextBox4") ' Outlook Form Field
ActiveCell.Offset(0, 5) = Item.UserProperties("TextBox5") ' Outlook Form Field
Range("B8").Select
End Sub

If anyone can help or direct me to a useful website that would be appreaciated

Ben