Hi westconn1,

Thanks for the reply.

Ok, So I have the following code:

Sub GetJobNumber()

Dim strName As String

 Dim objMsg As Outlook.MailItem
 Set objMsg = Outlook.ActiveInspector.CurrentItem

    strName = InputBox(Prompt:="Please Enter Job Number:", _
          Title:="ENTER JOB NUMBER", Default:="Job Number Here...")

          

        If strName = "Job Number Here..." Or _
           strName = vbNullString Then

           Exit Sub

        Else

          Select Case strName

            Case "1068 (GC-###) - "


 objMsg.Subject = "1068"

            Case "1071"


 objMsg.Subject = "1071 (GC-###) - "

            Case "1356"


 objMsg.Subject = "1356 (GC-###) - "

            Case Else

 NoJobNumber

          End Select

        End If

  

End Sub


Sub NoJobNumber()

 Dim objMsg As Outlook.MailItem
 Set objMsg = Outlook.ActiveInspector.CurrentItem

     iReply = MsgBox(Prompt:="Job Number not registered for tracking, continue with 'misc' job number?", _
            Buttons:=vbOKCancel, Title:="Job Number Not Found")
            
                If iReply = vbOK Then


 objMsg.Subject = "XXXX (GC-###) - "

                If iReply = vbCancel Then Exit Sub
                End If
                
                
End Sub
Which seems to work OK so far. It will prompt the user for a job number, and then insert a subject prefix according to the job number entered. It will also alert the user if the job number has not yet been considered/allowed for in the 'system'.

I've done a bit of googling about how to read/write a text file as the tracking number database, but haven't been able to find much that I am able to understand. Is there a function or article you can suggest to get me started? I'm basically looking for a way to read, write and +1 a 3 digit number/counter to a .TXT or Excel file, then substitute that new number into the subject line of the email as it is sending.

Thanks a lot for any help.