Domino 9 und frühere Versionen > ND6: Entwicklung
Export aus Excel, Schriftart im Mail-Body
koehlerbv:
Ja, Biß hat er wirklich, der Jan. Hut ab! Schade, dass seine Energie so vergeudet wird. Die Idee mit dem Telefonat ist auch nicht schlecht - aber den Chef wird das nicht freuen ;D
Bernhard
Ralf_M_Petter:
Das Feld heisst "CopyTo".
Nochmal ich glaube das der Weg über OLE und das Frontend ein schlechter ist, da nicht sehr stabil. Was ist wenn z.B. jemand im Notes Client einen Modalen Dialog offen hat usw. Dann geht deine Routine nicht.
Leider verursachen genau solche zusammengewürfelten Programme aus Google Code Schnippseln den schlechten Ruf von Lotus Notes bei Anwendern. Es sieht dann aus, wie wenn nichts gehen würde und das Notes ein schlechtes System ist.
Grüße
Ralf
kaosqlco:
Hallo,
ich möchte diesen Beitrag nicht unbeendet lassen.
Deshalb hier meine neuesten Erkenntnisse:
In meinem Frontend heißt das Feld 'EnterCopyTo' (wozu gibt es Schleifen, mit denen man Objekte abfragen kann). ;)
Wegen des Arguments von Ralf, dass meine Routine nicht funktioniert, wenn ein modaler Dialog offen ist, und natürlich auch den Hinweisen der anderen Spezialisten habe ich mich wieder dem Backend gewidmet.
Mit folgendem Code bekomme ich eine HTML-Tabelle in meine Mail geschrieben und das Ganze als Entwurf gespeichert:
--- Code: --- Dim lnSession As Object
Dim lnDatabase As Object
Dim lnBody As Object
Dim lnStream As Object
Dim lnDocument As Object
Set lnSession = CreateObject("Notes.Notessession")
Set lnDatabase = lnSession.CurrentDatabase
' Do not convert MIME to rich text
lnSession.ConvertMime = False
Set lnStream = lnSession.CreateStream
'Begin creating the lnDocument doc to send
Set lnDocument = lnDatabase.CreateDocument
lnDocument.Form = "memo"
Set lnBody = lnDocument.CreateMIMEEntity
'Basic profile of email
lnDocument.Subject = strSubject
lnDocument.SendTo = strSendTo
' Open the HTML (Title doesn't matter since it doesn't appear anywhere)
Call lnStream.WriteText("<html><head><title>HTML email via MIME</title>")
Call lnStream.WriteText("</head><lnBody>")
Call lnStream.WriteText("</lnBody></html>")
Call lnStream.WriteText("<TABLE border=1 cellpadding=1 cellspacing=0><TR><TD width=5% align='center'>Testtabelle, Spalte1</TD>" & _
"<TD width=35% align='center'>Testtabelle, Spalte2</TD></TR></TABLE>")
' Ensure the MIME content will be recognized as HTML
' (Must be after the lnStream is written)
Call lnBody.SetContentFromText(lnStream, "text/html;charset=iso-8859-1", ENC_NONE)
' Restore conversion
lnSession.ConvertMime = True
' Speichern
Call lnDocument.Save(True, False)
--- Ende Code ---
Die ursprüngliche - von mir angepaßte - Routine habe ich bei 'searchdomino.com' (über Google-Suche) gefunden.
Ich empfinde meine Versuche, mich auf diese Weise mit Notes anzufreunden, übrigens nicht als vergeudete Energie und verbringe nicht - auch wenn es so aussehen mag - den ganzen Tag damit. - Als normaler Notes-User komme ich wegen eingeschränkter Rechte nicht sehr weit.
Das wird sich aber in Kürze hoffentlich ändern, denn ich bekomme demnächst Zugang zum Designer.
Gruß Jan
Navigation
[0] Themen-Index
[*] Vorherige Sete
Zur normalen Ansicht wechseln