S
SEAN DI''''ANNO
Good Morning, Im not sure if anyone can help as I have already tried a few
forums without success. Im not very good at all at using VB bu trying very
hard to help a colleague send an Email via Excel. The code (which is at the
bottom used to work perfectly in Lotus Notes 5. We have now been migrated to
Domino Web Access Version 7 and the same Excel file no longer works. When you
click on the button which should send the Email it returns an error of,
ACTIVE X Component cant create object and using debug it is failing on the
line Set Session = CreateObject("Notes.NotesSession"). I should point out
that during migration part of the process uninstalls the old Lotus. Can
anyone please help.
Public Sub SendNotesMail(Subject As String, Attachment As String, Recipient
As String, BodyText As String)
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)
Dim Recip(10) As Variant 'The Recipient list
Dim SaveIt As Boolean 'Save to sent mail
Dim WasOpen As Integer 'Checking to see if the Mail DB was already
'open to determine if session should be
'closed (0) or left alone (1)
SaveIt = True
Set Session = CreateObject("Notes.NotesSession")
forums without success. Im not very good at all at using VB bu trying very
hard to help a colleague send an Email via Excel. The code (which is at the
bottom used to work perfectly in Lotus Notes 5. We have now been migrated to
Domino Web Access Version 7 and the same Excel file no longer works. When you
click on the button which should send the Email it returns an error of,
ACTIVE X Component cant create object and using debug it is failing on the
line Set Session = CreateObject("Notes.NotesSession"). I should point out
that during migration part of the process uninstalls the old Lotus. Can
anyone please help.
Public Sub SendNotesMail(Subject As String, Attachment As String, Recipient
As String, BodyText As String)
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)
Dim Recip(10) As Variant 'The Recipient list
Dim SaveIt As Boolean 'Save to sent mail
Dim WasOpen As Integer 'Checking to see if the Mail DB was already
'open to determine if session should be
'closed (0) or left alone (1)
SaveIt = True
Set Session = CreateObject("Notes.NotesSession")