Lotus Notes og Visual Basic

a.) Du slipper ikke for at validere hvem du er.
b.) Ellers er koden lige ud af landevejen.
VB-script og Lotus Script er stort set identiske.
Først opretter du en session og åbner en database.
Herefter opretter du en mail og sender den.

Her er koden som function:

Public Function SendMail(byval Tomailadd As String, byval MailSub As String,
byval MailBody As String) As Object

    Dim oSess As Object
    Dim oDB As Object
    Dim oDoc As Object
    Dim oItem As Object
    Dim direct As Object
    Dim Var As Variant
    Dim Body As String
    Dim oStyle As Object
       
    Set oSess = CreateObject(\"Notes.NotesSession\")
    Set oDB = oSess.GETDATABASE(\"\", \"\")
    Call oDB.OPENMAIL
    Set oDoc = oDB.CREATEDOCUMENT

    Set oStyle = oSess.CreateRichTextStyle
    oStyle.NotesFont = FONT_COURIER
    oStyle.FontSize = 14
    oStyle.Bold = True
    oStyle.Italic = True

    Set oItem = oDoc.CREATERICHTEXTITEM(\"BODY\")
    Call oItem.AppendStyle(oStyle)
    Call oItem.AppendText(MailBody) \'Ny

    oDoc.Form = \"Memo\"
    oDoc.Subject = MailSub
    oDoc.sendto = Tomailadd
    oDoc.postdate = Date
    oDoc.visable = True
    oDoc.SEND False
    Set oSess = Nothing
    Set oDB = Nothing
    Set oDoc = Nothing
    Set oItem = Nothing

End Function

Bemærk: mit eksempel sætter også skrift type mm. på body feltet. Kan udelades.

Hva\'så camo - har du nogen sinde set mere på dette eller er det out-dated?

OFF Topic - Sorry  - Jeg står desperat og mangler en Notes mand hos en kunde i morgen tidlig !!!!!!!!!!! Nogen der kan hjælpe¨.

Det eneste der skal laves, er at der skal oprettes en bruger. Men jeg har ingen idé om hvordan det gøres. Jeg kan ikke bruge et svar her på eksperten, desværre.

Spørgsmålet er out-dated, da jeg fandt et stykke C kode på nettet.