蓮花筆記多個日曆條目的按鈕腳本

這是我的腳本。我想在這個腳本中有兩個日期和時間，所以當有人點擊按鈕應該有兩個條目在收件日曆中蓮花筆記多個日曆條目的按鈕腳本

我真的很感謝在這個問題上的任何幫助。

Sub Click(Source As Button) 

    Dim s As New NotesSession 
    Dim db As NotesDatabase 
    Dim doc As NotesDocument 
    Dim subject As String 
    Dim maildoc As NotesDocument 
    Dim rtitem As NotesRichTextItem 
    Set db = s.CurrentDatabase 
    Set doc = New NotesDocument(s.CurrentDatabase) 
    Set maildoc = New NotesDocument(s.CurrentDatabase) 
    Set ritem = New NotesRichTextItem(maildoc, "Body") 

'Modify Subject, Location, Start Day and Time, End Day and Time before sending!! 
'######################################################################### 

    doc.subject = "test" 
    doc.location = "bangalore" 
    Set startdatetime = New NotesDateTime("03/26/2013 04:00:00 PM") 
    Set enddatetime = New NotesDateTime("03/24/2008 05:00:00 PM") 

'######################################################################### 


    doc.From = s.UserName 
    doc.Form = "Appointment" 
    doc.AppointmentType = "0" 
    doc.Chair = s.UserName 
    doc.StartDateTime = startdatetime.LSLocalTime 
    doc.EndDateTime = enddatetime.LSLocalTime 
    doc.CalendarDateTime = startdatetime.LSLocalTime 
    doc.TimeRange = Timevalue(doc.startdatetime(0)) & "-" & Timevalue(doc.enddatetime(0)) 
    doc.ExcludefromView = "D" 

    Call doc.ReplaceItemValue("_ViewIcon", 160) 
    Call doc.AppendItemValue("$BusyName", s.UserName) 
    Call doc.AppendItemValue("$BusyPriority", "1") 
    Call doc.AppendItemValue("$PublicAccess", "1") 
    Call doc.save(True,True) 

    Print "An entry for this event was successfully added to your calendar and an e-mail confirmation was sent." 
    Msgbox "Calendar successfully updated and e-mail confirmation sent.", 64, "Success" 

'Send e-mail confirmation 

    maildoc.Form = "Memo" 

'Modify Subject and Send to 
'############################################################################ 

    maildoc.Subject = "test to send multiple emails" 
    Dim recip(2) As Variant 
    recip(0) = "" 
    recip(1) = "" 

    maildoc.sendto = recip 

'############################################################################ 

    Call maildoc.Send(False) 

End Sub

來源

2013-03-26 Manju Nath

你的問題是什麼？當你現在運行這個腳本時會發生什麼？ – 2013-03-26 13:15:45

那麼腳本工作得很好..一旦他們點擊按鈕，無論日期和時間腳本中提到他們的日曆。我想要的是在腳本中添加兩個不同的日期，並且當點擊它時，它應該在其日曆中創建兩個不同的條目。 – 2013-03-26 13:21:51

您是否在談論創建重複預約？即，同一時間和相同的細節，但在兩個不同的日子？ – 2013-03-26 17:48:59

IBM已經發布了Lotus Notes日曆約會模式here。如果您想在兩天內創建重複預約，但每天都在同一天，請從第12頁開始。有很多選項，但我認爲您可能需要設置重複=「1 「，RepeatUnit =」C「並將RepeatCustom =設置爲具有兩個日期的數組。

來源

2013-03-27 02:39:46

IBM將發佈的Lotus Notes C & S Schema doc移至here。上面找到的另一個鏈接是以前沒有更新的版本。

除了添加ORGRepeat值「1」，要重複條目，您需要有3個並行的值列表：StartDateTime，EndDateTime和RepeatInstanceDates。最初，StartDateTime和RepeatInstanceDates項目將包含相同的值，因此您可以在創建該值時簡單地使用該值。

CalendarDateTime項目還需要具有與上述列表相同數量的值，以便該條目將顯示在日曆的正確日期/時間。

w/you腳本存在的一個潛在問題是它將使用用戶時區的時間。因此，如果任何用戶在另一個時區並點擊它，這些條目將被放置在錯誤的時間。您可以通過將3個字符的時區標識符放在值的末尾來解決該問題（例如「03/26/2013 04:00:00 PM PM EDT」）

您可能還想查看按鈕腳本我發現here爲另一個如何做到這一點的例子。

來源

2014-02-12 06:02:01

蓮花筆記多個日曆條目的按鈕腳本

回答

相關問題