EMail an OLE- / COM-Object übergeben

[TGroener]

Hallo zusammen,

leider habe ich über die Suche nicht das gefunden was ich suche (oder falsch gesucht  ) ...

Ich möchte ein "Makro" schreiben, welches es dem Anwender ermöglicht, auf Knopfdruck, die aktuell selektierte EMail an eine DLL zu übergeben, damit diese dann die EMail weiterverarbeitet. Leider bin ich (immer noch) ein totaler LN-Neuling und habe absolut keine Ahnung wie das möglich ist. 

Hintergrund ist, das wir die EMails in ein Content-Management-System einlesen wollen, um diese dann darin weiter zu verarbeiten.

Vielen Dank schon einmal im vorraus 

[Glombi]

Eine E-Mail ist ein kompliziertes Gebilde (Notes-Dokument) das man nicht an eine DLL übergeben kann.
Du kannst Informationen (Feldinhalte) an die DLL übergeben oder die Dokument-ID, mit der die DLL dann  -via COM - das Backenddokument holen und weiterverarbeiten kann.

Andreas

[TGroener]

Eine E-Mail ist ein kompliziertes Gebilde (Notes-Dokument)

und das nicht nur in LN 

Du kannst Informationen (Feldinhalte) an die DLL übergeben oder die Dokument-ID

Die Dokument-ID würde mir ja schon reichen, (funktionierende) Routinen um damit dann meine Informationen auszulesen hab ich schon. Ich  weiß nur keinen Ansatz wo und wie ich das ganze in LN "einbauen" kann ...

Greetz

[Glombi]

Wie bindet man eine DLL mit Script ein:

Unter (Declarations)
Declare Function FunktionsName Lib "namedll.dll" Alias "FunktionsNameAlias" (Byval DocID As String) As Integer

Aufruf
... hier normale Script Code ... 'sei doc das Notes-Backenddokument

call FunktionsNameAlias( doc.UniversalID)

übergibt dann die DocID an die DLL.


FunktionsName ist den Name der Function in Notes
FunktionsNameAlias muss der Name der Function sein, die in der DLL verwendet wird.

In der Regel verwende ich als namen der Notes Function den gleichebn Namen wie in der DLL.


Es kann aber Sinn machen, wenn man betriebssystemunabhängig programmieren will. Das säehe dann so aus:

Private Const DLL_NAME_W32 = "namedll.dll"     
Private Const DLL_NAME_UNIX = "/data/notesdata/namedll.so"     

Declare Function FunktionsName_W32 Lib DLL_NAME_W32 Alias "FunktionsName" (Byval sz As String) As Integer
Declare Function FunktionsName_UNIX Lib DLL_NAME_UNIX Alias "FunktionsName" (Byval sz As String) As Integer

Der Aufruf wäre dann so


Dim Session as New NotesSession
DLL_Platform = Session.Platform
Select Case DLL_Platform         
   Case "Windows/32":
      call FunktionsName_W32(doc.UniversalID)         
   Case "UNIX":
      call FunktionsName_UNIX(doc.UniversalID)         
   End Select         



Andreas

[TGroener]

So ... Ich habe das jetzt soweit eingebaut, jetzt habe ich folgende Funktion:

Code

declare function ImportMail ......

Sub Import
   dim lvobjWS as New NotesUIWorkspace   
   dim lvobjMail as NotesDocument   
   
   set lvobjMail = lvobjWS.CurrentDocument.Document
   
   call ImportMail(lvobjMail.UniversalID
end sub

Dummerweise ist aber lvobjWS.CurrentDocument nicht gefüllt. Wenn ich mir die anderen Eigenschaften von lvobjWS im Script Debugger anschaue sehen die richtig aus (lvobjWS.Currentview steht auf dem richtigen Eintrag usw.).

Was mach ich denn hier falsch?

greetz Thomas

[koehlerbv]

Ist das Dokument den im Frontend geöffnet oder versuchst Du aus aus einer NotesUIView heraus?

Bernhard

[TGroener]

Ist das Dokument den im Frontend geöffnet oder versuchst Du aus aus einer NotesUIView heraus

Nein, ist es nicht. Ich habe ganz normal die Ansicht für die Inbox offen und dort in der Liste eine Mail markiert.

[Glombi]

Dann so:

declare function ImportMail ......


in der    Sub Click:


   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   
   
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set dc = db.UnprocessedDocuments
   
   Set doc = dc.GetFirstDocument

call ImportMail( doc.UniversalID )
   

[TGroener]

...
db.UnprocessedDocuments

...

sind das nicht die ungelesenen Elemente  ... oder stehe ich da jetzt auf der Leitung??? Ich benötige ja mein markiertes Element / meine markierte Elemente?

Ich bin leider bisher nicht zum testen gekommen, da unser Server gerade neu gestartet werden muss :-(

[m3]

Ich bin leider bisher nicht zum testen gekommen, da unser Server gerade neu gestartet werden muss :-(

Entwickelst Du am Produktionsserver? 

[TGroener]

Ich bin leider bisher nicht zum testen gekommen, da unser Server gerade neu gestartet werden muss :-(

Entwickelst Du am Produktionsserver? 

neine ... keine Bange :-) von Lotus gibt es bei uns gar keinen Produktionsserver, da wir eigentlich ein anderes Produkt (M... O....) einsetzen. Unsere Kunden haben aber teilweise LN, also sollten wir das ja dann auch unterstüzen ;-)

[TGroener]

Dann so:

declare function ImportMail ......


in der    Sub Click:


   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   
   
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set dc = db.UnprocessedDocuments
   
   Set doc = dc.GetFirstDocument

call ImportMail( doc.UniversalID )
   

so, aus dem DECLARE noch ein CreateObject gemacht und jetzt klappt alles.

Vielen Dank für die Hilfe. Ein dickes Lob an das Forum :-)