Akasha Posted April 18, 2006 Share Posted April 18, 2006 Hello I have a form in my website and when the form is submitted it must send an email.But they are using lotus notus, so i got the following code: Call SendNotesMail( "Notification website ITX" , "" , "test@test.com",bodytext , True)Response.Redirect("../main.asp?message=Newsitem has been added with a notification") Sub SendNotesMail(Subject , Attachment , Recipient , BodyText , SaveIt ) 'Set up the objects required for Automation into lotus notes Dim Maildb 'The mail database Dim UserName 'The current users notes name Dim MailDbName 'The current users notes mail database name Dim MailDoc 'The mail document itself Dim AttachME 'The attachment richtextfile object Dim Session 'The notes session Dim EmbedObj 'The embedded object (Attachment) 'Start a session to notes Set Session = CreateObject("Notes.NotesSession") 'Get the sessions username and then calculate the mail file name 'You may or may not need this as for MailDBname with some systems you 'can pass an empty string UserName = Session.UserName MailDbName = Left(UserName, 1) & Right(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" 'Open the mail database in notes Set Maildb = Session.GETDATABASE("", MailDbName) 'Set Maildb = Session.GETDATABASE("", "mail.box") If Maildb.ISOPEN = True Then 'Already open for mail Else Maildb.OPENMAIL End If 'Set up the new mail document Set MailDoc = Maildb.CREATEDOCUMENT MailDoc.Form = "Memo" MailDoc.sendto = Recipient MailDoc.Subject = Subject MailDoc.Body = BodyText MailDoc.SAVEMESSAGEONSEND = SaveIt 'Set up the embedded object and attachment and attach it If Attachment <> "" Then Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment") Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment") 'MailDoc.CREATERICHTEXTITEM ("Attachment") End If 'Send the document MailDoc.PostedDate=Now() 'Gets the mail to appear in the sent items folder MailDoc.SEND 0, Recipient 'Clean Up Set Maildb = Nothing Set MailDoc = Nothing Set AttachME = Nothing Set Session = Nothing Set EmbedObj = NothingEnd Sub But i get the following error, what is wrong? Microsoft VBScript runtime error '800a01ad'ActiveX component can't create object: 'Notes.NotesSession' Link to comment Share on other sites More sharing options...
kansasprog Posted September 1, 2006 Share Posted September 1, 2006 Does the server have the required object you are trying to create?You need that object on the server.There are many 3rd party components available for emails. Link to comment Share on other sites More sharing options...
tutsamewasa Posted September 4, 2006 Share Posted September 4, 2006 Hi,Check the Notes component is up and running at your server.Hope this helps.Good LuckHemendra Singh ShaktawatMindfire Solutionswww.mindfiresolutions.com Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now