export email as a file?

I have an email that has lots of twisties containing other emails and pics etc

is there any way to export that email to a file so i can share it on a network drive?

jlymnAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

jlymnAuthor Commented:
guess I should have said, its notes7 i'm using!
0
mbonaciCommented:
Hi jlymn,
only as a picture file (jpeg, gif).

For the purpose of creating image of document the method
    flag = notesDocument.RenderToRTItem( notesRichTextItem )
is used.

Before calling that method call this one:
    Call notesUIDocument.ExpandAllSections
to expand all those twisties.



Hope this helps,
Marko
0
Cloud Class® Course: Ruby Fundamentals

This course will introduce you to Ruby, as well as teach you about classes, methods, variables, data structures, loops, enumerable methods, and finishing touches.

jlymnAuthor Commented:
Marko,

thanks for the link, do you know how i would implement the code? I've not done any notes development before. Do i just need basic notes package and to create a macro somehow?

0
mbonaciCommented:
jlymn,
you need Lotus Notes Client (which you obviously have since you read LN mail) and Lotus Domino Designer (to enter database design - code).
Do you have Domino Designer?

If yes:
Using BitBlt operations you can easily copy selected documents from a view as seperate Word documents.
Make sure you have a field called "Subject" in each document, or modify the call to the CopyScreenRectToWord parameters accordingly.
By default the size of the region is set to 600x600, starting from the corner of the Notes Document content, and you can change this size as needed.

Create an agent called CopyNotesDocumentToWordPicture, and put the agent target as "All Selected Documents":
Const SRCCOPY& = &HCC0020
Const CF_BITMAP& = 2
Declare Function GetFocus Lib "USER32" () As Long
Declare Function GetDC Lib "USER32" (Byval hWnd As Long) As Long
Declare Function DeleteDC Lib "GDI32" ( Byval hDC As Long) As Long
Declare Function ReleaseDC Lib "USER32" (Byval hWnd As Long, Byval hDC As Long) As Long
Declare Function CreateCompatibleDC Lib "GDI32" ( Byval hDC As Long) As Long
Declare Function CreateCompatibleBitmap Lib "GDI32" ( Byval hDC As Long, Byval nWidth As Long, Byval nHeight As Long) As Long
Declare Function SelectObject Lib "GDI32" ( Byval hDC As Long, Byval hObject As Long) As Long
Declare Function BitBlt Lib "GDI32" ( Byval hDCDest As Long, Byval XDest As Long, Byval YDest As Long, Byval nWidth As Long, Byval nHeight As Long, Byval hDCSrc As Long, Byval XSrc As Long, Byval YSrc As Long, Byval dwRop As Long) As Long
Declare Function OpenClipboard Lib "USER32" (Byval hWnd) As Long
Declare Function EmptyClipboard Lib "USER32" () As Long
Declare Function SetClipboardData Lib "USER32" (Byval wFormat As Long, Byval hMem As Long) As Long
Declare Function CloseClipboard Lib "USER32" () As Long
Dim appWord

Sub Initialize
    exportpath="C:\User\NotesDocs\"
    Set appWord = CreateObject("Word.Application")
    Dim workspace As New notesuiworkspace
    Dim uidoc As NotesUIDocument
    Dim session As New notessession
    Dim db As notesdatabase
    Dim col As notesdocumentcollection
    Dim doc As notesdocument
    Dim i As Long
    Set db=session.CurrentDatabase
    Set col=db.unprocesseddocuments
    Set doc=col.getfirstdocument
    While Not doc Is Nothing
        Set uidoc=workspace.EditDocument(True,doc)
        uidoc.reload
        uidoc.document.saveoptions="0"
        uidoc.editmode=False
        Call CopyScreenRectToWord(exportpath & doc.Subject(0), 0, 0, 600, 600)
        uidoc.Close True ' True=immediate close, needs Notes 5.0.7 or higher
        Set doc=col.getnextdocument(doc)
    Wend

Hope this helps,
Marko
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
marilyngCommented:
Question, why not print to PDF?  check out pdf995.com for inexpensive pdf printing solution.  You can export to PDF, encrypt and even attach a password so the document can't be changed.
0
jlymnAuthor Commented:
thanks, i'll try both these so i'll split the points
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Lotus IBM

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.