Beiträge von wonderfulflower

habe es selber hingebracht mit dem Umlagern, vielen Dank für deinen Hinweis

das ist noch der obere Teil vom Quellcode - die ganzen Deklarationen

Sub Initialize		
	'On Error GoTo ErrHdlr
	Dim session As New NotesSession	
	Dim heute As Variant
	Dim maildb As NotesDatabase
	Dim maildoc As NotesDocument
	Set maildb = session.CurrentDatabase
	Dim view As NotesView
	'Set maildoc = New NotesDocument(maildb)
	Dim tmpdoc As NotesDocument
	Dim liste (1 To 50) As String
	Dim aktuellelistearray(1 To 50) As String
	Dim aktuelleliste As String
	Dim rti As New NotesRichTextItem(maildoc, "Body")
	Dim rti2 As New NotesRichTextItem(maildoc, "Body2")
	heute = Today	
	Call maildoc.Replaceitemvalue("Form", "Memo")
	Set view = maildb.GetView("Jahresuebersicht")
	Set tmpdoc = view.Getfirstdocument()


	'--------Solange Einträge in der View vorhanden sind------
	Do Until tmpdoc Is Nothing


    'Rest siehe oben

Was muss ich alles umlagern in die Schleife?

Ich habe folgendes Problem:

Wenn ich den Agent mit dem unten stehenden Quellcode ausführe (ist nur der wichtigste Teil vom Quellcode) dann kriege ich 4 Emails (4 Einträge in der View) was ja korrekt ist. Allerdings kriege ich die erste Email vollkommen normal, in der 2. Email steht dann oben der Inhalt der ersten Email noch mit drin, bei der 3. stehen die ersten beiden mit drin und bei der 4. die ersten 3.

Ich vermute mal dass irgendwo meine Logik mit der Schleife nicht stimmt aber ich komme derzeit einfach nicht drauf.

Hier noch der wichtigste Quellcodeteil:

Dim heute As Variant


Sub Initialize		
 	'Initialisierungen sind alle vorhanden...

	'--------Solange Einträge in der View vorhanden sind------
	Do Until tmpdoc Is Nothing

		aktuelleliste = tmpdoc.Columnvalues(14)
		liste(9) = aktuelleliste

		aktuelleliste = tmpdoc.ColumnValues(16)
		liste(13) = aktuelleliste


		'Das Or 1=1 ist nur zum test, da es ja immer ausgeführt wird
                      If (liste(13) = heute Or 1=1)  Then

                         ' Teil der Daten für die Email aus der View rausziehen
			'------Anrede--------------------------
			aktuelleliste = tmpdoc.Columnvalues(15)
			liste(1) = aktuelleliste
			'------Name----------------------------------
			aktuelleliste = tmpdoc.Columnvalues(1)
			liste(2) = aktuelleliste



           '-----------irgendeinen Emailtext zusammenbauen----------------
           '----irgendeine Signatur zusammenbauen-----------





		sendto = "Empfängeremailadresse"


		Call maildoc.replaceItemValue("sendto", sendto)

			maildoc.subject = "Erinnerung - fehlende Zwischenevalation 5_4 "				



		Call maildoc.save(True, False, True)
		Call maildoc.send(true)

	End If		
		Set tmpdoc = view.Getnextdocument(tmpdoc)		
     Loop	
	'Ende der Schleife	


End Sub

ich versende in der einen Link auf eine Bewertungsmaske mit, die vom Benuter des Lotusclient geöffnet werden kann/muss. Die Email wird automatisch per Agent vom Server aus gesendet.

was heißt "Wenn ich das Frontend benutzen kann" wo müsste ich das hinschreiben?

ich habe es probiert wie oben geschrieben wurde, aber bei mir wird das Bild nur so angezeigt:

[Blockierte Grafik: http://i989.photobucket.com/albums/af20/sannisbeauty/bild.jpg]

Was fehlt noch?

wie mache ich das?

wie mache ich das mit dem RichText Feld dass er mir das Bild azeigt? Bisher hab ich nur so ein kleines Icon bekommen, aber ich mag ja explzit das Bild angezeigt bekokmmen

Ich habe es versucht mit: rti2.EmbedObject(EMBED_ATTACHMENT, ...)

:danke:

Vielen Dank, funktioniert bestens

Ich habe (mal wieder) ein Problemchen

Gibt es eine möglichkeit eine Zahl in ein Datum umzuwandeln?

Ich stehe nämlich vor folgendem Problem:
Ich habe einen Datumswert Start und einen Datumswert Ende. Nun habe ich die Dauer als Zahl in Tagen ausgerechnet.

Ich möchte aber (wenn die Dauer > 180 Tage ist) die halbe Dauer wieder auf das Startdatum draufzählen. (Quasi die Hälfte der Vertragsdauer)

Ich habe schon alles mögliche Probiert, aber ich kriege einfach die Dauer nicht auf einen Datumswert draufgezählt und das ganze am Ende als Datum.

Hat jemand eine Idee/Ansatz dafür in Lotus Formelsprache?

Danke :danke:

Hallo,

ich möchte in meine Email ein Bild (in der Signatur) einbinden, die ich mit Hilfe eines Agenten dynamisch erstelle.

Meine Frage: Wie kann ich ein Bild (am Besten in ein RichTextFeld) einfügen?

Grüße :danke:

Also anbei noch mein Quellcode:

Ich möchte quasi den Text der hier mit AppendText hinzugefügt wurde und auch noch weitere Felder aus einer Form oder einer View hinzufügen. (z. B. einen Namen, Anrede, damit die Emails die gesendet werden individuell sind)

Ja, die Daten sollen dynamisch in den Body der Mail reingeschrieben werden.

Option Public
Option Declare

Sub Initialize

Dim sendto As String
Dim memo As NotesDocument
Dim db As NotesDatabase
Dim s As New NotesSession
Dim view As NotesView
Dim nav As NotesViewNavigator
Dim entry As NotesViewEntry
Dim entryvalue As Variant
Dim value As String
Dim body As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim col As Integer
Dim richStyle As NotesRichTextStyle
Dim form As NotesForm
'-----------------------------------
Dim mailText As String
Dim subject As String

Set db = s.CurrentDatabase

' Memo and Body
Set memo = db.CreateDocument()
memo.Form = "memo"
sendto = "...emailadresse..."
'später: sendto = Join(db.GetView("($Persons-Setup)").getFirstDocument().dco_ContractorEmail,";")
Call memo.replaceItemValue("sendto", sendto)
Call memo.replaceItemValue("subject", "Erinnerung - fällige Evaluation")
Set body = memo.CreateRichTextItem("Body")
Set richStyle = s.CreateRichTextStyle
richStyle.Bold = True
'Fett: Call body.AppendStyle(richStyle)
Call body.AppendText("Sehr geehrte Damen und Herren,")
Call body.AddNewline(2)
Call body.AppendText("Evaluation erforderlich für: ")
Call body.AppendDocLink(memo, "Link")

Set view = db.getview("va_ContractsNextEnd")

Call body.Appendtext(mailText)
'Call docMail.send(False)
' Dokument speichern

memo.Form = "Gesendet"

Call memo.save(True, False, True)

Call memo.Send(False)

End Sub

Hallo, ich soll einen Lotus Skript Agenten schreiben, der mir eine Email verschickt (das klappt wunderbar).

Aber was nicht funktioniert ist, dass ich die Email befülle. Ich muss einige Daten mitschicken, die entweder aus einer Form oder einer View kommen. Hat jemand hierfür ein Beispiel? (oder gibt es elegantere Methoden?)

:danke: