Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Make Notes Invisible, Close Notes.
Message
 
 
To
22/11/2002 15:33:17
Cindy Winegarden
Duke University Medical Center
Durham, North Carolina, United States
General information
Forum:
Lotus Notes
Category:
Programming
Miscellaneous
Thread ID:
00725995
Message ID:
00726399
Views:
10
Cindy,
The problem is you don't have the COM classes Lotus developed specifically for this. Notes.NotesSession and Notes.NotesUIWorkspace are older COM classes tied to the Notes UI executables. Lotus.NotesSession was developed so developers could access the Notes engine without the limitations you listed below.

Unless you can get those classes installed, what you want can't be done. Do you have access to the R5 client? Try installing that and see if you get the newer COM classes.

HTH.

>I've got some VB code to send email through Notes. How do I run Notes invisibly and how do I close it when I'm done? Here's my code:
>    Public Sub OpenNotes( _
>        ByVal txtTo As String, _
>        ByVal txtSubject As String, _
>        ByVal txtAttachmentName As String)
>
>        Dim _
>            Session As Object, _
>            Database As Object, _
>            Document As Object, _
>            RichTextObject As Object
>
>        Dim _
>            User As String, _
>            Server As String, _
>            Mailfile As String
>
>        'Get a handle to a notes session
>        Session = CreateObject("Notes.NotesSession")
>
>        User = Session.UserName
>        Server = Session.GetEnvironmentString("MailServer", True)
>        Mailfile = Session.GetEnvironmentString("MailFile", True)
>        Database = Session.GetDatabase(Server, Mailfile)
>        Document = Database.CreateDocument()
>
>        With Document
>
>            .Form = "Memo"
>
>            .SendTo = txtTo
>            .Subject = txtSubject
>
>            RichTextItem = .CreateRichTextObject("Body")
>            RichTextItem.EmbedObject(1454, "", txtAttachmentName)  ' EMBED_ATTACHMENT = 1454
>
>            .Send(False)  'SEND(ByVal ATTACHFORM As Integer, [ByVal RECIPIENTS])
>
>        End With
>        Session = Nothing
>        Database = Nothing
>        Document = Nothing
>
>    End Sub
Larry Miller
MCSD
LWMiller3@verizon.net

Accumulate learning by study, understand what you learn by questioning. -- Mingjiao
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform