Beiträge von Ordulu

  • Mail per Lotus Script versenden!

    Dim session AsNew NotesSession
    Dim doc As[size=10] NotesDocument[size=10][size=10]Dim[size=10] maildoc [size=10][size=10]As[size=10][color=#000000] NotesDocument[size=10]
    [size=10][size=10][color=#000000]Dim    [color=#000000][size=10] rtitem [size=10][size=10]As    [color=#000000][size=10] NotesRichTextItem[size=10][size=10][size=10][color=#000000]Set[size=10][color=#000000] doc = uidoc.Document[size=10]
    [size=10][size=10][color=#000000]Set[size=10][color=#000000] db = doc.Parendatabase[size=10][size=10][color=#000000]Set[color=#000000][size=10] profile = db.Getprofiledocument([i][size=10][size=10]"DBProfile"[color=#000000][size=10], [i][size=10][size=10]"Main"[size=10][color=#000000])[size=10]
    [size=10][size=10][color=#000000]Set[color=#000000][size=10] maildoc = [size=10][size=10]New[size=10][color=#000000] NotesDocument(db)[size=10][size=10][color=#000000]Set[color=#000000][size=10] rtitem = [size=10][size=10]New[color=#000000][size=10] NotesRichTextItem( maildoc, [i][size=10][size=10]"Body"[size=10][color=#000000] )[size=10]
    [align=left][color=#000000]maildoc.form = [i][size=10][size=10][color=#000000]"Memo"[size=10]
    [align=left][color=#000000]maildoc.Subject = [i][size=10][size=10][color=#000000]"Neuer Eingang Mitarbeitereintrittsformular"[size=10]
    [color=#000000]maildoc.sendto = profile.prfl_mailaddress[size=10][size=10][color=#000000]Call[color=#000000][size=10] rtitem.AppendText( [i][size=10][size=10]"Grunddaten"[size=10][color=#000000] )[size=10]
    [size=10][size=10][color=#000000]Call[color=#000000][size=10] rtitem.AddNewLine( [i][size=10][size=10]1[color=#000000][size=10] )
    [color=#000000][size=10]... '(hier stehen dann die Feldwerte)[size=10][size=10]
    [color=#000000]newDoc.Send( [size=10][size=10][color=#000000]False[size=10][color=#000000] )

  • Mail per Lotus Script versenden!

    Hallo Forum-Mitglieder,


    Ich bin relativ neu im Lotus Script und nun habe ich eines erstellt, welches mir beim Speichern eine Mail versenden sollte. Jedoch klappt es nicht ganz so wie ich es will. Ich bekomme die Fehlermeldung "Object Variable not set".


    Kurze Beschreibung:
    Ich habe eine Maske und beim Speichern dieser Maske sollte eine Mail an einem vordefinierten User gesendet werden.

    Dim session AsNew NotesSession
    Dim doc As NotesDocument
    Dim maildoc As NotesDocument
    Dim rtitem As NotesRichTextItem


    Set doc = uidoc.Document
    Set db = doc.Parendatabase
    Set profile = db.Getprofiledocument("DBProfile", "Main")
    Set maildoc = New NotesDocument(db)
    Set rtitem = New NotesRichTextItem( maildoc, "Body" )


    maildoc.form = "Memo"


    maildoc.Subject = "Neuer Eingang Mitarbeitereintrittsformular"
    maildoc.sendto = profile.prfl_mailaddress


    Call rtitem.AppendText( [i]"Grunddaten" )
    Call rtitem.AddNewLine( [i]1 )
    ... '(hier stehen dann die Feldwerte)



    newDoc.Send( False )




    Ich hoffe, dass Ihr mir helfen könnt...


    Danke im Voraus :)