Domino 9 und frühere Versionen > ND6: Entwicklung
URL-Link per Script erstellen?
(1/1)
PeterD2:
Gibt es irgendwie eine Möglichkeit per Notes Script einen URL-Link in ein Richtext-Feld einzufügen, ähnlich der Menüfunktion "Erstellen\Hotspot\Verknüpfungs Hotspot" mit "Typ=URL"?
Mit der Funktion "AppendDocLink" der RichTextItem Klasse komme ich nicht weiter, da hier wohl nur auf Notes Dokumente verlinkt werden kann, nicht aber auf Internetseiten. Ich möchte gerne von einem Agenten Mails generieren lassen, die per HTML-Link auf bestimmte Internetseiten verweisen.
Danke im Voraus
Peter
koehlerbv:
Du musst nichts anderes machen als eine URL in gültiger Syntax an ein RichTextItem anzuhängen.
Beispiel:
--- Code: ---Dim session As New NotesSession
Dim dbCurrent As NotesDatabase
Dim doc As NotesDocument
Dim item As NotesItem
Dim rtItem As NotesRichtextItem
Dim szMsg As String
Set dbCurrent = session.CurrentDatabase
Set doc = New NotesDocument (dbCurrent)
doc.Subject = "Doc from " & Cstr (Now)
doc.Form = "RTFForm"
Set rtitem = New NotesRichTextItem (doc, "Body")
szMsg = "http://www.atnotes.de"
Call rtItem.AppendText (szMsg)
Call rtItem.AddNewLine (1)
Call doc.Save (True, False, True)
--- Ende Code ---
HTH,
Bernhard
Axel Janssen temp:
Html ist eine textbasierte Dokumentbeschreibungssprache.
Versuch das mal
--- Code: ---Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As New NotesDocument(db)
Call doc.AppendItemValue("From", session.UserName)
Call doc.AppendItemValue("Subject", _
"Meeting time changed")
Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle
Dim richText As New NotesRichTextItem(doc, "Body")
richStyle.PassThruHTML = True
Call richText.AppendStyle(richStyle)
Call richText.AppendText(|<a href="http://www.javablogs.com/Welcome.action">true men watch here</B>|)
Call doc.Save(True, False)
End Sub
--- Ende Code ---
PeterD2:
Die erste vorgeschlagene Lösung funktioniert zwar, aber ich möchte ungerne den Link (mit seinen `zig CGI Parametern) direkt in der Mail anzeigen, sondern - wie sich das für einen Link gehört - hinter einem Text verstecken. So etwa:"Für weitere Informationen klicken Sie bitte hier".
Die zweite Variante sieht zwar vielversprechender aus, tut aber leider zumindest bei mir nicht, da hier der ganze HTML-Quelltext einfach in der Mail erscheint (in Outlook, welches grundsätzlich ja HTML Mails beherrscht) anstatt in einen HTML-Link übersetzt zu werden.
Danke trotzdem
Peter
PeterD2:
Bin jetzt in der IBM Developer Domain im Forum fündig geworden.
Der Trick ist wohl das "CreateRichTextStyle" und die Aktivierung von PassThruHTML in Lotusscript.
--- Code: ---
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As New NotesDocument(db)
Call doc.AppendItemValue("From", session.UserName)
Call doc.AppendItemValue("Subject", "Meeting time changed")
Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle
Dim richText As New NotesRichTextItem(doc, "Body")
richStyle.PassThruHTML = True
Call richText.AppendStyle(richStyle)
Call richText.AppendText("<B>Click the link below</B>")
Call richText.AppendText("<a href=http://www.ibm.com>IBM</a>")
Call doc.Save(True, False)
--- Ende Code ---
Danke noch mal für Eure Antworten
Peter
Navigation
[0] Themen-Index
Zur normalen Ansicht wechseln