Hallo zusammen,
kann ich mit Lotus Script oder Formular an die Page Source drann?
Hallo zusammen,
kann ich mit Lotus Script oder Formular an die Page Source drann?
suchst Du @Command([ViewShowPageBreaks])?
Gruß
Dirk
hm, nein... ich suche eine Function die die Page Source für mich abgreifbar macht... so das ich das z.B. exportieren kann als Textfile... oder ähnlich.
Sorry, hatte wahrscheinlich die Augen noch nicht ganz auf.
Eine @Function gibt es nicht, aber eventuell kommst Du mit einem
@Command( [FileExport] ; "Structured Text" ; "d:\\test.txt" )
hin.
Gruß
Dirk
Das exportiert aber z.B. nicht die vollständigen Routinginformationen ("Received"-Felder usw.). Ich vermute einfach mal, da muss man sich selbst was basteln.
??? bei mir kommen da alle Received-Felder !!! Wir nutzen dies schon seit 4.x.
Natürlich kann man da auch ein Script schreiben.
Gruß
Dirk
Interessant ... auf View Level geht das, auf Document Level geht es nicht.
hm... ich hätte es halt gerne auf document level...
Weil nur so kann ich es verwurschteln...
Ziel und warum überhaupt:
Ich möchte eMails intern weiterleiten. leider geht dann der Header immer flöten und wenn die user sich beschweren ist es teilweise nicht mehr einfach herauszufinden woher die email eigentlich gekommen ist. Eine Kopie will ich nicht irgendwo ablegen. Deshalb die Idee diese Informationen zu extraieren und in der email dann in ein nicht sichtbares Feld zu schreiben.
Da kannst du doch dann auf die Originalemail zugreifen und dort die Daten auslesen.
naja... vorrausgesetzt der user löscht die nicht... und das kommt leider häufiger vor. Deshalb die Idee den header halt mit zu "vererben"...
Ich habe durch Zufall gerade folgendes gefunden:
http://cwhisonant.blogspot.com…l-header-information.html
Vielleicht für den ein oder anderen interessant.
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument,tempdoc As notesdocument
Dim m As String, n As String
Dim first As Integer, l As Integer
l = 1
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)
'' create a temporary copy of the document
Set tempdoc = db.createdocument
Call doc.CopyAllItems( tempdoc )
'' re-read the document items to ensure you are getting the remaining fields and not the removed ones
NextOne:
Forall item In tempdoc.Items
If item.Name = "Received" Then
m = item.Text
first = False
For a = 1 To Len(m)
If ( Mid$(m,a,5) = " " ) Then
If ( first = False ) Then
Mid$(m,a,1) = Chr$(10)
first = True
Else
Mid$(m,a,1) = " "
End If
Else
first = False
End If
Next
If ( n = "" ) Then
n = "<Hop " & l & ">"
n = n & Chr$(13) & m
l = l + 1
Else
n = n & Chr$(13) & "<Hop " & l & ">" & Chr$(13) & m
l = l + 1
End If
m = ""
'' remove the current occurrence of the item so lotusscript will get the next one
Call item.Remove
'' write the document so it will not contain the removed item
Call tempdoc.save(True,True)
'' go back and re-read the document items to refresh the memory
Goto NextOne
End If
End Forall
If ( n <> "" ) Then
Messagebox n,,doc.Subject(0)
Else
Messagebox "No Internet Received Headers found.",,doc.Subject(0)
End If
n = ""
'' delete the temporary document
Call tempdoc.Remove( True )
Set doc = dc.GetNextDocument(doc)
Wend
End Sub
Alles anzeigen
Nett Sache.
Was sich mir allerdings nicht erschliesst ist, warum der Coder das tempdoc speichert und dann löscht. Diese beiden Zeilen kann man zur Vermeidung unnötigen Mülls in der Mail-DB löschen - für die Funktionalität ist es nicht wichtig.
Bernhard