Hallo Jochen (jkunze),
ich habe für "schöne" Links in Outlook (Beschriftung <> Link) eine Lösung mit MimeEntity gebastelt, die beim Kunden einige Jahre gelaufen ist. Vielleicht hilft das weiter.
Gruß Jochen
--
Zur Vereinfachung habe ich ein paar Zeilen weggelassen und nur das notwendige zusammengesucht.
(den gezeigten Code habe ich so nicht übersetzt, er könnte noch Fehler enthalten - auch weil ich es noch etwas anders eingesetzt habe)
Das Mail enthält jetzt nur den Link, kann aber natürlich mit ein wenig Text erweitert werden.
Das MimeEntity wird von Notes sofort und automatisch wieder in RichText umgewandelt (das könnte man mit einer Option auch ausschalten - wenn Notes es umwandelt, klappt es aber besser).
-------
Dim body As NotesMIMEEntity
Dim stream As NotesStream
Dim srvNam As NotesName
dim Recipients as Variant
'--------------------------
' DB = current Database
Set srvNam = New NotesName(db.Server)
Set refDoc = db.Createdocument()
refDoc.Form = "Memo"
refDoc.subJect = "Mail with HTML Links"
Recipients = ...... ' Mail Empfänger
' prepare
Set body = refDoc.CreateMIMEEntity("Body")
Set stream = session.Createstream()
' Build Page
Call stream.writetext(|<HTML>|)
Call stream.writetext(|<body>|)
' Build Link
txt = |<a href="http://| & srvNam.Common & |.de.XXX.net/|
txt = txt & Replace(db.Filepath, |\|, "/")
txt = txt & |/comment?OpenForm&Lang=EN">| ' link
txt = txt & "Noticed with comments" & |</a>| ' Beschriftung
txt = txt & | |
txt = txt & ||
Call stream.writetext(txt)
' close Page
Call stream.writetext(|</body>|)
Call stream.writetext(|</html>|)
' write stream & save
Call body.SetContentFromText(stream, "text/HTML;charset=UTF-8", ENC_IDENTITY_7BIT)
Call refDoc.Send(false, Recipients)
Thema: Link Hotspot per Script erstellen? (Gelesen 2731 mal)