[Lotus Notes] Agent die automatisch een email stuurt.

[Mx. Alba]

Ik ben op het werk bezig om de dagelijkse statistieken die ik onder mijn hoede heb te automatiseren. Ik heb nu Forest & Trees (ons statistiekenprogsel van Computer Associates) zo ver dat hij automatisch HTML-bestanden genereert met de grafieken erin, en met de Windows Scheduler zorg ik ervoor dat die automatisch 'snachts draait. Als ik 'smorgens op het werk kom hoef ik dus alleen nog maar die HTML-bestanden in mijn email-modellen te importeren en die weg te sturen.

Maar ook dat kan vast wel automatisch

Ik heb dus een LN agent nodig (in LotusScript of Java) die automatisch een viertal emails stuurt, met (onder andere) de datum van de vorige werkdag in de titel en de body ("Daily EAU Statistics for the 23rd of March 2006" bijvoorbeeld), en met een import van één of meerdere HTML-bestanden.

Ik heb al een beetje rondgegoegelt maar heb helaas niets bruikbaars kunnen vinden. Wie heeft toevallig een dergelijke agent rondslingeren, of weet waar ik de informatie kan vinden om er eentje zelf inelkaar te knutselen? Ik heb wel enige programming-notions (ANSI C, Perl, PHP, Javascript en in een grijs verleden Modula, Java...) en een voldoende dosis motivatie. Anybody?

[DaRealRenzel]

Waarom laat je het proces je mail niet gewoon script-based naar een SMTP Server sturen ? Ik ga er van uit dat er ergens toch wel een SMTP Gateway in je Notes omgeving staat ?

[Mx. Alba]

DaRealRenzel schreef op vrijdag 24 maart 2006 @ 10:05:
Waarom laat je het proces je mail niet gewoon script-based naar een SMTP Server sturen ? Ik ga er van uit dat er ergens toch wel een SMTP Gateway in je Notes omgeving staat ?

F&T (Forest & Trees) kan wel mail naar een SMTP sturen, maar dat is dan platte tekst met de plaatjes als attachments. De mail moet echter opgemaakt zijn, met de grafieken direkt zichtbaar in de body...

De makkelijkste manier leek mij om dus om LN de HTML-file met de grafieken te laten importeren.

[DexterDee]

Da's niet zo heel moeilijk. Ik zal je met het moeilijkste helpen, het importeren van een HTML bestandje in Lotus Notes en converteren naar Notes Rich Text. Daarna een mailtje ervan maken en uitsturen is kinderspel

Het stukje LotusScript:

Visual Basic:

Type EditImportData
    strFileName As String * 100
    lngFontID As Long
End Type

Declare Function ImportHtmlTextFile Lib "NIHTML" Alias "ImportHtmlTextFile" _
(  D As EditImportData, Byval F As Integer, Byval M As Long, Byval A As String, Byval N As String) As Integer
Declare Sub NEMDisplayError Lib "NNOTESWS" Alias "NEMDisplayError" _
(  Byval S As Integer)
Declare Function MailAddMessageBodyComposite Lib "NNOTES" Alias "MailAddMessageBodyComposite" _
(  Byval hM As Long, Byval N As String, Byval F As String) As Integer

Sub ImportHTML(strInputFile, strInputForm, strInputField)
    On Error Goto ErrorHandler
    
    Const TEMP_FILE = "C:\TEMP\NOTESCD.TMP"
    
    Dim typImportData As EditImportData
    Dim intFileID As Integer
    
    typImportData.strFileName = TEMP_FILE
    
    intFileID = ImportHtmlTextFile(typImportData, 3, 0, "", strInputFile)
    If Not intFileID = 0 Then
        NEMDisplayError intFileID
        Goto ErrorResume
    End If
    
    Dim session As New NotesSession
    
    Dim doc As NotesDocument
    Set doc = New NotesDocument(session.CurrentDatabase)
    With doc
        .Form = strInputForm
        intFileID = MailAddMessageBodyComposite(.Handle, strInputField, TEMP_FILE)
        If Not intFileID = 0 Then
            NEMDisplayError intFileID
            Goto ErrorResume
        End If
        .Save True, False
    End With
    
    Kill TEMP_FILE
ErrorResume:
    Exit Sub
    
ErrorHandler:
    Print "Error " & Err() & ": " & Error()
    Resume ErrorResume
    
End Sub

En zo roep je het aan:

Visual Basic:

Call ImportHTML("C:\mijn.html", "FormName", "RichTextVeld")

Ik neem aan dat je verder genoeg LotusScript kennis hebt on dit varkentje te wassen

Veel succes