Сценарий кнопки Lotus notes для записи нескольких записей в календаре

Это мой сценарий. Я хотел иметь 2 даты и время в этом сценарии, поэтому, когда кто-то нажимает кнопку, в календаре получателя должно быть две записи.

Я был бы очень признателен за любую помощь в этом вопросе.

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

lotus-domino lotusscript lotus-notes lotus lotus-formula
person Manju Nath    schedule 26.03.2013    source источник
comment
Каков твой вопрос? Что произойдет, если вы запустите этот скрипт сейчас?   -  person Ken Pespisa    schedule 26.03.2013
comment
Что ж, сценарий работает нормально. Когда они нажимают на кнопку, независимо от даты и времени, указанных в сценарии, они переходят в свой календарь. Я хочу добавить две разные даты в сценарий, а также создать две разные записи в своем календаре при нажатии на него.   -  person Manju Nath    schedule 26.03.2013
comment
Вы говорите о создании повторной встречи? То есть в одно и то же время и в одних и тех же деталях, но в два разных дня?   -  person Richard Schwartz    schedule 26.03.2013
comment
Да, вы правы, но разные дата и время в два разных дня. Даже если это повторная встреча с той же датой и временем, подробности не проблема. Меня это устраивает. Но я хочу две записи в календаре. Спасибо, что проверили это, я очень ценю вашу помощь, спасибо.   -  person Manju Nath    schedule 26.03.2013

Ответы (2)


arrow_upward
1
arrow_downward

IBM опубликовала схему встреч в календаре Lotus Notes здесь. Если вы хотите создать повторную встречу на два дня, но каждый день в одно и то же время, начните со страницы 12. Вариантов много, но я думаю, вы, вероятно, захотите установить Repeats="1 ", RepeatUnit="C" и установите RepeatCustom = в массив с двумя датами.

person Richard Schwartz    schedule 27.03.2013

arrow_upward
1
arrow_downward

IBM переместила опубликованный документ Lotus Notes C&S Schema здесь. Другая ссылка, найденная выше, была предыдущей версией, которая не обновляется.

В дополнение к добавлению значения ORGRepeat, равного «1», чтобы запись повторялась, вам необходимо иметь 3 параллельных списка значений: StartDateTime, EndDateTime и RepeatInstanceDates. Первоначально элементы StartDateTime и RepeatInstanceDates будут содержать одни и те же значения, поэтому вы можете просто указать значение после его создания.

Элемент CalendarDateTime также должен иметь то же количество значений, что и приведенные выше списки, чтобы запись отображалась в правильные даты и время в календаре.

Одна потенциальная проблема со сценарием заключается в том, что он будет использовать часовой пояс пользователя для времени. Поэтому, если какой-либо пользователь находится в другом часовом поясе и нажмет на него, записи будут помещены в неправильное время. Вы можете исправить это, поместив 3-символьный идентификатор часового пояса в конце ваших значений (например, «26.03.2013 16:00:00 EDT»)

Вы также можете взглянуть на скрипт кнопки, который я нашел здесь для другого примера того, как это сделать.

person Bruce Kahn    schedule 12.02.2014