Beiträge von Busdriver

Busdriver · 31. Oktober 2007

Hallo,

wir haben ein komisches Phaenomen:

Wenn ich eine Einladung an eine Gruppe schicken will (über 200 Mitglieder) bricht Notes aufgrund der 32K Konvention für das Feld ab und sendet keine Einladung So ein Mist...

Gibts dafür einen Workaround ? (Ausser die Gruppe zu teilen)

Das ganze passiert unter 6.5.5....

HILFE !

Gruß,

Busdriver

Busdriver · 23. Juli 2007

Das allerdings ist ärgerlich...

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 ??

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

Busdriver · 23. Juli 2007

Hmmm... suche auch immernoch eine Antwort auf diese Frage!

Irgendwie scheinen Kalender ohne rote Farbe nicht mehr Vorstandstauglich zu sein... Daher ist dieses Problem leider momentan bei mir ne A-Prio

Ist es möglich dies anzupassen ohne die Schablone ändern zu müssen ??

Busdriver · 8. September 2006

Okay, jetzt habe ich's

Ich bin mal wieder dem englischem verfallen und habe statt AKTIV_DOC, ACTIV DOC geschrieben

Manchmal muss man einfach mit jemanden reden Ich habe schon seit Stunden gesucht.

Trotzdem Danke,

Gruß,

Bussy

Busdriver · 8. September 2006

In den markierten 3 Zeilen :

Code

Call rtitem.AppendText("Beginn am : " & activ_doc.StartDateTime(0))
		Call rtitem.AppendText("Endet am : " & activ_doc.EndDateTime(0))
		Call rtitem.AppendText("Thema : " & activ_doc.TOPIC(0))

Busdriver · 8. September 2006

Oh, sorry, vergessen

"Variant Does Not Contain Object"

Busdriver · 8. September 2006

Huhu, ich mal wieder

Ich sitze mal wieder an einer Stelle in meiner !"Königsdisziplin" LotusScript fest.

Ich möchte in einer Maildatenbank ein Dokument per Email weiterleiten. In der weitergeleiteten Mail sollen im Body einige Daten aus der Originalmail wiedergegeben werden. Leider hänge ich dort irgendwo im Code fest.
Es handelt sich um Kalendereinträge (Einladungen) bei welchen eine Information übergeben werden sollen. Ich will das Subject, StartDateTime, EndDateTime und Body in der Mail anzeigen lassen, komme aber mit der blöden AppendText methode nicht klar.

Wo ist der Fehler ???

Code

Sub Senden
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim doc As NotesDocument
	Dim aktiv_doc As NotesDocument
	Dim dc As NotesDocumentCollection
	Dim doc_Mail As NotesDocument
	Dim rtitem As NotesRichTextItem
	Dim ndt As New NotesDateTime("30.12.1899")
	Set db = session.CurrentDatabase

' Dokumente suchen, bei denen Verteilt = ""
	Set view = db.GetView("Notice")
	Set doc = view.GetFirstDocument

	While Not doc Is Nothing
		Set doc_Mail = New NotesDocument(db)
		Set aktiv_doc = doc
		Set doc = view.GetNextDocument(doc)
' Mail erstellen
		doc_Mail.SendTo = "me@geilermacker.de"
		doc_Mail.Subject = "Neuer Termin : " & aktiv_doc.Subject(0)
		Set rtitem = doc_Mail.CreateRichTextItem("Body")
		Call rtitem.AppendText("Neuer erfasster Termin für Sie  :   ")

'HIER DIE FEHLERSTELLE 


		Call rtitem.AppendText("Beginn am : " & activ_doc.StartDateTime(0))
		Call rtitem.AppendText("Endet am : " & activ_doc.EndDateTime(0))
		Call rtitem.AppendText("Thema : " & activ_doc.TOPIC(0))


'HIER GEHTS WIEDER	


	
		Call rtitem.AppendDoclink(aktiv_doc, "Link")
		doc_Mail.Principal = "Terminator V1"
		doc_Mail.Send(False)

' Feld Verteilt füllen
		'aktiv_doc.Gesendet = "1"
	'	aktiv_doc.Save True, True, True

' nächstes Dokument wählen

	Wend
End Sub

Alles anzeigen

Danke im Vorraus für Eure Hilfe.

Gruß,

Bussy

Busdriver · 31. August 2006

Zitat

Wenn du einen String mit einem Boolean vergleichst ist da logischerweise ein Type Mismatch drin

Das finde ich schon logisch, ich frage mich nur, warum Notes 5 da so unempfindlich war, denn es geht dort.

Naja, werd ich' s halt raus nehmen. Hat mich nur sehr gewundert.

Danke für die schnellen Antworten

Gruß,
Bussy

Busdriver · 31. August 2006

Hallo Freunde der Sonne,

ich habeein Problem mit einem ImportScript, welches ich schon ewig unter Notes 5 nutze und es immer so gelaufen ist, wie ich wollte:

Code

If Not (variable = "False" Or variable = False Or ADEPP = "" Or variable = "") Then
			variable2 = Ccur (variable)
			doc.DatDepP = variable2
			DeckB1 = DeckB1 + variable2
		End If

Dies ist natürlich nur ein Teil, aber beim Beginn der If Schleife bekomme ich immer ein TypeMismatch

Was bitte in der Not() versteht Notes 6.5 nicht mehr, ging aber unter 5 ? Variable ist nen Sting und wird aus einer DBase Datei gefüllt. Alles ist bestens, wenn das Script an die Schleife kommt HILFE !!

Gruß,

Bussy

Busdriver · 13. September 2005

Hallo,

ich mal wieder .... :strike: :strike:

Es gibt doch in Agenten die Möglichkeit eine Üersichtsmail zu generieren in der alle Mails z.B. einer Ansicht aufgelistet sind incl. Doc-Link.

ICh möchte eine ähnliche Funktion nutzen, muss aber einen variablen Verteiler einsetzen.

Gibt es die möglich keit das in Script oder Formel nachzubauen ? Oder geht das nur als Grundfunktion ?

Gruß,

Bussy

Busdriver · 1. September 2005

Hier meine fertige Lösung, falls mal wieder jemand wie ich so blöd sucht und nichts findet :-)))

Code

Sub Initialize

	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView	
	Dim doc As NotesDocument
	Dim rtitem As NotesRichTextItem
	Dim object As NotesEmbeddedObject

	Set db = session.CurrentDatabase
	Set view = db.GetView("Test")	
	Set doc = view.getFirstDocument

	While Not doc Is Nothing

		Set rtitem = New NotesRichTextItem( doc, "body" )
		Set object = rtitem.EmbedObject _
		( EMBED_ATTACHMENT, "", doc.Pfad(0) & "\" & doc.Dokument(0))

		Call doc.Save( True, True )
		Set doc = view.GetNextDocument(doc)
	Wend

End Sub

Alles anzeigen

Danke nochmal für die schnelle Hilfe !!!

Busdriver · 1. September 2005

WOW ! Das war schnell.

Ja, wie ich jetzt weiter komme is mir klar.

Vielen Dank !!! :idea: :idea: :idea: :idea:

Busdriver · 1. September 2005

Hallo alle zusammen,

ich habe mal wieder ein Problem ...

Ich möchte einen Agenten dazu bringen an Dokumente einer Ansicht einen Anhang zu paken.
Der Name des Anhanges und der Pfad stehe in den Felder Pfad und Dokument.
Der Agent soll alle Dokumente einer Ansicht abarbeiten.

Geht das überhaupt ? Und wenn ja, wo muss ich suchen ? Habe schon ein wenig rumprobiert, komme aber nicht wirklich weiter, denn in der Hilfe finde ich ständig nur was zum detachen aber kaum was zum anhängen

Kann mir jemand einen Tip geben wie sowas geht ?

Vielen lieben Dank ,

Bussy

Busdriver · 1. August 2005

Okay, Okay,

streicht meinen letzten Eintrag. Ich glaub ich habs doch gefunden

Busdriver · 1. August 2005

Okay, auch auf die Gefahr hin das ich mich als Lotus-Script-DAU oute,

Die Hilfe (R5) zeigt mir beim Suchbegriff "AppendToRTItem" genau gar nichts

Wo kann ich zu dieser Methode etwas nachschlagen, wie ist sie aufgebaut ?

habt Ihr vielleicht noch ein paar mehr Infos ?

Busdriver · 1. August 2005

huhu ich mal wieder

Ich kapier mal wieder gar nichts, ich habe einen Agenten, der aus ein em Dokument eine Mail erstellt.

z.Bsp. :

Code

doc_Mail.SendTo = aktiv_doc.Verteiler
		doc_Mail.Subject = aktiv_doc.Sortierung(0) & " " & aktiv_doc.Doc_Bezeichnung(0)
		Set rtitem = doc_Mail.CreateRichTextItem("Body")
		Call rtitem.AppendText("Controling Informationen   ")
		Call rtitem.AppendDoclink(aktiv_doc, "Link")
		doc_Mail.Principal = "Controlling"
		doc_Mail.Send(False)

Jetzt ist in dem Dokument im rtf noch ein Attachment. Wie bringe ich den Agenten dazu den Anhang mit zu schicken ? Es gibt wohl eine klasse dazu, aber die kapier ich nun wieder gar nicht.

Kann mir jemand auf die Sprünge helfen und sagen wo ich suchen muss ?

Danke im Vorraus.

Gruß,
Bussy :-?

Busdriver · 21. Juli 2005

Also das mit dem Platzsparer wäre eine Idee.

Werde mich mal damit beschäftigen.

Aber wegen der neuen Platte beim Hoster könnte es Probleme werden. DER Host ist für ca. 500 Unternehmen COM Server. Also ist man dort sehr auf Speichermanagement bedacht

Danke aber nochmal für den Tip !

Busdriver · 20. Juli 2005

hehe

Das wäre ja viel zu einfach

Nein, eine Sache habe ich vielleicht vergessen zu erwähnen :

Die ganz Sache muss (min. 1 Jahr noch) für 4er Clients funktionsfähig sein. Server etc. sind 5er und 6er und in ca. einem Jahr wird alles 6 sein, aber bis dahin...

Das System ist sehr geschlossen xml und webserver sind nicht möglich.

Beiträge von Busdriver

Besprechung -> Einladung -> Zu große Gruppen ?

Hilfe: RTitem zickt...

Hilfe: RTitem zickt...

Hilfe: RTitem zickt...

Notes 6 ungelesen Dokumente im Kalender

Append 2 RTItem

Append 2 RTItem

Append 2 RTItem

Append 2 RTItem

Fehler eines 5er Scriptes unter Notes 6.5

Fehler eines 5er Scriptes unter Notes 6.5

Übersichtsfunktion in Agenten

Agenten und Attachments

Agenten und Attachments

Agenten und Attachments

Attachment versenden

Attachment versenden

Attachment versenden

Datenaustausch ohne echte Replikation

Datenaustausch ohne echte Replikation