| |
eak_guy
Posts: 15
Score: 0
Joined: 5/23/2001
From: USA
Status: offline
|
I have a problem with this code. It suppose to recieve a email and it checks the subject and if the subject is either "remove" or "registation" it add or removes the sender address to/from a database. For some reason it come up with an error here:
Dim objMessage as MAPI.Message
It says that there's an "unexpected end of statement"
Here's the whole code:
Option Explicit
' Database Variables
Dim objConn, ObjRS, strQuery
Dim strConnection
Dim strAddress, StrSubject
' Mail Variables
'Dim cdoSession, inbox, messages, message, msgID, i
Dim objMessage as MAPI.Message
Dim objMessages as MAPI.Messages
Dim objFolder as MAPI.Folder
Dim objSession as MAPI.Session
'Const adUseServer = 2
'Const adOpenKeyset = 1
'Const adCmdTable = 2
'Const adLockOptimistic = 3
Set objSession = CreateObject ("MAPI.Session");
objSession.logon
Set objFolder = objSession.Inbox
Set objMessages = objFolder.Messages
Set objMessageFilter= objMessages.Filter
objMessageFilter.Or= True
objMessageFilter.Subject="Remove"
objMessageFilter.Subject="Registration"
Set objMessage=objMessages.GetFrist
If objMessage Is Nothing Then
MsgBox "Folder is Empty"
else
'loop through other messages
Do While Not objMessage Is Nothing
strAddress= objMessage.Sender
strSubject = objMessage.Subject
'Set objConn = Server.CreateObject("ADODB.Connection")
'strConnection= "DSN=POCKETMOSAIC"
' objConn.Open strConnection
' strQuery= "SELECT PagerAddress FROM Users "
' strQuery= strQuery & "ORDER BY PagerAddress"
'if the pager address needs to be removed from the db
if strSubject = "Remove" then
MsgBox "remove"
' While not(objRS.EOF)
'if objRS("PagerNumber") = strAddress Then
' objRS.Delete
' MsgBox strAddress
'end if
' wend
'if the pager address need to be added to the db
Else StrSubject = "Registration" then
MsgBox "Add"
' objRS.AddNew
' objRS("PagerNumber")=strAddress
' objRS.Update
MsgBox strAddress
End if
Set objMessage= objMessage.GetNext
Loop
End if
' objRS.close
' objConn.close
Set objMessage = nothing
Set objMessages = nothing
Set objFolder= nothing
Set objSession = nothing
Set objRS = nothing
set objConn= nothing
MsgBox "Done!"
'cdoSession.Logoff
|
|
Printable Version
Problem with code - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread