Tag: lotus notes

NotesUIWorkspace.EditDocument有时不返回任何内容

我正在写一个VBA子，允许用户根据Excel电子表格中的内容发送一个Lotus Notes电子邮件。 下面的子有时运行没有问题，但有时在接近结束时失败 Set uiDoc = uiws.EditDocument(True, oDoc) Lotus Notes应用程序UI显然打开了一个新的邮件进行编辑，但variablesuiDoc没有收到一个NotesUIDocument实例。 这个问题对我来说似乎是随机的，我现在通过几次手动重新运行子程序来解决这个问题，直到它结束。 我怎样才能确保uiDoc获得实例？ Public Sub SendEmail( _ Ws As Worksheet, _ Optional Commit As Boolean = False, _ Optional Delim As String = "<Delim>") ' Notes session Dim oSess As Object Set oSess = CreateObject("Notes.NotesSession") ' Notes database Dim oDB As Object Set oDB = oSess.GETDATABASE("", […]

Excel VBA：使用IBM Notes发送HTML电子邮件

我试图触发一个macros，当用户更新列N中的单元格时，它将发送一封电子邮件。 电子邮件必须使用IBM注释发送。 下面的代码，发送电子邮件罚款。 但是，我不熟悉IBM笔记，我想尝试和我的电子邮件格式为HTML。 目前，电子邮件正在发送纯文本。 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("M:M")) Is Nothing Then If Target.Cells.Count < 3 Then 'Set up the objects required for Automation into lotus notes Dim Maildb As Object 'The mail database Dim UserName As String 'The current users notes name Dim MailDbName As String 'THe current […]

VBA循环使用IBM Notes发送带有附件的电子邮件？

我有这样的工作簿： Column G Column W File1.xls recipient1@email.com File2.xls recipient2@email.com 我想用列表中的每个收件人在我列表中的W列发送一封电子邮件。 同样的电子邮件可以发送给每个收件人，但电子邮件需要分别发送给每个收件人。 另外，我想将每个相应的文件附加到每个电子邮件。 即发送给收件人1的电子邮件将附有文件1等。 这是我的代码： Sub email() 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 'Working in Office 2000-2016 'Variables Dim cell As Range Application.ScreenUpdating = False Dim Maildb As Object Dim MailDoc As Object Dim Body As Object Dim Session As Object 'Start a session of Lotus Notes Set […]

通过VBA打开位于Lotus Notes数据库中的Excel文件附件

我试图自动化在莲花笔记中位于作业数据库中的Excel文件的打开。 我已经能够使用url在莲花笔记中打开一个窗口，但是我无法自动打开位于那里的文件，因为它是一个附件。 这是我用来打开链接的vba代码： Application.ActiveWorkbook.FollowHyperlink Address:="Notes://URL", NewWindow:=True 什么是正确的方法来做到这一点？

.FINDSTRING Lotus Notes VBA

所以我使用Excel为我做了一些例程，并发送一封电子邮件，每一个哀悼日常从SAP提取的数据。 这些数据包括应对2个图像和图表。 问题是，当我没有logging笔记，macros运行顺利，但是当它已经打开，“.FINDSTRING”找不到我已经插入特定的文本来粘贴图像。 我不知道为什么，我猜我需要一个命令来select莲花，并把它变为活动，所以findtring可以工作，但我不知道该怎么办。 这是一个编码： '________________________________________________________________________ Windows(FileHoje).Activate Columns("A:N").Select Range("A2").Activate Selection.ColumnWidth = 10 Columns("G:G").Select Selection.ColumnWidth = 2.14 Columns("C:C").EntireColumn.AutoFit Columns("K:K").EntireColumn.AutoFit '________________________________________________________________________ Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture Set NUIdoc = NUIWorkSpace.EDITDocument(True, NDoc) With NUIdoc .GotoField ("Body") .FINDSTRING "**1**" Windows(wb).Activate Sheets("Indicadores").Select ' ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Semana").CurrentPage = Range("AV23").Value ActiveSheet.Shapes("Grupo 3").Select ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlMaximized Selection.Copy .Paste Application.CutCopyMode = False '________________________________________________________________________ .GotoField […]

如何使用VBA导出不在主体中的Notes附件

我希望你们中的一些人可以帮助使用这些文本中的代码，我可以导出Lotus Notes邮件正文中的附件，但是我也需要导出它们，当它们不在正文中时（比如“普通”附件）。 Set LNItem = doc.GETFIRSTITEM("Body") If doc.HasEmbedded Then int_Anhang = 1 x = 0 Worksheets("Mails").Cells(j, 3).Value = 0 On Error Resume Next For Each LNAttachment In LNItem.EmbeddedObjects y = 0 AttPath = ActiveWorkbook.path & "1-Weiterleitung_Mail-Anhang" & y & "-" + LNAttachment.Name While Dir(AttPath) <> "" y = y + 1 AttPath = ActiveWorkbook.path & […]

Lotus Notes：如何在.xls而不是.csv中导出视图（列值）

我想从.xls格式的列值中导出CSVview，而不是.csv格式。 现在它以.csv格式导出。 我尝试将文件名replace为.xls，但该文件无法打开MS Excel和Open Office。 能否请你帮忙？ 这里是代码： Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim CSVview As NotesView Dim lookupview As NotesView Dim exportmaildoc As NotesDocument Dim pathdoc As NotesDocument Dim object As NotesEmbeddedObject Dim exporttoid As Variant Dim datafileName As String Dim filepath As String Dim filenames As Variant Set […]

如何在Xpages中创build像Excel一样的表格

我有一个与数据的Excel文件，并需要在网上提供这个。 Web版本的Excel文件需要具有以下function 在读取和编辑模式之间切换 所有单元格应该可以同时编辑 内联编辑每个单元格 使用一个button保存所有已更改的单元格。 能够添加和删除行 将值存储在便签文档中 我在扩展库示例数据库中查看了Dojo Grid JSON REST控件，它基本上都是我想要的，但是我对该演示文稿不满意，似乎有点受限，因为稍后我可能需要将其他操作添加到表格单元格。 我正在寻找一个HTML表格版本 我应该使用哪些控件来完成这个？ 以及如何创build一个保存所有单元格/行的提交button？ 感谢您的帮助 托马斯