Easy way to change mail quota on several servers at once (1)
Från: Jared Jones
Thanks for posting this article. It's so helpful to find information like this freely shared. The code for updating quotas on multiple servers works great, until you try to use it to lower someone's quota ;) I found the solution thanks to this forum post: http://www-10.lotus.com/ldd/nd8forum.nsf/5f27803bba85d8e285256bf10054620d/aa16cd e85e238f2d852578aa0041a582?OpenDocument In addition to the fix from the forum, I added a loop to handle multiple servers. Just add/remove items to the mailserver list: Sub Click(Source As Button) On Error Goto e Dim ws As New NotesUIWorkspace Dim session As New NotesSession, db As NotesDatabase, dc As NotesDocumentCollection Dim i As Integer, doc As NotesDocument, maildb As NotesDatabase, mailfile As String Dim update As Integer Dim scount As Integer Set db = session.currentdatabase Dim mailserver List As String mailserver("server1/Domain") = "server1" mailserver("server2/Domain") = "server2" Dim quota As String Dim warning As String Set dc = db.UnprocessedDocuments quota = Inputbox("Enter Quota","Enter Quota in Mb to set on " + Cstr(dc.count) + " selected user","500") If Not Isnumeric(quota) Then Msgbox "Not a valid number, exiting",64,"Info":Exit Sub warning = Inputbox("Enter Quota Warning","Enter Quota Warning in Mb to set on " + Cstr(dc.count) + " selected user in","450") If Not Isnumeric(warning) Then Msgbox "Not a valid number, exiting",64,"Info":Exit Sub If dc Is Nothing Then Print "Nothing to do, exiting ":Exit Sub If Msgbox("Are you sure you want to set quota " + quota + "Mb and Warning " + warning + " Mb" + " on " + Cstr(dc.count) + " Users?",68,"Question") <> 6 Then Exit Sub Dim getdbQuota As Long Dim setdbQuota As Long setdbQuota = Clng(quota) * 1024 For i = 1 To dc.count Set doc = dc.getnthdocument(i) mailfile = doc.MailFile(0) Forall srv In mailserver Set maildb = session.GetDatabase(Listtag(srv),mailfile,False) If Not maildb Is Nothing Then getdbQuota = maildb.SizeQuota If quota = "0" Then maildb.SizeQuota = 0 maildb.SizeWarning = 0 Print "Quota set for mail file " + mailfile + " on " + srv Else If getdbQuota <= setdbQuota Then maildb.SizeQuota = setdbQuota maildb.SizeWarning = Clng(warning) * 1024 Else maildb.SizeWarning = Clng(warning) * 1024 maildb.SizeQuota = setdbQuota End If Print "Quota set for mail file " + mailfile + " on " + srv End If update = update + 1 Else Print "Could not open " + mailfile + " on " + srv End If Print "Quota on server " + srv + " is now " + Cstr(maildb.SizeQuota) + " warning is " + Cstr(maildb.SizeWarning) scount = scount + 1 End Forall If update > 0 Then doc.ModQuota = quota If update = scount Then 'quota is now the same on all servers doc.QuotaSync = 1 End If Call doc.save(False,False) End If update = 0 Next Call ws.ViewRefresh Exit Sub e: Print Error,Erl End Sub
Stapeldiagram på webben utan bilder (7)
Från: Rajesh
Please send me the code example to create charts using lotus script
Daily email event report from DDM 2 (1)
Från: Palmi
Very Cool
@Word and @ReplaceSubstring in Lotusscript (3)
Från: Txemanu
I like use ReplaceSubString in this way: ReplaceSubString = Join(Split(sourceString, SearchS), ReplaceS)
Från: anonymous
Why not using the native Replace and StrToken functions?
Add notification when certificates is about to expire (2)
Från: Thomas
All certificates expire, that is why you need my script
Från: Patrick Kwinten
is there also an option that says a certificate never will expire?
Add email snooze to your IBM Notes Mail (2)
I did somethink simulur to our CRM , Where you can add DATE and agent sents the email on that DATE.