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系列中都存在此问题
具体参考
---------------------------------------------------------------------------
关于根据系统语言，显示不同语言的提示，方法有两种
请不要使用Designer5.0更改
原因参考
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
想修改模板是最好的选择了:
升级会员 