Domino 9 und frühere Versionen > ND8: Entwicklung

VBA das aktuelle Dokument auslesen

<< < (2/3) > >>

Tiger955:
@ghostmw


--- Zitat von: ghostmw am 23.09.14 - 10:05:46 ---Moin,

also wenn ich das richtig sehe, gibt es keine Methode GETITEM ... oder ?

GETFIRSTITEM würde ich empfehlen.

--- Ende Zitat ---

Das hatte ich auch schon probiert, funktioniert auch nicht.
Trotzdem Danke für die Antwort.

Tiger955:
@Andreas


--- Zitat von: ascabg am 23.09.14 - 10:05:59 ---Hallo,

Weil dies im FrontEnd (NotesUIDocument) nicht funktioniert.

Probier mal - nicht getestet -


--- Code: ---Set Body = Form.Document.getFirstItem("Body")

--- Ende Code ---


Andreas

--- Ende Zitat ---

Diese Zeile wurde ohne Fehler genommen, sie dürfte daher funktionieren, dafür bekomme ich in der nächsten Zeile einen Fehler


--- Code: --- If body.HasEmbedded Then

--- Ende Code ---

Wie prüft man, ob der Body ein Attachment hat??

ascabg:
Hallo,

Das kannst Du nicht auf dem Body machen. das geht nur auf dem Dokument selber.

Du kannst aber mit einer - hier kommt wieder Lotus Script - ForAll-Schleife arbeiten.


--- Code: ---ForAll o In Body.EmbeddedObjects

    If o.Type = EMBED_ATTACHMENT Then
       
        Call o.Extract(...)

    End If

Next

--- Ende Code ---

Alles Beispiele aus der Designer-Hilfe in Notes.


Andreas

Tiger955:
Hallo,

Den Code aus LS kannt ich, aber WIE soll ich LS in mein VBA Porjekt einbauen?

"Forall" gibt es in VBA nicht, mit "For Each o In Body...." geht es auch nicht, denn ich brauche den Body.

Wenn ich durch einen ganzen Folder loope geht es ja auch

--- Code: ---Do Until noDocument Is Nothing
   
    Set noNextDocument = noView.GetNextDocument(noDocument)
    On Error Resume Next
    'Check if the document has an attachment or not.
    If noDocument.HasEmbedded Then
      Set vaItem = noDocument.GetFirstItem("Body")
        If vaItem.Type = RICHTEXT Then
            For Each vaAttachment In vaItem.EmbeddedObjects
                If vaAttachment.Type = EMBED_ATTACHMENT Then
.....


--- Ende Code ---

Ich brauche daher nur das analoge Vorgehen für das im Workspace geöffnete (oder markierte) Mail.

ascabg:
hallo,

Den Body solltest du doch jetzt haben. Oder habe ich hier etwas verpasst.

Set Body = Form.Document.getFirstItem()


Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete