Tag: lotus notes

备注导出数据为excel慢: 如果我通过10个文档循环，并填写Excel文件中的数据，然后有时出口是缓慢的，有时它是快速的。这怎么可能，这是我如何导出数据： Set objExcel = CreateObject("Excel.Application") objExcel.Application.Visible = True Call objExcel.Application.Workbooks.Open(CorDos.CorBestandsnaam) Set xlSheet = objExcel.Application.ActiveWorkbook.Activesheet 然后它填满细胞文件是在另一台服务器上的数据库，这台服务器有时也有一些与I / O问题也可能是问题？

使用VBA通过IBM Notes发送HTML电子邮件？: 我正在使用以下代码通过Excel和IBM Notes使用vba发送HTML电子邮件。这是我的代码： Sub SendEmail() Application.DisplayAlerts = False Application.ScreenUpdating = False Application.CutCopyMode = False 'Define Variables Dim Ref As String Dim TrueRef As String Dim Attachment As String Dim WB3 As Workbook Dim WB4 As Workbook Dim Rng As Range Dim db As Object Dim doc As Object Dim body As Object Dim header As […]

VBA通过附件Lotus Notes 6.5发送电子邮件: 我有很大的问题。我有macros从Excel通过Lotus Notes 6.5发送多个电子邮件我的macros代码是： Public Function SendNotesMail() 'This public sub will send a mail and attachment if neccessary to the recipient including the body text. 'Requires that notes client is installed on the system. 'Set up the objects required for Automation into lotus notes Dim Subject As String Dim Attachment As String Dim Recipient […]

我想在Lotus Notes 9邮件正文中添加一个文件，而不是作为旁边的附件文件: 我自动化服务，我能够使用xls vba代码创build一个邮件，但我的问题是，该文件被附加在邮件正文的外部，而我想有以下情况： Mail Body text… attached file text… End of the mail Body 我使用了下面的代码 Sub Send_Email_via_Lotus_Notes() Dim oSession ' AS NotesSession Dim strServer Dim strUserName Dim strMailDbName Dim oCurrentMailDb ' as NOTESDATABASE Dim oMailDoc ' as NOTESDOCUMENT Dim ortItem ' as NOTESRICHTEXTITEM Dim ortAttachment ' as NOTESRICHTEXTITEM Dim oEmbedObject ' as ???? Dim cstrAttachment Dim […]

VBA Lotus Notes发件人电子邮件地址为CC: 我在excel中创build了一个makro，把所有的TODO发送给负责人。现在我想将发件人地址添加到CC中。我知道如何设置CC，但我不知道如何获得当前的发件人地址。 Set session = CreateObject("Notes.NotesSession") Set db = session.GETDATABASE("", "") Call db.OPENMAIL Set doc = db.CREATEDOCUMENT Call doc.REPLACEITEMVALUE("CopyTo", strEmail) 我认为它应该与笔记会议，但我没有find任何方法。

Lotus Notes中的Symphony对象和Excel应用程序对象帮助文件: Symphony对象和Excel应用程序对象是否具有help.nsf？我想学习和理解通过Lotus脚本导出和导入交响乐和Excel文件，但我很难，因为我找不到任何帮助，甚至在网上有很多的例子，但我想学习它更一步一步地为每个对象的具体行动或方法。我试着做下面的链接的参考部分，我可以看到交响乐对象的所有行动或方法的列表，但我找不到它。 http://www.ibm.com/developerworks/lotus/library/symphony-toolkit/ 如果没有他们的帮助文件，你知道任何网站，真正解释清楚使用这些对象就像是如何帮助工作？最后，必须安装Excel才能使Excel导入正常工作？有没有办法可以testing我的代码没有安装Excel？

在Lotus Notes中发布链接到Excel文档: 我有一个Excel表格，我用它作为邮件自动报告。因为它现在将excel工作簿的实际副本附加到电子邮件中并发送出去。邮件包含几个不同的人，他们每天得到不同的报告。由于一些文件的大小，我开始遇到一个问题，我不能再发送电子邮件了，因为它们太大了，所以我想切换到链接发送文件，而我已经打了壁。我使用Lotus Notes 8.5。 VBA将在一个范围内循环，每个单元格都有一个由“，”分隔的报表列表。它把这个列表作为一个string传递给邮件程序。邮件程序将string转换为数组并将其拆分，然后检查以确保报告是最新的。一封电子邮件最多可以包含10个不同的报告。我已经尝试创build一个HTML MIME邮件来包含链接。这是我现在的代码： Sub Send_HTML_Email(ByRef Name As String, ByRef Address As String, ByRef Reports As String) Const ENC_IDENTITY_8BIT = 1729 'Send Lotus Notes email containing links to files on local computer Dim NSession As Object 'NotesSession Dim NDatabase As Object 'NotesDatabase Dim NStream As […]

从附带的IBM Notes发送电子邮件: 我想用VBA和Lotus Notes发送附件的电子邮件。我设法发送一封电子邮件，但附件从未包含在内。我在这里错过了什么？ Sub Macro1() ActiveWorkbook.Save Dim iMsg As Object Dim iConf As Object Dim strbody As String Dim fromAdr As String Dim subject As String Dim recip As String Dim numSend As Integer Dim Attachment1 As String ' Mail settings Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 ' CDO Source […]

Lotus Notes查看多行数据导出到Excel: 我需要导出一个莲花笔记视图来优秀。问题是，我有两列在视图中显示多个值“新行”作为分隔符。我尝试了内置的导出function以及一个格式很less的新莲花脚本导出function。在这两种情况下，不能使多个值出现在一个单元中。每行只显示第一个值。其余的值被忽略。我们的用户只希望在新行中使用多个值，而不要使用任何其他分隔符。请帮助我的build议。我正在使用Lotus Notes 6.5和Microsoft Office 2010。谢谢。

VBA使用Filesearch发送邮件: 我有这个代码使用Lotus Notes发送邮件给多个收件人。现在我需要提到附件的整个文件path。我的要求是使用FileSearch方法 – 提及* *中的附件名称的任何部分 – 以便附加文件。 Sub Send() Dim oSess As Object Dim oDB As Object Dim oDoc As Object Dim oItem As Object Dim direct As Object Dim Var As Variant Dim flag As Boolean Dim cell As Range Dim r As Excel.Range Dim Name As String Dim Annex As String […]