Comparing sender's email address in VBA

[cuddle]

Hi,

I am a newbie in VB and trying to write a script that gets an email from a senders,captures the senders email id and compare that email id from a text file that contain email id of all teh registered users.If senders email id is found there ,scripts allow the sender to go further else send the error messgae that you are not registered.

I have done

Dim myolApp As Outlook.Application

Dim myNamespace As Outlook.NameSpace

Set myolApp = CreateObject("Outlook.Application")

Set myNamespace = myolApp.GetNamespace("MAPI")

emailid = myNamespace.CurrentUser.AddressEntry

'MsgBox EmailId

 

Sub ReadFile(sFilePathAndName)

sFilePathAndName = "C:\registeresusers\Logins.txt"

 

Dim sFileContents

 

Set oFS = Server.CreateObject("Scripting.FileSystemObject")

 

If oFS.FileExists(sFilePathAndName) = True Then

 

Set oTextStream = oFS.OpenTextFile(sFilePathAndName, 1)

 

sFileContents = oTextStream.ReadAll

 

For Each ID In Group

intCompare = StrComp(emailid, "E-mail Address", vbTextCompare)

If intCompare = 0 Then

MsgBox "continue"

 

Else

SendErrorEmail item, _

"You are not allowed to go further."

 

Exit Sub

End If

oTextStream.Close

 

Set oTextStream = Nothing

 

End If

 

Set oFS = Nothing

 

'ReadFile = sFileContents

 

End Sub

 

I dont know where I am going wrong but the script is not checking against the email addresses of each user.

[Steve21]

 

sFileContents = oTextStream.ReadAll

 

For Each ID In Group

intCompare = StrComp(emailid, "E-mail Address", vbTextCompare)

 

 

I dont know where I am going wrong but the script is not checking against the email addresses of each user.

 

I may be missing something as only on phone so reading code hard, but what is

 

For each Id in group

 

Supposed to be? There is no group variable thus for loop never runs.

 

Apologies if I'm missing something obvious but can't see whats up with that but of code

 

Steve

[cuddle]

Oh the problem is that i am not getting the sender's email id correct.It is giving the recipients email id.

Do you know how to check the sender's email id in VBscript.

for recipients email id i used the following code

Dim myolApp As Outlook.Application

' Dim myNamespace As Outlook.NameSpace

' Set myolApp = CreateObject("Outlook.Application")

'Set myNamespace = myolApp.GetNamespace("MAPI")

 

How can I get Sender's email address?

[mrwITch]

Take a look at the code inside Red>>>>

 

 

Hi,

I am a newbie in VB and trying to write a script that gets an email from a senders,captures the senders email id and compare that email id from a text file that contain email id of all teh registered users.If senders email id is found there ,scripts allow the sender to go further else send the error messgae that you are not registered.

I have done

Dim myolApp As Outlook.Application

Dim myNamespace As Outlook.NameSpace

Set myolApp = CreateObject("Outlook.Application")

Set myNamespace = myolApp.GetNamespace("MAPI")

 

'>>>>>>>>>>>>>>>>>

' get a handle on the Inbox

Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)

Set folderItems = myFolder.Items

' now iterate across the items in the Inbox

For Each folderItem In folderItems

' check if item is an MailItem object

If (folderItem.Class = olMail) Then

' get the sender email address

Debug.Print folderItem.Sender.Address

'....... now do your code here ......

End If

Next folderItem

'>>>>>>>>>>>>>>>>>

 

 

emailid = myNamespace.CurrentUser.AddressEntry

'MsgBox EmailId

 

Sub ReadFile(sFilePathAndName)

sFilePathAndName = "C:\registeresusers\Logins.txt"

 

Dim sFileContents

 

Set oFS = Server.CreateObject("Scripting.FileSystemObject")

 

If oFS.FileExists(sFilePathAndName) = True Then

 

Set oTextStream = oFS.OpenTextFile(sFilePathAndName, 1)

 

sFileContents = oTextStream.ReadAll

 

For Each ID In Group

intCompare = StrComp(emailid, "E-mail Address", vbTextCompare)

If intCompare = 0 Then

MsgBox "continue"

 

Else

SendErrorEmail item, _

"You are not allowed to go further."

 

Exit Sub

End If

oTextStream.Close

 

Set oTextStream = Nothing

 

End If

 

Set oFS = Nothing

 

'ReadFile = sFileContents

 

End Sub

 

I dont know where I am going wrong but the script is not checking against the email addresses of each user.