[AccessD] VB module to send mail in Lotus Notes

Thanks, Marty, I'll have the client try that ...............Barb

----- Original Message -----
From: MartyConnelly <martyconnelly at shaw.ca>
To: <accessd at databaseadvisors.com>
Sent: Thursday, May 08, 2003 9:16 PM
Subject: Re: [AccessD] VB module to send mail in Lotus Notes


> try to add domobj.tlb (COM) to your reference list from wherever it is
> on D drive.
>
> Barbara Ryan wrote:
>
> > I have a VB module (in an Access 97 database) that uses Lotus Notes to
> > send mail.  It has worked fine at several client sites, but is
> > encountering problems at a new site.  The error received is "429:
> > ActiveX component can't create object".  It apparently is erroring on
> > the statement "Set Session = CreateObject("Notes.NotesSession")". (see
> > all code below)
> >
> > The only difference (that I am aware of) is that this client uses
> > Lotus Notes 5.0 10 and the Lotus Notes client is installed on a server.
> >
> > This is really more of a Lotus Notes question, but I have not yet been
> > able to find a forum where I can ask this question.
> >
> > Any thoughts/suggestions?
> >
> > Thanks,
> > Barb Ryan
> >
> > Private Sub SendNotesMail()
> >     On Error GoTo Err_Handler
> >
> >     'Set up the objects required for Automation into lotus notes
> >     Dim Maildb As Object 'The mail database
> >     Dim UserName As String 'The current users notes name
> >     Dim MailDbName As String 'THe current users notes mail database name
> >     Dim MailDoc As Object 'The mail document itself
> >     Dim AttachME As Object 'The attachment richtextfile object
> >     Dim Session As Object 'The notes session
> >     Dim EmbedObj As Object '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
> >     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)
> >      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 = strRecipient
> >     MailDoc.Subject = strSubject
> >
> >     If strLongSnaphotName > "" Then
> >         strbody = "This document, and any attachments therein,
> > contains proprietary and confidential information that may not be
> > disclosed without the prior written permission of Huntsman
> > Corporation. Unauthorized use or misuse of this information and its
> > contents is strictly prohibited." & vbCrLf & vbCrLf & "The attached
> > file must be viewed using Microsoft Snapshot Viewer, which is a free
> > download at http://office.microsoft.com/downloads/9798/snpvw80.aspx" &
> > vbCrLf & vbCrLf & "Huntsman reference: " & strLongSnaphotName
> >     Else
> >         strbody = "This document, and any attachments therein,
> > contains proprietary and confidential information that may not be
> > disclosed without the prior written permission of Huntsman
> > Corporation. Unauthorized use or misuse of this information and its
> > contents is strictly prohibited." & vbCrLf & vbCrLf & "The attached
> > file must be viewed using Microsoft Snapshot Viewer, which is a free
> > download at http://office.microsoft.com/downloads/9798/snpvw80.aspx"
> >     End If
> >
> >     MailDoc.Body = strbody
> >     MailDoc.SAVEMESSAGEONSEND = True
> >
> >     'Set up the embedded object and attachment and attach it
> >     Set AttachME = MailDoc.createrichtextitem("attachment")
> >     Set EmbedObj = AttachME.embedObject(1454, "", strAttachment)
> >
> >     'Send the document
> >     MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent
> > items folder
> >     MailDoc.SEND 0, strRecipient
> >
> >     'Clean Up
> >     Set Maildb = Nothing
> >     Set MailDoc = Nothing
> >     Set AttachME = Nothing
> >     Set Session = Nothing
> >     Set EmbedObj = Nothing
> >
> > Exit_SendNotesMail:
> >     Exit Sub
> >
> > Err_Handler:
> >     blnError = True
> >     MsgBox Err.Number & ":" & Err.Description
> >     Resume Exit_SendNotesMail
> >
> > End Sub
> >
> >
> >
> >------------------------------------------------------------------------
> >
> >_______________________________________________
> >AccessD mailing list
> >AccessD at databaseadvisors.com
> >http://databaseadvisors.com/mailman/listinfo/accessd
> >Website: http://www.databaseadvisors.com
> >
> >
>
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com