How to Save Incoming Messages into Text File

This sample demonstrates how to save an incoming message into a text file using the Info service.

File SaveMessage.vbs used in this sample is located in the folder:

    C:\Program Files\CodeSegment\SMS Studio\Samples\InfoService

This script receives the phone number of the sender, the text of the incoming message, and the name of the text file, and writes sender’s phone number and message text into the specified text file.

How to run this sample

1. Click the New button on the main toolbar and select the Info service option in the New Service dialog.
2. Click the Setup button on the main toolbar to display the Info Setup dialog.
3. In the General tab of the Info Setup dialog click the Add button to display the Add Rule dialog.
4. In the General tab of the Add Rule dialog enter the following parameters:
   Name: Save Message
   Pattern: *
   Action: Execute external application
5. In the Execute tab of the Add Rule dialog enter the following parameters:
   External application: SaveMessage.vbs - use the selection button ( ... ) to locate and select the external application.
   Application parameters: "%MsgFrom%" "%MsgText%" "Messages.txt"
6. Click the Add button to close the Add Rule dialog.
7. Click the OK button to close the Info Setup dialog.
8. Click the Start button on the main toolbar to start the Info service.
9. Use Tools / Receive Message option in the main menu to display the Receive Message dialog. Fill in the Phone and Text fields and click the Receive button. The Info service will receive this message and run the SaveMessage.vbs application which will save a message into Messages.txt file.

Source code

The contents of the SaveMessage.vbs file:

'-------------------------------------------------------------------------------------------------------------------------------
' This script demonstrates how to save a message into a text file.
' WARNING: Error checking omitted for clarity.
'
' Use the following application parameters in the Info Rule dialog:
' "%MsgFrom%" "%MsgText%" "Messages.txt"
'-------------------------------------------------------------------------------------------------------------------------------

if WScript.Arguments.Count = 3 then

    ' Collect arguments
    SenderPhone = WScript.Arguments(0)                     ' Sender phone
    Text = WScript.Arguments(1)                            ' Message text
    FileName = WScript.Arguments(2)                        ' File name
  
    set fso = CreateObject("Scripting.FileSystemObject")   ' Create file system object   
    set file = fso.OpenTextFile(FileName,8,true)           ' Open file
    file.Write(SenderPhone & "; " & Text & vbCrLf)
    file.Close

    WScript.Quit(0)                                        ' Success

else

    MsgBox "Error: Wrong number of arguments.", vbCritical, "SMS Studio Save Message Sample"
    WScript.Quit(1)                                        ' Error

end if

'-------------------------------------------------------------------------------------------------------------------------------
' Copyright (c) 2002-2009 CodeSegment. All rights reserved.                                          http://www.codesegment.com/
'-------------------------------------------------------------------------------------------------------------------------------

Related topics

Info Rules, Named Pipe