Lotus Notes / Domino Sonstiges > Tipps und Tricks

Formel für Mail mit Vorlage

<< < (3/4) > >>

Rob Green:
na ja, das was in dem Button Script passiert, ist ja nur die Vorlage in den Editmode aufzurufen...doch dann geht ja erst das eigentliche Script los, das dann aus einer Vorlage eine Kopie macht. Und das wiederum befindet mE in den Script Libraries des Mailfiles.

Nur, normalerweise kopieren Developer nicht das Mailfile, um eine eigene Vorlagefunktion zu stricken (wenn es sich nicht um ein Mailfile selbst handelt), sondern verwenden was eigenes, schlankeres.

So klarer irgendwie?

wflamme:
Ahso...
ich bin jetzt (auch aufgrund Detis Beschreibung) davon ausgegangen, daß er das in die MailDB integrieren will und nicht in eine separate Anwendung.

@deti, stimmt das?

Deti:
Hallo Wolfgang, Hallo Rob


--- Zitat von: wflamme am 24.11.02 - 07:41:21 ---ich bin jetzt (auch aufgrund Detis Beschreibung) davon ausgegangen, daß er das in die MailDB integrieren will und nicht in eine separate Anwendung.
@deti, stimmt das?

--- Ende Zitat ---

ääähhh.....  :-)
nee, das stimmt schon, es geht nicht um eine separate Anwendung.
Ich habe übrigens mal Dein Script probiert, aber es funktioniert nicht so recht. Bei folgender Zeile gibt's 'ne Fehlermeldung:

Dim strWantedTemplate={Test}

Das wird nicht akzeptiert. Weißt du, was daran falsch sein könnte ?

Auch das Script von Rob greene habe ich getestet, aber auch hier gibt es Fehlermeldungen. Und zwar wird die Zeile

var_unid = Feld_Mit_DocUNID_Der_Vorlage(0)

nicht akzeptiert. Ich nehme an, für "Feld_Mit_DocUNID_Der_Vorlage(0)" soll ich etwas anderes eingeben, aber was ?   ::)

und in der Zeile

Set ProfileDocument = DB.GetProfileDocument( "PROFIL_XYZ")

weiß ich auch nicht, was ich für "PROFIL_XYZ" eingeben muss. Kommt dort der Name der gewünschten Vorlage, in meinem Fall also "test" hinein ?

Sorry. dass ich mich so blöd anstelle. Eigentlich bin ich recht fit im Programmieren (auch wenn's hier nicht so aussieht  ;D , d.h., in VBA, Perl oder PHP hätte ich wohl weniger Probleme. Ich wundere mich selbst ein bißchen, dass ich mich hier so schwer tue...)

Wäre schön, wenn Ihr noch nicht aufgeben würdet  und ich es mit eurer Hilfe vielleicht doch noch schaffe. Gibt es übrigens gute deutsche Literatur zum Thema Lotusscript u./o. Formelsprache ?

Schöne Grüße
Deti

wflamme:

--- Zitat von: Deti am 25.11.02 - 18:48:56 ---Dim strWantedTemplate={Test}

Das wird nicht akzeptiert. Weißt du, was daran falsch sein könnte ?


--- Ende Zitat ---


Ja. Alles. Weil ich so himmelschreiend blöd bin :-X

Dim strWantedTemplate As String
strWantedTemplate$={Test}

(Ich wollte es zuerst als Konstante deklarieren...)

Deti:
Hallo Wolfgang, Hallo Rob,

ich hab's geschafft !   :D

Mit folgendem Script wird genau das gemacht, was ich wollte:
************************************
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim strWantedTemplate As String
   Dim uiws As New notesuiworkspace
   Dim noteUIEditDocument As notesuidocument
   strWantedTemplate$={Standard}
   Set db = session.CurrentDatabase
   Set view = db.GetView({Vorlage})
   Set noteCursorDoc=view.GetFirstDocument
   Do While Not noteCursorDoc Is Nothing
'Kriterien für richtige Vorlage
if noteCursorDoc.Subject(0)=strWantedTemplate$ Or noteCursorDoc.MailStationeryName(0)=strWantedTemplate$ Then
'Kriterien für richtige Vorlage
Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
Exit Sub
Else
Set noteCursorDoc=view.GetNextDocument(noteCursorDoc)
End If      
Loop
Msgbox {Vorlage "} & strWantedTemplate$ & {" nicht gefunden!}
**********************************

Das Script habe ich dann mit dem Befehl, den Rob weiter oben genannt hatte, einem Smarticon zugeordnet.

Vielen Dank nochmal für Eure Hilfe, wirklich gut, dieses Forum  :)
Was ich vom LotusNotes leider nicht immer sagen kann....
Bestimmt werde ich nicht zum letzten Mal hier um Hilfe gebettelt haben  ;)

Schöne Grüße
Deti

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete