Domino限制附件大小设置Word格式文档下载.docx

Domino限制附件大小设置Word格式文档下载.docx

《Domino限制附件大小设置Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《Domino限制附件大小设置Word格式文档下载.docx（13页珍藏版）》请在冰豆网上搜索。

If（x>

5120;

Do（Prompt（[OK];

"

提示!

;

附件超过5120K将不能发送！

附件大小共:

"

+Text（x）+"

K"

Return（"

）;

再修改便笺表单,选择表单属性,去掉关闭时后面的小叉就可以了.

---------------------------------------------------------------------------------------------------------

1.打开模板,在共享操作的地方找到发送（S）,发送并归档（E）,在公式的前面加入:

2.现在以NOTES6.51为例（我不知道以前久版本是不是一样）

模板的名字是:

mail6.ntf（在NOTES目录中）

打开方式可以直接在工作台打开->

指定服务器（不要去找数据库）,在下面文件里直接输入mail6.ntf（R5应该不是mail6.ntf,可能是mail5.ntf吧）,就可以打开,用Designer对其修改

然后象你说的找到相应的表单（便笺很容易找的）Memo,找到操作,修改就可以!

!

更改模版后，需要重新替换原有模版，设置才能生效!

另外：

关于在Designer5.0中更改公式无法成功的问题，我查询了IBM官方，确实是版本的问题，在5.x系列中都存在此问题

具体参考-1.ibm./support/docview.wss?

uid=swg21101466

---------------------------------------------------------------------------

关于根据系统语言，显示不同语言的提示，方法有两种

请不要使用Designer5.0更改

原因参考-1.ibm./support/docview.wss?

1、修改公式

Language:

=RegQueryValue（"

HKEY_LOCAL_MACHINE"

SYSTEM\\CurrentControlSet\\Control\\Nls\\Language"

Default"

Size:

0）/1024000）;

If（Size>

10;

If（Language="

0804"

Do（Prompt（[Ok];

注意:

附件大小超过10M限制!

当前附件大小为"

+Text（Size）+"

M,此将不能发送!

+Char（13）+"

如有任何问题,请联系情报信息部（TEL:

351）"

））;

Tips:

AttachmentsOver10MBytes!

TheCurrentAttachmentsis"

Mbytes,thismailcannotsend!

Ifyouhaveanyquestions,pleasecontactmisgroup（TEL:

）））;

2、使用LotusScript

（LS用法类似于VB，但是对于一般用户来说，由于Domino类的结构不清晰，使用起来很麻烦）

此方法代码相对较长，不推荐使用，我也没学过LS开发，可能有错误之处，仅供学习使用

以下只包含核心代码

SubInitialize

DimsAsNewNotesSession

DimdbAsNotesDatabase

DimcurDBAsNotesDatabase

DimdbDirAsNotesDbDirectory

DimserverNameAsString

Setdb=s.CurrentDatabase

Ifdb.Server="

Then

serverName="

（local）"

Else

serverName=db.Server

EndIf

IfserverName="

SetdbDir=NewNotesDbDirectory（"

）

Else

SetdbDir=NewNotesDbDirectory（serverName）

SetcurDB=dbdir.GetFirstDatabase（TEMPLATE_CANDIDATE）

DoUntilcurDBIsNothing

CallcountThis（curDB,db）

SetcurDB=dbDir.GetNextDatabase

Loop

EndSub

SubcountThis（curDBAsNotesDatabase,reportDBAsNotesDatabase）

DimcurSizeAsDBSizeInfo

OnErrorResumeNext

SetcurSize=NewDBSizeInfo（curDB）

CallcurSize.count

IfcurSize.AttachmentCount>

0Then

CallcurSize.save（reportDB）

PublicClassDBSizeInfo

PrivatedbAsNotesDatabase'

Thedatabasetobecounted

PublicDBSizeAsVariant'

Sizeofthedatabase

PublicAttachmentSizeAsVariant

PublicAttachmentCountAsVariant

PublicDocumentCountAsVariant

PublichasErrorAsBoolean

Subnew（curDBAsNotesDatabase）

Setdb=curDB

hasError=False

EndSub

PublicFunctionCountAsBoolean

DimdocAsNotesDocument

DimdcAsNotesDocumentCollection

DimcountResultAsVariant

DimsizeResultAsVariant

OnErrorGotoErr_Count

IfNotdb.IsOpenThen

Calldb.Open（"

"

IfNotdb.IsOpenThen

'

Wecouldnotopenit

Print"

Can'

topen"

&

db.FilePath

Count=False

GotoExit_Count

EndIf

EndIf

DBSize=db.Size

AttachmentCount=0

AttachmentSize=0

DocumentCount=0

Setdc=db.AllDocuments

Setdoc=dc.GetFirstDocument

DoUntildocIsNothing

Ifdoc.HasEmbeddedThen

CallgetAttachmentSizes（doc）

DocumentCount=DocumentCount+1

Setdoc=dc.GetNextDocument（doc）

Loop

Count=True'

Ifwegothereitworked

Exit_Count:

ExitFunction

Err_Count:

PrintError$&

inCountin"

db.FilePath&

inline"

Cstr（Erl）

Count=False

hasError=True

ResumeExit_Count

EndFunction

PublicSubSave（reportDBAsNotesDatabase）

DimvAsNotesView

Dimsearchkey（0To1）AsString

OnErrorGotoErr_Save

Setv=reportDB.GetView（"

（LookupByServerAndPath）"

IfvIsNothingThen

Setdoc=NewNotesDocument（reportDB）

Else

Ifdb.Server="

searchkey（0）="

Else

searchkey（0）=db.Server

searchkey

（1）=Lcase（db.FilePath）

Setdoc=v.GetDocumentByKey（searchkey,True）

IfdocIsNothingThen

Setdoc=NewNotesDocument（reportDB）

Calldoc.ReplaceItemValue（"

Form"

SizeReport"

DBSize"

Me.DBSize）

AttachmentSize"

Me.AttachmentSize）

AttachmentCount"

Me.AttachmentCount）

DocumentCount"

Me.DocumentCount）

IfhasErrorThen

Calldoc.ReplaceItemValue（"

ErrorFlag"

1）

Elseifdoc.HasItem（"

hasError"

）Then

Calldoc.RemoveItem（"

Ifdb.Server="

ServerName"

db.Server）

FilePath"

Lcase（db.FilePath））

Calldoc.Save（True,True）

Exit_Save:

ExitSub

Err_Save:

in"

ResumeExit_Save

PrivateSubgetAttachmentSizes（docAsNotesDocument）

DimattNamesAsVariant

DimattAsNotesEmbeddedObject

DimresultAsVariant

result=0

OnErrorGotoErr_getAttachmentSizes

attNames=Evaluate（|Attachmentnames|,doc）

IfattNames（0）<

>

ForallanInattNames

CheckingAttachment"

an

Setatt=doc.GetAttachment（an）

result=result+att.FileSize

Me.AttachmentCount=Me.AttachmentCount+1

EndForall

Exit_getAttachmentSizes:

Me.AttachmentSize=Me.AttachmentSize+result

Err_getAttachmentSizes:

ingetAttachmentSizesdoc:

doc.UniversalID

ResumeExit_getAttachmentSizes

EndClass

DeclareFunctionGetSystemDefaultLCIDLib"

kernel32"

（）AsLong

FunctionGetOsType（）AsString

DimretAsString

SelectCaseHex（GetSystemDefaultLCID）

Case804:

ret="

inputchinesetips"

CaseElse:

inputenglishtips"

EndSelect

GetOsType=ret

想修改模板是最好的选择了: