<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 5.50.4522.1800" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial>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)</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>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.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>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.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Any thoughts/suggestions?</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Thanks,</FONT></DIV>
<DIV><FONT face=Arial>Barb Ryan</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial size=2>Private Sub SendNotesMail()<BR>
On Error GoTo Err_Handler<BR> <BR> 'Set up
the objects required for Automation into lotus notes<BR> Dim
Maildb As Object 'The mail database<BR> Dim UserName As String
'The current users notes name<BR> Dim MailDbName As String
'THe current users notes mail database name<BR> Dim MailDoc As
Object 'The mail document itself<BR> Dim AttachME As Object
'The attachment richtextfile object<BR> Dim Session As Object
'The notes session<BR> Dim EmbedObj As Object 'The embedded
object (Attachment)<BR> <BR> 'Start a
session to notes<BR> Set Session =
CreateObject("Notes.NotesSession")<BR> <BR>
'Get the sessions username and then calculate the mail file
name<BR> UserName = Session.UserName<BR>
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1,
UserName, " "))) & ".nsf"<BR> <BR> 'Open
the mail database in notes<BR> Set Maildb =
Session.GETDATABASE("", MailDbName)<BR> If Maildb.isOpen
= True Then<BR> 'Already
open for mail<BR>
Else<BR>
Maildb.OPENMAIL<BR> End If<BR>
<BR> 'Set up the new mail document<BR> Set
MailDoc = Maildb.CREATEDOCUMENT<BR> MailDoc.Form =
"Memo"<BR> MailDoc.sendto = strRecipient<BR>
MailDoc.Subject = strSubject<BR> <BR> If
strLongSnaphotName > "" Then<BR>
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 <A
href="http://office.microsoft.com/downloads/9798/snpvw80.aspx">http://office.microsoft.com/downloads/9798/snpvw80.aspx</A>"
& vbCrLf & vbCrLf & "Huntsman reference: " &
strLongSnaphotName<BR>
Else<BR> 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 <A
href="http://office.microsoft.com/downloads/9798/snpvw80.aspx">http://office.microsoft.com/downloads/9798/snpvw80.aspx</A>"<BR>
End If<BR> <BR> MailDoc.Body =
strbody<BR> MailDoc.SAVEMESSAGEONSEND =
True<BR> <BR> 'Set up the embedded object
and attachment and attach it<BR> Set AttachME =
MailDoc.createrichtextitem("attachment")<BR> Set EmbedObj =
AttachME.embedObject(1454, "", strAttachment)<BR>
<BR> 'Send the document<BR>
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items
folder<BR> MailDoc.SEND 0, strRecipient<BR>
<BR> 'Clean Up<BR> Set Maildb =
Nothing<BR> Set MailDoc = Nothing<BR> Set
AttachME = Nothing<BR> Set Session =
Nothing<BR> Set EmbedObj = Nothing<BR>
<BR>Exit_SendNotesMail:<BR> Exit Sub</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Err_Handler:<BR> blnError =
True<BR> MsgBox Err.Number & ":" &
Err.Description<BR> Resume
Exit_SendNotesMail<BR> <BR>End Sub<BR></FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial></FONT> </DIV></BODY></HTML>