Urgent: Create Mailfile (AdminP action) doesn't work after upgraded to R601

HCL Domino Domino Forum
1

We have an application to create AdminP requests (create mailfile) using LS. It was working OK on R5 server. But after upgraded server to R6, all the requests are not actioned by AdminP. Any comments are appreciated.

QQ

2

Subject: Urgent: Create Mailfile (AdminP action) doesn’t work after upgraded to R601

Is there an error message? Does nothing happen?

3

Subject: RE: Urgent: Create Mailfile (AdminP action) doesn’t work after upgraded to R601

It is nothing happened! (no error and no action at all). AdminP is running ok by using manual way to register user with selecting create mailfile by Adminp.

I am thinking R6 has introduced some new fields for AdminP request and don’t know what. The new AdminP class doesn’t have the method to create mailfile.

I am attaching the code below, it was working OK on R5 server.

Sub adminPReqCreateMail

' Create AdminP Document for creating new users mail-file 

'



If dbAdminP	Is Nothing Then

	Set dbAdminP = New NotesDatabase (docLog.regMailServer(0),"Admin4.NSF")

	'Set dbAdminP = New NotesDatabase (docPerson.MailServer(0),"admin4.NSF")

End If	

Dim admDoc As New NotesDocument (dbAdminP)

Dim admItem As NotesItem



      'set field values -----------------------------------------------



      'fixed values

admDoc.Form="AdminRequest"

admDoc.ProxyAction = "24"

admDoc.ProxyProcess = "Adminp"

admDoc.Type = "AdminRequest"



admDoc.ProxyAuthor = s.Username



       'Mail path (i.e. "Mail\TTEST")

'admDoc.ProxyDatabasePath = mailFilePath$

admDoc.ProxyDatabasePath = doclog.UserMailDir(0)

         'New users name

	'admDoc.ProxyNameList = "CN=" + Fname + " " + LName + "/OU=Test/O=Acme"

admDoc.ProxyNameList = doclog.Fullname(0)



      'users mail server

admDoc.ProxyServer = docLog.regMailServer(0)

admDoc.ProxySourceServer = docLog.regMailServer(0)



      'Sign field and set field flags

Set admItem = admDoc.GetFirstItem( "ProxyAction")

admItem.IsSigned = True

admItem.IsProtected = True



If doclog.MailTemplate(0) = "" Then				

	admDoc.ProxyTextItem1 = genProfileDoc.MailTemplate(0)

Else

	admDoc.ProxyTextItem1 = doclog.MailTemplate(0)		

End If

Set admItem = admDoc.GetFirstItem( "ProxyTextItem1")

admItem.IsSigned = True

admItem.IsProtected = True





Set admItem = admDoc.GetFirstItem( "ProxyAuthor")

admItem.IsSigned = True

admItem.IsAuthors = True

Set admItem = admDoc.GetFirstItem( "ProxyDatabasePath")

admItem.IsSigned = True

Set admItem = admDoc.GetFirstItem( "ProxyNameList")

admItem.IsSigned = True

admItem.IsNames = True

Set admItem = admDoc.GetFirstItem( "ProxyProcess")

admItem.IsSigned = True

admItem.IsProtected = True

Set admItem = admDoc.GetFirstItem( "ProxyServer")

admItem.IsSigned = True

admItem.IsNames = True

Set admItem = admDoc.GetFirstItem( "ProxySourceServer")

admItem.IsSigned = True

admItem.IsNames = True

Set admItem = admDoc.GetFirstItem( "Type")

admItem.IsSigned = True

admItem.IsProtected = True





admDoc.ProxyCreateFullTextIndex = "0"

Set admItem = admDoc.GetFirstItem( "ProxyCreateFullTextIndex")

admItem.IsSigned = True

admItem.IsProtected = True



admDoc.ProxyMailfileAccessLevel = "0"

Set admItem = admDoc.GetFirstItem( "ProxyMailfileAccessLevel")

admItem.IsSigned = True

admItem.IsProtected = True

'sign document

Call admDoc.Sign

'save document

Call admDoc.Save (True,False)

End Sub

4

Subject: RE: Urgent: Create Mailfile (AdminP action) doesn’t work after upgraded to R601

Can you provide what the value of the fields are? Are you using canonical form for names (cn=/o-)? Specifically, ProxyServer?

5

Subject: RE: Urgent: Create Mailfile (AdminP action) doesn’t work after upgraded to R601

Thanks David, I was using Abbreviate name for server name, It should be Canonicalize name. Seems R6 is more restricting in term of name used than R5

6

Subject: Urgent: Create Mailfile (AdminP action) doesn’t work after upgraded to R601

I am getting the same issue, even though I’ve got my code passing the ProxyServer and ProxySourceServer in canonical format…