本文出自:http://tw.myblog.yahoo.com/jw!ABbpOK2GHxrwMv7UZDwYK50jnLCP/article?mid=234＆prev=235＆next=233＆l=a＆fid=9 網絡轉發,如有侵權,敬請告知刪除!
除腳臭躁鬱症 前兆分手後十幾天認識了另一個人upr7tawnyscottie96
Create Hot Spot link
Sub Click(Source As Button) link$ = "LDD" url$ = "http://www.notes.net" Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Dim stream As NotesStream Set stream = session.CreateStream stream.WriteText {%26lt;?xml version=%26#39;1.0%26#39; encoding=%26#39;utf-8%26#39; ?%26gt; %26lt;database xmlns=%26#39;http://www.lotus.com/dxl%26#39; version=%26#39;6.0%26#39;%26gt; %26lt;document form=%26#39;JournalEntry%26#39;%26gt; %26lt;item name=%26#39;Subject%26#39;%26gt;%26lt;text%26gt;DXL demo%26lt;/text%26gt;%26lt;/item%26gt; %26lt;item name=%26#39;Body%26#39;%26gt; %26lt;richtext%26gt; %26lt;par%26gt; %26lt;run%26gt;Click on this link: %26lt;/run%26gt; %26lt;urllink showborder=%26#39;false%26#39; href=%26#39;} %26 url$ %26 {%26#39;%26gt; %26lt;run%26gt;%26lt;font color=%26#39;system%26#39;/%26gt;} %26 link$ %26 {%26lt;/run%26gt; %26lt;/urllink%26gt; %26lt;/par%26gt; %26lt;/richtext%26gt; %26lt;/item%26gt; %26lt;/document%26gt; %26lt;/database%26gt;} Dim dmp As NotesDXLImporter Set dmp = session.CreateDXLIMporter(stream, db) dmp.ProcessEnd Sub
除腳臭躁鬱症 前兆分手後十幾天認識了另一個人upr7tawnyscottie96
Create Hot Spot link
Sub Click(Source As Button) link$ = "LDD" url$ = "http://www.notes.net" Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Dim stream As NotesStream Set stream = session.CreateStream stream.WriteText {%26lt;?xml version=%26#39;1.0%26#39; encoding=%26#39;utf-8%26#39; ?%26gt; %26lt;database xmlns=%26#39;http://www.lotus.com/dxl%26#39; version=%26#39;6.0%26#39;%26gt; %26lt;document form=%26#39;JournalEntry%26#39;%26gt; %26lt;item name=%26#39;Subject%26#39;%26gt;%26lt;text%26gt;DXL demo%26lt;/text%26gt;%26lt;/item%26gt; %26lt;item name=%26#39;Body%26#39;%26gt; %26lt;richtext%26gt; %26lt;par%26gt; %26lt;run%26gt;Click on this link: %26lt;/run%26gt; %26lt;urllink showborder=%26#39;false%26#39; href=%26#39;} %26 url$ %26 {%26#39;%26gt; %26lt;run%26gt;%26lt;font color=%26#39;system%26#39;/%26gt;} %26 link$ %26 {%26lt;/run%26gt; %26lt;/urllink%26gt; %26lt;/par%26gt; %26lt;/richtext%26gt; %26lt;/item%26gt; %26lt;/document%26gt; %26lt;/database%26gt;} Dim dmp As NotesDXLImporter Set dmp = session.CreateDXLIMporter(stream, db) dmp.ProcessEnd Sub
請先 登入 以發表留言。