|
|
|
|
|
|
|
|
|
|
How to audit your address book: more code (continued)
Now we check the mail system fields for the person document to see if they at least seem reasonable. The first check tells us if we have a person document with a non-Notes mail system.
If you manage your Domino directories closely, you'll want to know about these, because they are potentially "foreign" entries: people who aren't in your Notes system and therefore may be better kept in a secondary directory.
'7. check mailsystem fields
If pers.mailsystem(0) <> "1" Then 'mail system not Notes
Call reportdocbody.addtab(1)
Call ReportDocBody.appendtext("(2): Mail System value is not 1 (Notes): " & pers.mailsystem(0))
Call reportdocbody.addnewline(1)
sev(2) = True
Else
|
We also check that we have a mail server specified, and we then go look in the servers view to see if this is a server in this domain. If not, we report it. This could be a person record for someone who has left the company and whose mail server no longer exists. Or it could be an error!
If pers.mailserver(0) = "" Then
Call reportdocbody.addtab(1)
Call ReportDocBody.appendtext("(1): Notes mail user: no mail server name specified")
Call reportdocbody.addnewline(1)
sev(1) = True
Else 'is this one of the servers in this domain
Set ServerDoc = ServerView.getdocumentbykey(pers.mailserver(0),True)
If ServerDoc Is Nothing Then 'server not found
Call reportdocbody.addtab(1)
Call ReportDocBody.appendtext("(1): Mail Server specified is not in this domain: " & pers.mailserver(0))
Call reportdocbody.addnewline(1)
sev(1) = True
End If
End If
|
And then we check the Notes domain is what we expect. You will have to change this for your installation.
If Ucase(pers.maildomain(0)) <> "Unipart" Then '<<<< enter here and here VV (below) the the mail domain name
Call reportdocbody.addtab(1)
Call ReportDocBody.appendtext("(2): Notes mail user: mail domain is not Unipart:" & pers.maildomain(0))
Call reportdocbody.addnewline(1)
sev(2) = True
End If
End If 'Mail system is Notes
|
The next check is on the email address to see if it's in the right corporate format of firstname/underscore/lastname@domainname. If not, we check to see if it's an old internet address format, shortname@olddomain1 or olddomain2, or if it's some other format completely.
'8. Check Internet address
If pers.internetaddress(0) = "" Then
Call reportdocbody.addtab(1)
Call ReportDocBody.appendtext("(3): No Internet Address specified.")
Call reportdocbody.addnewline(1)
sev(3) = True
End If
If Lcase(pers.internetaddress(0)) <> Lcase(pers.firstname(0) & "_" & pers.lastname(0) & "@newdomain.com") Then 'acceptable
If Lcase(pers.internetaddress(0)) = Lcase(pers.shortname(0) & "@olddomain1.com") Or _
Lcase(pers.internetaddress(0)) = Lcase(pers.shortname(0) & "@olddomain2.com") Then 'one of the old forms
Call reportdocbody.addtab(1)
Call ReportDocBody.appendtext("(2): Internet address is not the new corporate standard: " & pers.internetaddress(0))
Call reportdocbody.addnewline(1)
sev(2) = True
Else
Call reportdocbody.addtab(1)
Call ReportDocBody.appendtext("(1): Internet address is of an unexpected form: " & pers.internetaddress(0))
Call reportdocbody.addnewline(1)
sev(1) = True
End If
End If
|
[ Prev | Next ]
|
|
|
|
|
|
-- Advertisement --
2-Minute Tutorials
How do I...
- integrate MS Office or OpenOffice with Notes?
- create cross-tab reports and charts?
- print serial letters and mailing labels?
- create PDFs in Lotus Notes?
Check out the 2-minute tutorials here. |
-- Advertisement --
SECURTRAC - MONITOR AND CONTROL YOUR DOMINO ENVIRONMENT
When it comes to your business, how do you ensure compliance with SOX, HIPAA or other industry driven regulations? Use SecurTrac to monitor and audit the life cycle of all objects in your Domino environment.
- Database Monitor
- Mail Monitor
- Domino Directory Monitor
- Notes.ini File Monitor
- Intrusion Detection Monitor
Click here for details and a free evaluation copy. |
|
|
|
|
|
|
|
|
