Mail funktion mit Lotus script

    Hi!
    Vielleicht hilft dir das weiter...


    Du könntest einen Button im Report anlegen mit folgendem Script:


    Sub Click(Source As Button)

    Dim uiws As New NotesUIWorkspace
    Dim session As New NotesSession
    Dim uidoc As NotesUIDocument
    Dim mail As NotesDocument
    Dim db As NotesDatabase
    Dim item As NotesItem
    Dim rtitem As NotesRichtextItem

    Set db = session.CurrentDatabase
    Set mail = db.CreateDocument
    Set uidoc = uiws.CurrentDocument

    '*** Dokument muß vorher gespeichert werden
    Call uidoc.Save

    '*** Link anhängen
    Set rtitem = New NotesRichtextItem(mail,"Body")
    Call rtitem.AppendText("Bitte klicken Sie hier -> ")
    Call rtitem.AppendDocLink(uidoc.document,"Beschreibung (wird in der Statuszeile angezeigt)" )

    '*** Memo erzeugen
    mail.Form = "Memo"
    mail.Subject = "Es ist ein neuer Report erstellt worden..."
    mail.SendTo = "email@woauchimmer.de"
    Call mail.Send(False)

    '*** ... evtl. dann Report schließen
    Call uidoc.Close

    End Sub



    Sollte funktionieren ;)