Jump to content
Sign in to follow this  

sending email

Recommended Posts

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'

Share this post

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

  • Create New...