Skript pro Lotus Notes

• je nutne mit "vyvojove" id uzivatele v Lotus Notes, pokud mate pouze desktop licenci, zkuste pozadat sveho spravce LN :)
• ve vasi mail databazi se prepnete do pohledu "Agents" a zvolte v menu CREATE >> AGENT...
• pojmenujte agenta (fantazii se meze nekladou)
• v poli "When should this agent run ?" vyberte "If New Mail Has Arrived"
• "What should this agent run ?" zaškrtněte "Lotus script"
• do "Eventu" "Initialize" zkopirujte tento script:
• na zacatku scriptu zmente vasi mobilni e-mail adresu
  POZOR! u peagasu musi byt adresa ohranicena < .... >. Jinak ji LN spatne prevedou na "/=4206...."
  • pro Eurotel 00420602xxxxxx@sms.eurotel.cz ci 00420606xxxxxx@sms.eurotel.cz (za xxxxxx doplňte vaše telefonní číslo bez 0602 či 0606)
  • pro Paegas +420603xxxxxx@sms.paegas.cz ci +420604xxxxxx@sms.paegas.cz (za xxxxxx doplňte vaše telefonní číslo bez 0603 či 0604)
  zmenou promenne fromdomain$ na zacatku scriptu muzete vybrat, ktere maily se maji preposilat; zadanim fromdomain$="" se budou posilat vsechny nove zpravy
• ulozte agenta a v pohledu s agenty zkontrolujte, zda-li je zaskrtnuty ...

Skript:

Sub Initialize
' Agent pro preposiani novych emailu na mobilni telefon

     mobil$ = "<+42060?XXXXXX@sms.paegas.cz>"        'e-mail adresa mobilniho telefonu (tato pro paegas)
     fromdomain$ = "@radary.cz"
     maxlen%=160                                                             'maximalni delka sms zpravy

     Dim session As New NotesSession
     Set db = session.CurrentDatabase
     Dim vi As NotesView
     Dim doc As NotesDocument
     Dim mdoc As NotesDocument
     Dim rte As NotesRichTextItem

     Set vi = db.GetView( "($Inbox)" )
     Call vi.Refresh()
     Set doc=vi.GetFirstDocument

     positionOfChar& = Instr(1, doc.From(0), fromdomain$)
     If positionOfChar& <> 0  Or fromdomain$="" Then

          Set mdoc=db.CreateDocument
          mdoc.Form="Memo"
          mdoc.SendTo=mobil$

          subject$ = doc.Subject(0)
          makro$=|@Ascii("|+subject$+|")|
          subjectascii=Evaluate(makro$)
          mdoc.Subject= subjectascii(0)

          Set rte=doc.GetFirstItem("BODY")
          body$=Left(rte.GetFormattedText( True, 0 ),maxlen%)
          makro$=|@Ascii("|+body$+|")|
          bodyascii=Evaluate(makro$)
          mdoc.Body=bodyascii(0)

          Call mdoc.Send(False)

     End If

End Sub

Za skript děkujeme panu Josefu Czyzovi.