[ Close ]
Username
Password


Forgotten your password?
 
Custom Search
Computer/IT Projects
 Projects Q A, Guidance for your projects Projects Forum Computer/IT Projects
Message Icon Topic: college sms alert system Post Reply Post New Topic
Found this useful? Give a +1   Add to Facebook: Add to Facebook
Free Project Downloads
CS / IT Project Downloads
.Net Project Downloads
JAVA Project Downloads
PHP Project Downloads
Networking Proj Downloads
Project Topics
Computer(CS/IT) Projects
Software Mini Project Topics
Android Project Topics
Networking Project Ideas
Dot Net Project Topics
Latest IEEE Projects List
IEEE JAVA Project Topics
Project Presentation Tips
How to choose Project Topic
Tips for Final Year Project
Steps for FYP, Mini Project
Preparing a Project Report
Problems faced in Projects
 
Get Free Software CS / IT Project Downloads:

Enter your email address:  

Author Message
guptags
Newbie
Newbie


Joined: 01-Jul-2011
Online Status: Offline
Posts: 0
Quote guptags Replybullet Topic: college sms alert system
    Posted: 01-Jul-2011 at 1:14am
i want this project (college sms alert system)in .net

 
IP IP Logged
PrashanthS
Senior Member
Senior Member


Joined: 21-Sep-2008
Online Status: Offline
Posts: 0
Quote PrashanthS Replybullet Posted: 11-Jul-2011 at 11:45am
Hi guptags,

I came across this SMS notification system for a college...might help you out....

http://www.activexperts.com/mmserver/casestudies/bulk-stjoseph/#activexperts

Code:

Option Explicit

Dim g_Constants, g_MessageDB

Private Sub BTN_COUNTSTUDENTS_Click()
On Error Resume Next
    Dim objOU, numCount, objStudent
    MousePointer = vbHourglass
    Set objOU = GetObject(TXT_LDAPSTRING)
    If (objOU Is Nothing) Then
        MsgBox "Unable to access the OU on the specified Domain Controller.", vbCritical, _
        "St. Joseph"
    Else
        numCount = 0
        For Each objStudent In objOU
            numCount = numCount + 1
        Next
        MsgBox "Number of students in selected OU: " & numCount, vbOKOnly, "St. Joseph"
        Set objOU = Nothing
    End If
    MousePointer = vbDefault
End Sub


Private Sub BTN_SHOWSTUDENTS_Click()
On Error Resume Next
    Dim objOU, strStudents, objStudent
    MousePointer = vbHourglass
    Set objOU = GetObject(TXT_LDAPSTRING)
    If (objOU Is Nothing) Then
        MsgBox "Unable to access the OU on the specified Domain Controller.", vbCritical, _
        "St. Joseph"
    Else
        strStudents = ""
        For Each objStudent In objOU
            strStudents = strStudents & objStudent.Name & " (" & _
            "Mobile:" & objStudent.Mobile & "; " & _
            "E-mail:" & objStudent.Mail & ")" & vbCrLf
        Next
        MsgBox "Students in selected OU: " & vbCrLf & _
                 "============================" & vbCrLf & vbCrLf & _
                 strStudents, vbOKOnly, "St. Joseph"
        Set objOU = Nothing
    End If
    MousePointer = vbDefault
End Sub


Private Sub BTN_SUBMIT_Click()
On Error Resume Next
    Dim objOU, objStudent, objMessageOut, numSmsMessages, numEmailMessages
    
    numSmsMessages = 0
    numEmailMessages = 0
    
    MousePointer = vbHourglass
    
    Set objOU = GetObject(TXT_LDAPSTRING)
    MousePointer = vbDefault
    If (objOU Is Nothing) Then
        MsgBox "Unable to access the OU on the specified Domain Controller.", vbCritical, _
        "St. Joseph"
    Else
        For Each objStudent In objOU
            If (RB_SENDSMS.Value <> 0 And objStudent.Mobile <> "") Then
               Set objMessageOut = g_MessageDB.Create
               If (g_MessageDB.LastError = 0) Then
                  objMessageOut.Direction = g_Constants.MESSAGEDIRECTION_OUT
                  objMessageOut.Type = g_Constants.MESSAGETYPE_SMS
                  objMessageOut.Status = g_Constants.MESSAGESTATUS_OUT_SCHEDULED
                  objMessageOut.To = objStudent.Mobile
                  objMessageOut.ChannelID = 0 ' First available SMS channel
                  objMessageOut.Body = TXT_MESSAGEBODY
                  objMessageOut.ScheduleTime = TXT_SCHEDULE
                  objMessageOut.Save
               End If
               numSmsMessages = numSmsMessages + 1
            End If
            
            If (RB_SENDEMAIL.Value <> 0 And objStudent.Mail <> "") Then
               Set objMessageOut = g_MessageDB.Create
               If (g_MessageDB.LastError = 0) Then
                  objMessageOut.Direction = g_Constants.MESSAGEDIRECTION_OUT
                  objMessageOut.Type = g_Constants.MESSAGETYPE_EMAIL
                  objMessageOut.Status = g_Constants.MESSAGESTATUS_OUT_SCHEDULED
                  objMessageOut.To = objStudent.Mail
                  objMessageOut.ChannelID = 0 ' First available SMS channel
                  objMessageOut.Body = TXT_MESSAGEBODY
                  objMessageOut.ScheduleTime = TXT_SCHEDULE
                  objMessageOut.Save
               End If
               numEmailMessages = numEmailMessages + 1
            End If
        Next
        Set objOU = Nothing
    End If
    MousePointer = vbDefault
    MsgBox "#SMS Messages created: " & numSmsMessages & vbCrLf & _
    "#E-mail messages created: " & numEmailMessages, vbInformation, "St. Joseph"
End Sub


Private Sub Form_Load()
    TXT_LDAPSTRING = "LDAP://dell04/ou=students,dc=activexperts,dc=dom"
    
    Set g_Constants = CreateObject("AxMmServer.Constants")
    Set g_MessageDB = CreateObject("AxMmServer.Messages")
    
    RB_SENDSMS.Value = 1
    RB_SENDEMAIL.Value = 0
    
    TXT_MESSAGEBODY = "All lessons from teacher Mr. Jones are cancelled on " & Date
    TXT_MESSAGESUBJECT = "Notification from St. Joseph College"
    TXT_MESSAGESUBJECT.Enabled = False
    TXT_SCHEDULE = "+0d0h5m"
End Sub


Private Sub RB_SENDEMAIL_Click()
    If (RB_SENDEMAIL.Value <> 0) Then
        TXT_MESSAGESUBJECT.Enabled = True
    Else
        TXT_MESSAGESUBJECT.Enabled = False
    End If
End Sub

 
IP IP Logged
Stranger
Groupie
Groupie


Joined: 21-Sep-2008
Online Status: Offline
Posts: 0
Quote Stranger Replybullet Posted: 11-Jul-2011 at 12:02pm
IP IP Logged

 
Post Reply Post New Topic

Free Programming Courses in JAVA, .Net and PHP (Register Now!)

Java Free Online Course

.Net Free Online Course

PHP Free Online Course


 
Printable version Printable version

Forum Jump
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot delete your posts in this forum
You cannot edit your posts in this forum
You cannot create polls in this forum
You cannot vote in polls in this forum



This page was generated in 0.031 seconds.
© ProjectsQA.com   |   Privacy policy