SendForReview + Lotus Notes = success or failure?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Does anybody out there have any experience using the
Presentation.SendForReview method on a client that uses Lotus Notes
exclusively? I am working on solution that will be installed at many
different customer sites - some of which are 100% Lotus Notes installations.
 
I have automated sending a message via Lotus Notes from within PowerPoint
using VBA. I use this feature as a way of using PowerPoint as
computer-based training (CBT). Upon completion of the presentation, I have
assigned a macro to a button on a slide that when clicked opens Lotus Notes
(if it wasn't already opened), then sends a message. If you are interested
in seeing the code, holler back and I'll post a sample.

--
Bill Foley, Microsoft MVP (PowerPoint)
Microsoft Office Specialist Master Instructor
www.pttinc.com
Check out PPT FAQs at: http://www.rdpslides.com/pptfaq/
"Success, something you measure when you are through succeeding."
 
Bill, that sounds good and I'd like to see a sample. However, I am
particularly interested in being able to manage the automated review process
in both Lotus Notes and Microsoft Exchange environments.

Perhaps it would have been better to state my original question as "How does
PowerPoint send email when using SendForReview?" Does it use MAPI, simple
MAPI, etc? Has anybody tested it on Lotus Notes or other non-Microsoft email
packages?
 
Not sure. I would guess it uses MAPI since it would utilize the default
e-mail editor program on your computer, but have never tried or looked into
it. FYI - here is the Lotus Notes sample code I mentioned:

'=====Code Starts Here=====

Sub MailData()

Dim Session As Object, DB As Object, Memo As Object
Dim Server$, Mailfile$
Dim Item As Object, strSubject As String, strBody As String

strSubject = "put subject here, or use another variable"
strBody = "put body of message here, or use variable"

Set Session = CreateObject("Notes.NotesSession")

' Read the current mail server from Notes.ini
Server$ = Session.GETENVIRONMENTSTRING("MailServer", True)

' Read the current mail file from Notes.ini
Mailfile$ = Session.GETENVIRONMENTSTRING("MailFile", True)

' Try to open the mail database
Set DB = Session.GETDATABASE(Server$, Mailfile$)

' If Mail db not accessible, return an error
If Not DB.IsOpen Then
MsgBox "Could not access Notes mail file!"
Exit Sub
End If

'LN Message
'Create a memo in the user's mail file
Set Memo = DB.CREATEDOCUMENT

'Set the form to be a mail memo
Memo.Form = "Memo"
Memo.copyto = "wherever"

'Set the "from" field (not necessary)
Memo.From = Session.UserName

'Set the recipient of the memo
Memo.SendTo = "your e-mail address here"

'Give the memo a subject
Memo.Subject = strSubject

'Give the memo a body message
Memo.Body = strBody

'Send the memo
Call Memo.SEND(False, False)

' Restore NOTES variables back to nothing
Set DB = Nothing
Set Session = Nothing

End Sub

'=====Code Ends Here=====

--
Bill Foley, Microsoft MVP (PowerPoint)
Microsoft Office Specialist Master Instructor
www.pttinc.com
Check out PPT FAQs at: http://www.rdpslides.com/pptfaq/
"Success, something you measure when you are through succeeding."
 
Back
Top