Lotus Notes Og VB
Jeg bruger denne Funktion til at sende mail med og det virker også som det skal, men når så jeg lukker lotus notes for jeg denne fejlDer er opstået en uoprettelig fejl.
LookupHandle: handle not allocated
Tryk på Enter for at afbryde programmet.
\'her er min function
Public Function SendMail(Tomailadd As String, MailSub As String, 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
Set oSess = CreateObject(\"Notes.NotesSession\")
Set oDB = oSess.GETDATABASE(\"\", \"\")
Call oDB.OPENMAIL
Set oDoc = oDB.CREATEDOCUMENT
Set oItem = oDoc.CREATERICHTEXTITEM(\"BODY\")
oDoc.Form = \"Memo\"
oDoc.subject = MailSub
oDoc.sendto = Tomailadd
oDoc.Body = MailBody
oDoc.postdate = Date
oDoc.visable = True
oDoc.SEND False
Set oSess = Nothing
Set oDB = Nothing
Set oDoc = Nothing
Set oItem = Nothing
End Function
