Question

我的客户对于可以在9.0.1 IBM Mail Template中定义的Rich Text签名的对齐感到恼火。

在这个用例中，我有一个双列的单行表，第一个单元格包含一个图像（徽标），第二个单元格包含通常的签名信息。

表格粘贴在备忘录表格中，缩进约1/2英寸。

我尝试修改表格边距，但没有香蕉，并尝试在“首选项”窗格中显示标尺也不起作用。

使用HTML解决方案的Karl-Henry Martinsson reports没有创建缩进（我可以确认），但是嵌入的图像显然不会从href到外部源。

我知道Crossware会解决所有这些问题，但客户对第三方安装不感兴趣。

有什么建议吗？

Answer 1

我找到了上面提到的问题的解决方法。

问题在于，配置文件文档（CalendarProfile）上的源richtext字段Signature_Rich本身就是表的一部分，因此继承了用户无法修改的一些填充和边距信息。

我通过创建另一个配置文件表单来解决这个问题，我称之为“CalendarProfile1”，它只是一个带有名为Signature_Rich的richtext字段的表单。

然后我攻击了CoreEmailClasses_de-DE（你的本地化显然会有所不同），Sub InsertSignature：

        script  = |
                        Const msgTxt = "Diese Datei enthält einen oder mehrere Kontakte. Doppelklicken Sie in Notes auf den Anhang, " &_
                        "um die Daten zur Anwendung 'Kontakte' hinzuzufügen. In anderen Mail-Systemen müssen Sie die Datei möglicherweise "&_  
                        "auf Ihrem Desktop speichern und anschließend in die Anwendung 'Kontakte' importieren."

                        Dim s As New NotesSession
                        Dim db As NotesDatabase
                        Dim profileDoc As NotesDocument
                        Dim wksp As New NotesUIWorkspace
                        Dim uiDoc As NotesUIDocument

                        Set db = s.CurrentDatabase
                        Set profileDoc = db.GetProfileDocument("CalendarProfile1")
                        Set uiDoc = wksp.CurrentDocument
                        If profileDoc.HasItem("Signature_Rich") Then
                            If uidoc.Document.HasItem("$VAttach") Then  
                                Call uidoc.FieldSetText("body", msgTxt + Chr(10) + Chr(10))         
                            End If  
                            Call uiDoc.ImportItem(profileDoc, "Signature_Rich") 
                        End If  
                    |

请注意IBM如何通过执行定义为文本的脚本并使用未记录的函数NotesUIDocument.ImportField解决“如何将富文本字段附加到尚未保存的UID文档中的另一个”的问题。

这是一个很大的黑客，而且很难看，但对任何有权“快速而肮脏”回复的人来说可能会有用。

注意Maifile RichText签名缩进

1 个答案: