Results 1 to 8 of 8
  1. #1
    Join Date
    Oct 2003
    Posts
    1

    Post Unanswered: Compose Lotus Notes Email Using a Form

    Hi Everyone,

    A colleague reccommended you all for some help in Access. I would like to be able to send a Lotus Notes email from Access based on information from frmEmail (txtTo, txtCC, txtBCC, txtSubject, and txtBody text boxes). I would like the user to compose the email within the form, click a send button, and possibly preview the actual email before it is sent.

    I have access to several inboxes with in Lotus Notes. All the emails will be sent form one of the inboxes so I guess I have to refernce that somehow as well as the password required for Notes if the application is not already open.

    My VB skills are limited as far as referencing other applications, but any help anyone could provide would be terrific.

    THANKS!

  2. #2
    Join Date
    Aug 2003
    Posts
    39
    I'd be interested in this too if anyone has any ideas.

  3. #3
    Join Date
    Oct 2003
    Location
    Houston, TX
    Posts
    4

    ACG Software Class Library

    I use the ACG Software PDF/Email Class library for this. Search the web for ACG or Attac Consulting. The class lets you send out email using code through the Lotus Notes Client.

  4. #4
    Join Date
    Oct 2003
    Posts
    66
    Don't mean to highjack the thread but does the libary have support for doing this type of thing through Outlook?
    I will be doing somehting very similar in a few weeks but we use Outlook.

  5. #5
    Join Date
    Sep 2003
    Posts
    228
    Here some code we use here at work. If you google you find similar looking code:

    Function MailLotusApp(Recipient As String, Subject As String, BodyText As String)
    'This function sends the mail

    'Setup the objects required for Automation into Lotus notes
    Dim Maildb As Object ' The mail database
    Dim UserName As String 'The users notes name
    Dim MailDbName As String ' The users notes mail database name
    Dim MailDoc As Object ' The mail doc itself
    Dim Session As Object ' The notes session


    'Start notes session
    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 doc
    If (Not (Recipient = "")) Then
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recipient
    MailDoc.Subject = Subject
    MailDoc.Body = BodyText
    'Send the mail
    MailDoc.SEND 0, Recipient
    End If

    'Clean up
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set Session = Nothing

    End Function

    PS... I also have VB Code that will query a lotus address book to get names, addresses, phone numbers, etc. I found this very usefell when building a list of company employees because they stored the Lotus nsf file on the network.
    Last edited by ottomatic; 10-21-03 at 21:10.

  6. #6
    Join Date
    Nov 2002
    Location
    Melbourne
    Posts
    92
    I'd be interested in this.

    At the moment I have setup my own address book via access using cascading boxes.eg cboState, cboContractors , cboEmailAddress

    I would be interested in adopting your method in obtaining address that are stored in Notes.

    PS... I also have VB Code that will query a lotus address book to get names, addresses, phone numbers, etc. I found this very usefell when building a list of company employees because they stored the Lotus nsf file on the network.

  7. #7
    Join Date
    Aug 2009
    Posts
    1

    browsing lotus notes directory

    Hi do you have a code that lets you brows Lotus Notes directory to get e-mail address. I am having a trouble finding users logged in to Lotus, e-mail address

  8. #8
    Join Date
    Nov 2002
    Location
    Melbourne
    Posts
    92
    Sorry, I no longer have this as it was a long time ago when I posted.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •