This time I tried to create an action button with the following content.
1 Export ics file from Notes schedule
2 Display the new mail creation screen with the ics file attached
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim rtitem As NotesRichTextItem Dim maildb As New NotesDatabase("","") Dim afile As NotesEmbeddedObject Call maildb.OpenMail Set uidoc=ws.CurrentDocument Set doc = maildb.CreateDocument Call doc.ReplaceItemValue("Form","Memo") Call doc.ReplaceItemValue("Subject","icsファイル送信") Set rtitem = New NotesRichTextItem(doc,"Body") Call rtitem.AppendText("スケジュールのicsファイルを添付致します。") Call rtitem.AddNewline(2) Set afile = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "(保存先ディレクトリ)¥¥ical.ics") Call doc.Save( False, False) Call ws.EditDocument(True,doc) End Sub
Last week Osaka was a hot week.
Notes / Domino Day, Notes Consortium Osaka Study Group, Tek Tek Osaka.
I can not write everything, but I will report briefly.
I participated in IBM Notes / Domino Day 2019 Spring which was held the other day.
With a simple report, I wrote the expectations for HCL Inc. and V 11.