這隻猴子還不錯！

猿丸鍵店∼日劇板(2009夏)

這一部要追…

--
----　書本上查的到的東西　----　不用去背他　----

飲鴆

天氣熱∼喝杯冰涼的毒藥吧！

--
----　書本上查的到的東西　----　不用去背他　----

Fwd: 利用Lotus Symphony轉PDF

打開檔案、按下「匯出」即完成！

--
----　書本上查的到的東西　----　不用去背他　----

[Lotus Script]-Fwd: Notes、Richtext欄位中- 附件檔案位置控制

End Function將文件中的附件檔案抓到硬碟裡，經過壓縮後要再放回去。
嵌入檔案的位置都會跑掉。
為此花了兩天的時間再尋求解決之道∼終於找到搭配NotesRichTextNavigator來定位附件檔案的位置了！

附加檔放回原位：使用 NotesRichTextNavigator

Set rtnav = item.CreateNavigator
If Not rtnav.FindLastElement(RTELEM_TYPE_FILEATTACHMENT) Then
Msgbox "此份文件中沒有附件"
Exit Sub
Else
Call rtnav.FindFirstElement(RTELEM_TYPE_FILEATTACHMENT)
 Do
 'CtrNav = CtrNav +1
Loop While rtnav.FindnextElement(RTELEM_TYPE_FILEATTACHMENT)
'Msgbox CtrNav
End If
略…

Call rtnav.FindNthElement(RTELEM_TYPE_FILEATTACHMENT,"計數器")
Call item.BeginInsert(rtnav,False)
進行附加檔嵌入作業…
Call item.EndInsert 
Call doc.Save(True,False)

略…

…萬事OK！


--
----　書本上查的到的東西　----　不用去背他　----

[Lotus Script]-在Notes裡面抓取「Windows系統路徑」

<<宣告WinAPI>>

Declare Function GetSystemDirectory Lib "kernel32" Alias _
"GetSystemDirectoryA" (Byval lpBuffer As String, _
Byval nSize As Long) As Long

<<使用： >>

DirTmp =Environ$("temp") & "\"

∼得到值：d:\tmp\ ←我自己設到D去的

參數對照：

number	envstring
1	ALLUSERSPROFILE
2	APPDATA
3	CLIENTNAME
4	CommonProgramFiles
5	COMPUTERNAME
6	ComSpec
7	FP_NO_HOST_CHECK
8	HOMEDRIVE
9	HOMEPATH
10	LOGONSERVER
11	NUMBER_OF_PROCESSORS
12	OS
13	Path
14	PATHEXT
15	PROCESSOR_ARCHITECTURE
16	PROCESSOR_IDENTIFIER
17	PROCESSOR_LEVEL
18	PROCESSOR_REVISION
19	ProgramFiles
20	SESSIONNAME
21	SystemDrive
22	SystemRoot
23	TEMP
24	TMP
25	USERDOMAIN
26	USERNAME
27	USERPROFILE
28	windir

--
----　書本上查的到的東西　----　不用去背他　----