Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Make Notes Invisible, Close Notes.
Message
 
 
À
22/11/2002 15:33:17
Cindy Winegarden
Duke University Medical Center
Durham, Caroline du Nord, États-Unis
Information générale
Forum:
Lotus Notes
Catégorie:
Programmation
Divers
Thread ID:
00725995
Message ID:
00726399
Vues:
15
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform