Beiträge von Stony

Hallo,

habe die Suche verwendet aber nichts gefunden.....

Gruß Stony

Hallo zusammen,

gibt es einen Konverter für DBX in .nsf-Files? Wenn möglich Freeware

Gruß Stony

Hallo zusammen,

ich möchte Notes als pop3 / smtp client ohne server verwenden.
Senden und Empfangen klappt auch schon wunderbar.

Aber wie kann ich den Absender einstellen?
Jetzt macht er als Absender immer vorname.nachname@provider.de

Ich würde es aber gerne so haben: Vorname Nachname!!

Hoffe es kann mir hier jemand weiter helfen.

Schonmal vielen Dank für eure Hilfe.

Gruß Stony

Hallo zusammen,

ich habe mir hier was zusammengebaut, um ein Attachment von DocA nach B zu kopieren mit Umwegen.

imageName = doc.GetItemValue("$FILE")
Set image = doc.GetAttachment(imageName(0))
Call image.ExtractFile("C:" + image.name)
Call shopDoc.RemoveItem("Image")
Set item = shopDoc.CreateRichTextItem("Image")
			Call item.EmbedObject( EMBED_ATTACHMENT, "", "C:" + image.name)
Kill "C:" + image.name
Call image.Remove

Set rtItem = doc.getfirstitem("Image") 
If(rtItem.Type = RICHTEXT) Then
	Call rtItem.AppendRTItem( item  )
End If

Bekommt man das auch ohne Umweg über die Festplatte hin?

Vielen Dank im Voraus.

Gruß Stony

ok. Habe nun ein MIME-Item "Body" erstellt. Und wie bekomme ich da nun den formatierten Text wie bei einem RenderToRtItem rein?

Die Mail soll ja nur ungefähr so ankommen, als wenn man ein RenderToRtItem macht und die Mail intern versendet.

Hier nochma der code:

Dim maildoc As NotesDocument
	Dim body As NotesMimeEntity

	s.ConvertMime=False

	Set maildoc = db.CreateDocument
	maildoc.form = "formTest"	
	Call curDoc.CopyAllItems(maildoc) 	
	Call maildoc.ComputeWithForm (True,False)

	maildoc.SendTo = "internet@internet.com"
	Set body=maildoc.CreateMIMEEntity("Body")



	Call maildoc.CloseMIMEEntities
	s.ConvertMime=True

	maildoc.Form = "Memo"	
	Call maildoc.Send(True)

Gruß Stony

Hallo,

ich denke das Problem ist, dass "Body" nicht vom Type MIME_PART ist.

Hätte nicht gedacht, dass es so kompliziert ist, ein gerendertes Body field formatiert an eine internet mail adresse zu senden.

Gibts vielleicht noch eine andere Möglichkeit?

Gruß Stony

Hallo,

habe es nochmal probiert, bekomme es aber leider nicht hin.
Irgendwie zieht er sich nicht das vorher gerenderte body feld...

Set body=maildoc.CreateRichTextItem("Body")
Call curDoc.RenderToRTItem(body)
Set mimeEntity = maildoc.GetMIMEEntity("Body")

Hoffe, es kann mir jemand helfen. Schonmal vielen Dank im Voraus...

Gruß Stony

Habe das ganze mal gedebuggt....mimeEntity ist immer leer, was so viel heißt, dass er sich das nicht holt.

Dim maildoc As NotesDocument
	Dim body As NotesRichTextItem
	Dim mimeEntity As NotesMimeEntity

	s.ConvertMime=False

	Set maildoc = db.CreateDocument
	maildoc.form = "formTest"	
	Call curDoc.CopyAllItems(maildoc) 	
	Call maildoc.ComputeWithForm (True,False)


	maildoc.SendTo = "Internet@Internet.de"
	Set body=maildoc.CreateRichTextItem("Body")
	Call curDoc.RenderToRTItem(body)

	Set mimeEntity = maildoc.GetMIMEEntity("Body")
	'???	


	Call maildoc.CloseMIMEEntities
	s.ConvertMime=True

	maildoc.Form = "Memo"	
	Call maildoc.Send( False)

Würde sagen, ich mache da was falsch :-?

Gruß Stony

Hi,

irgendwie versteh ich das nicht so ganz.
Wie bekomme ich denn das vorher gerenderte RichtTextItem in ein MIME??

Danke schonmal für die Hilfe.

Gruß Stony

Hallo zusammen,

gibt es eine Möglichkeit ein schön formatiertes Richtextitem als Internet mail zu versenden?

Dim s As New NotesSession
	Dim maildoc As NotesDocument
	Dim body As NotesRichTextItem

	Set maildoc = db.CreateDocument
	maildoc.form = "formTest"	
	Call curDoc.CopyAllItems(maildoc) 	
	Call maildoc.ComputeWithForm (True,False)


	maildoc.SendTo = "Internet@Internet.de"
	Set body=maildoc.CreateRichTextItem("Body")
	Call curDoc.RenderToRTItem(body)
	maildoc.Form = "Memo"	
	Call maildoc.Send( False)

Wenn das im Internet Account ankommt ist es total zerfledert...

Gruß Stony

Morgen zusammen,

habe es hinbekommen....

es hat am Designelement (Maske) gelegen. Habe eine neue Maske erstellt und alles rein kopiert und schon gings :lol:

Gruß Stony

Hmm...das hat aber bisher immer funktioniert.... :-?

Hi,

welches Dokument betrifft es denn, indem eine Berechnung quer schießt? Maildoc oder curDoc?

Danke.

Gruß Jan

Hallo zusammen,

habe ein kleines Problem mit einem WebQuerySave-Agenten...

Dim s As New NotesSession
Dim db As NotesDatabase
Dim maildoc As NotesDocument
Dim body As NotesRichTextItem


Set db = s.CurrentDatabase
Set curDoc = s.DocumentContext


Set maildoc = db.CreateDocument
maildoc.form = "formTest"	
Call curDoc.CopyAllItems(maildoc) 	
Call maildoc.ComputeWithForm (True,False)

maildoc.SendTo = "TestAccount"
Set body=maildoc.CreateRichTextItem("Body")
Call curDoc.RenderToRTItem(body)
maildoc.Form = "Memo"	
Call maildoc.Send( False)

Der Agent soll eigentlich nur eine Mail versenden....

Also das Problem ist, dass an der Stelle "Call curDoc.RenderToRTItem(body)" folgende Meldung im Log steht:

HTTP Web Server: Lotus Notes Exception - Entry not found in index.

Schonmal vielen Dank für die Hilfe vorab.

Gruß Stony

Hallo zusammen,

und zwar habe ich ein Feld in das ein Wert eingegeben wird.

Nun sollen in einer Dialogliste alle Werte angezeigt werden, die ungefähr so ähnlich sind wie der eingegebene Wert.

Bsp:

Eingabe von 123 soll dann auch 1234 oder ähnliches finden....

Die Dokumente, die er nach den ungefähren Werten durchsuchen soll befinden sich in einer View (lvwTest)

Kann man so etwas in die Auswahl des Feldes per Formel realisieren?

Vielen Dank im Voraus.

Gruß Stony

Hallo,

also in dem Frame wird lediglich das Feld eines Dokumentes angezeigt.

Das Dokument wird über die DocID geholt....

HTTP Web Server: Lotus Notes Exception - Document has been deleted [/databases/db.nsf/0/63FAE3DA7C7AD238C125732F003CE29A?openDocument]

Gruß Jan

Hallo zusammen,

habe ein kleines Problem mit einer Webapplikation.
Wenn ich die Applikation aus den Favoriten des Browsers (IE6) starte, wird ein Frame nicht geladen (Die Seite wurde nicht gefunden.)

Wenn ich nun den Browser aktualisiere funzt es wieder....

Im Log steht dann folgende Meldung:

HTTP Web Server: Lotus Notes Exception - Document has been deleted

Habe schonmal bei IBM geschaut, aber das haz auch nichts geholfen.
http://www-1.ibm.com/support/docview.wss?uid=swg21093870

Was kann man da machen?

Schonmal vielen Dank im Voraus.

Gruß Stony

Hallo,

habe es jetzt anders gelöst. Ich gebe dem Open Charset mit....

Open fileName For Input As fileNum Charset = "Windows-1252"

Das funktioniert.

Aber vielen Dank für die Hilfe.

Gruß Stony

Hallo zusammen,

ich habe ein kleines Problem mit einem Agenten.
Und zwar wird in ein Feld ein String aus einer Textdatei geschrieben.

Wenn ich den Agenten lokal laufen lasse, funktioniert auch alles wunderbar. Sobald der Agent vom Server ausgeführt wird, werden keine Sonderzeichen mehr in das Feld geschrieben.

Beispiel:

Lokal: Weiß = Weiß
Server: Weiß = Wei[]

doc.ImportString = importString

Kann mir hier jemand weiter helfen?
Schonmal vielen Dank im Voraus.

Gruß Stony

Hallo Dirk,

habe das ganze jetzt mit String-Arrays gemacht. Jetzt gehts!!! :lol:

Verstehe ich zwar nicht, aber egal.

Danke für die Hilfe.

Gruß Stony