Hilfe: RTitem zickt...

Busdriver · 23. Juli 2007

Hallo beieinander,

ich galube ich seh mal wieder den Baum vor lauter Wäldern nicht... (oder so ähnlich )

Folgendes Script soll mit einem Memo verschickt werden und einen Dateianhang in der Mail automatisch in ein Verzeichniss lösen. Wir machen das ganze auf diesem Wege, da die echten verzeichnisse nachher sehr kryptisch sind... (Desktop ist nur ein Test)

Beim Set rtitem bekomm ich immer nen Object Variable not set....

Warum ? Was habe ich vergessen ? Siehts einer von Euch ??

Gruß,
Arne

Code

Sub Click(Source As Button)
	Dim doc As NotesDocument
	Dim rtitem As Variant
	Dim MyPfad As String
	Dim YF As String

	YF = Inputbox$("Wie ist Ihre YF-Nummer?", "YF.Nummer","yf9fr..")
	MyPfad = "C:\Dokumente und Einstellungen\" & YF & "\Desktop"

	Set rtitem = doc.GetFirstItem( "Body" )
	If ( rtitem.Type = RICHTEXT ) Then
		Forall o In rtitem.EmbeddedObjects
			If ( o.Type = EMBED_ATTACHMENT ) Then
				Call o.ExtractFile( MyPfad & o.Source )
				Call o.Remove
				Call doc.Save( False, True )
			End If
		End Forall
	End If

End Sub

Alles anzeigen

taurec · 23. Juli 2007

Liegt wohl daran weil doc zu dem Zeitpunkt noch Nothing ist oder wo hast du doc was zugewiesen ?

Busdriver · 23. Juli 2007

Okay, da scheint der Fehler zu liegen..

Ich habe das Document mittels GetFirstDocument gesetzt.

Was muss ich denn nehmen um das aktuell geöffnete Document zu nehmen ??

taurec · 23. Juli 2007

Um mit RT Items in einem offenen Dokument zu arbeiten musst du noch ganz andere Dinge tun, denn so wie du es dann machst wird es eh nicht gehen.
Du musst das Dokument schliessen, deine Aktionen durchführen und dann das Dokument wieder neu öffnen

Busdriver · 23. Juli 2007

Das allerdings ist ärgerlich...

Patrick · 24. Juli 2007

Wieso definierst du das Richtext Item als Variant?

Code

Dim rtitem As Variant

Versuch's doch mit

Code

Dim rtitem As NotesRichTextItem

Von wem wird das ganze ausgelöst? User oder Agent? Eventuell musst du die ECL beachten. Bei Agenten den Runtime Security Level. Das ExtractFile ist eine restricted Methode.

Teilen