Beiträge von Stony

Hi,

habs jetzt so gelöst...

windir = Environ("TEMP") 

	Set rtItem = doc.GetFirstItem("Image")
	If(rtItem.Type = RICHTEXT) Then
		Forall o In rtItem.EmbeddedObjects 
			If ( o.Type = EMBED_ATTACHMENT ) Then
				file = windir+"\"+o.Name
				Call o.ExtractFile(file)
				result = Shell("cmd.exe /c "+file, 1)
			End If
		End Forall
	End If

Thanks!

Gruß Stony

Hi,

ich muss wohl deine Variante nehmen Diali, da das Richtextfeld, wie du schon angenommen hast, versteckt ist.

Das wird mit Formel-Sprache nicht gehen, oder?

Gruß Stony

Hallo zusammen,

kann man ein attachment aus einem richtextitem per button öffnen und anzeigen lassen?
Wenn ja, wie??

Schonmal vielen Dank.

Gruß Stony

ok. danke.

Wie könnte ich es denn anders machen?

Hi,

habs jetzt so gelöst.

Hier der Code:

doc.SaveOptions="0"
Call doc.Save(True,False)
Call uidoc.Close
Call ws.EditDocument(False, doc)

Und im Queryopen setze ich die SaveOptions wieder auf 1.

Danke.

Gruß Stony

So ist es.

Habe es mal probiert. Wenn der Client fragt, ob ich das Doc speichern wolle, habe ich nein gesagt und schon gings.

Aber wie kann ich das umgehen? Der User wird sicherlich "Ja" klicken und das Doc nochmals speichern.

Hallo,

ja der Code wird im Dokument aufgerufen.
Aber auch nach schließen und öffnen des Docs, hängt der Anhang unten dran und befindet sich nicht wie gewollt im RichtTextFeld "Image".

Gibts noch eine andere Möglichkeit?

Gruß Stony

Hallo,

hab jetzt mal versucht einfach ein File in ein Richtext Feld zu packen.
Nur irgendwie wird das file dann nicht in dem RichText Feld "Image" angezeigt, sondern am untersten Rand vom Doc??

Das Richtextfeld wollte ich dann verstecken, so dass den Anhang keiner mehr sieht.

Hier mal der Code:

files = ws.OpenFileDialog(False, "Image", "JPG|*.jp*", "C:\")
	If Isempty(files) Then
		Exit Sub
	End If

	Set rtItem = doc.getfirstitem("Image") 
	If(rtItem.Type = RICHTEXT) Then
		Call rtItem.EmbedObject( EMBED_ATTACHMENT, "", files(0))
	End If

	Call doc.Save(True,False)

Gruß Stony

Hi Diali,

das ist ein guter Vorschlag. Werde das denke so tun.

Gruß Jan

Hallo zusammen,

ich habe einen Quellcode, der die Attachments in einem Doc löschen soll, wenn diese zu groß sind.

Das funktioniert eigentlich auch, nur das im Dokument das Bildchen des Attachments überbleibt.

Hier mal der Code:

Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Dim emb As NotesEmbeddedObject
	Dim rtitem As NotesRichTextItem

	Dim fileSizeKB As Long

	Set uidoc = ws.CurrentDocument
	Set doc = uidoc.Document

	eval = Evaluate("@AttachmentLengths", doc)
	fileSizeKB=Clng(eval(0))/1024

	If fileSizeKB >150 Then
		Msgbox "The article picture is too big. Please notice that the file may not be greater than 150 kbyte!",16,"Error file size: "+Cstr(fileSizeKB)+" kbyte"

		'Delete Attachment		
		Set rtitem = doc.GetFirstItem( "Image" )
		If ( rtitem.Type = RICHTEXT ) Then
			Forall o In rtitem.EmbeddedObjects
				If ( o.Type = EMBED_ATTACHMENT ) Then
					Call o.Remove
					Call doc.Save( True, True )
				End If
			End Forall
		End If 

	End If

Was mache ich denn falsch?

Schonmal vielen Dank.

Gruß Stony

ah. OK. Dann hat sich die Sache erledigt.

Danke.

Gruß Stony

Hallo zusammen,

ich habe irgendwie ein Problem mit einem DBLookup.
Der Lookup soll in einer Spalte einer Ansicht ausgeführt werden.

In dem Dokument funktioniert der Lookup wunderbar.
Nur eben nicht in der Ansicht, obwohl ich genau diese Dokumente in der Ansichtsauswahl angegeben habe....

tClass := "";
tCacheOptions := "";
tServer := "";
tDB := "";
tView := "lvwArticleAllByNumberEN";
tKey := ArticleNumber;
tField := "DocumentUNID";


tResult := @DbLookup(tClass:tCacheOptions;tServer:tDB;tView;tKey;tField; [FailSilent]);


@Text(@WebDbName)+"/openImage/"+ tResult+"/$file/"+ @DbLookup("":"";"":"";"openImage";tResult;2)

Kann mir hierzu jemand helfen?

Danke. Gruß Stony

Hallo Dirk,

vielen Dank. Funktioniert einwandfrei!!!

Gruß Stony

Hallo,

habe einen Agenten, der die einfache Aktion "Antwort an Absender" enthält. Der Agent funktioniert auch prima.

Aber wie kann ich ein Subject angeben?

Schonmal vielen Dank im Voraus.

Gruß Stony

Hallo,

habs jetzt hinbekommen. Nachdem die Validierung draußen war habe ich folgendes eingegeben....
"Vorname Nachname" <vorname.nachname@provider.de>

Gruß Jan

Jetzt konnte ich es ändern, aber nun taucht das Problem bei der Replizierung auf....

Beim Replizierungsstatus steht jetzt "Ungültige Email-Adresse angegeben"

Folgendes steht im Log:

05.04.2008 17:11:40 [01B8:000A-079C:wrepl] SMTPClient: Attempting to SubmitMessage:
05.04.2008 17:11:40 [01B8:000A-079C:wrepl] SMTPClient: Error parsing from address VORNAME NACHNAME. Status: 15095.
05.04.2008 17:11:40 [01B8:000A-079C:wrepl] SMTPClient: Attempting to Disconnect:
05.04.2008 17:11:40 [01B8:000A-079C:wrepl] SMTPClient: CommandQUIT:
05.04.2008 17:11:40 [01B8:000A-079C:wrepl] SMTPClient: ReceiveResponse: 221 7.mx.freenet.de closing connection
05.04.2008 17:11:40 [01B8:000A-079C:wrepl] SMTPClient: Connection terminated successfully

Hallo,

das hatte ich auch schon versucht.
Aber wenn ich da meinen Vor -und Nachnamen eintrage bekomme ich folgende Fehlermeldung:

Hallo Taurec,

vielen Dank. Das hat einwandfrei funktioniert!!

Gruß Stony

Hallo,

auch hier habe ich die Suche verwendet und nichts gefunden...

Suchbegriffe: Outlook, dbx.....

Gruß Jan