Esportare Immagini Embedded in file .GIF

Questo code preso dal sito di Andrei's permette di esportare direttamente immagini embedded al'interno di un campo Rich-Text in formato ,GIF...

Senza l'utilizzo di questo code il processo è fattibile salvando nella ClipBoard l'immagine passarla ad un immagine di Editing Grafico e poi salvarlo nel formato desiderato...


*******************************************
Option Public
Use "base64encdec"

Sub Initialize
Dim session as New NotesSession
Dim db as NotesDatabase
Dim doc as NotesDocument
Dim picdata As String
Dim decstr As String

set db=session.CurrentDatabase
set doc=db.GetDocumentByUNID("1EC1508B08428D4385256E00004B0D3F")

Set exporter = session.CreateDXLExporter
exporter.ConvertNotesBitmapsToGIF = True
out = exporter.Export(pdoc)

find1=" find2=""
findpic1=" findpic2=""
rtstart=Instr(out, find1)
rtstart2=Instr(rtstart, out, findpic1)
rtfinish2=Instr(rtstart2, out, findpic2)
purepic= Mid(out, rtstart2, rtfinish2-rtstart2+Len(findpic2))


finddata1=""
finddata2=""
picdatastart=Instr(purepic, finddata1)
picdatafinish=Instr(picdatastart, purepic, finddata2)
picdata=Mid(purepic, picdatastart+Len(finddata1), picdatafinish-picdatastart-Len(finddata2))

decstr=DecodeBase64(picdata)
fout = Freefile
Open "c:\testgif.gif" For Output As fout
Print #fout, decstr
Close #fout
End Sub
*********************************