Tag: 莲花笔记

如何打开Lotus Notes新邮件并发送

我已经看到了一些macros的加载Lotus Notes，并把附件和发送。 它几乎完成它发送电子邮件，但不知道如何发送文件夹，它与PDF文件，但我有一堆的PDF文件在我想要发送的文件夹。 我如何格式化电子邮件阅读：“你好 请查收附件 （附件） 签名“ 任何帮助表示赞赏，谢谢 Sub SendEmail() Dim WatchRange As Range Dim IntersectRange As Range Dim x As Integer Dim UserName As String Dim MailDbName As String Dim Recipient As Variant Dim Maildb As Object Dim MailDoc As Object Dim Attachment As String Dim Session As Object Dim stSignature As String With […]

将数据从Lotus Notes复制到MSSql

我有Lotus Notes应用程序，并且很多人在这个应用程序里面插入数据。 由于不同的原因，我需要这些数据也复制到MSSql数据库，供其他程序使用它。 现在，我们使用导出数据excel并将它们插入MSSql数据库，但这有一些缺点。 首先，我们每天导出为ex​​cel，所以MSSql数据库内的数据不是最新的。 其次是需要一名男性劳动力。 我的任务是解决这个问题。 我可能会实现自动创build导出，然后导入到MSSql的作业，但我正在寻找是否有方法来复制这两个数据库之间的数据。 有人在这方面的一些经验？ 最好的解决scheme是数据库的复制。 第二个最好的解决scheme是当数据存储在Note数据库中时触发触发器。 我读了Notes使用Java。 有谁知道数据存储到数据库时是否可以触发。 我正在使用Lotus Notes 8.5

VBA到Lotus Notes – 带格式的variables主体（颜色）

我目前正在从事一个工作stream程的自动化过程，这个stream程过去需要大量的手工工作，并从多个来源收集数据，并最终发送了一封电子邮件： 标题（固定） 正常 说明（每个单元格与给定范围内的数据一行） 粗体 页脚（固定） – 文字颜色：红色 附件 那么，我们有一个文具来帮助电子邮件，但因为我不能保证每个人都会正确设置文具，我正在寻找一个更优雅的方式来这样做（基本上，目标是使其防呆），所以我开始工作的方式来混合VBA +公式在单元格中。 到目前为止，我的代码在笔记上创build消息，插入地址列表，标题和附加它生成的文件，但是当涉及到插入身体时，胖的机会！ 我可以插入单行消息，但没有任何格式或样式，在主体元素旁边以粗体显示。 我追逐的是一种将给定单元格中的文本从我的电子表格粘贴到笔记上并对其应用格式的方法，因此每个单元格的值将是笔记上具有不同样式的文本行。 我已经阅读了大约3天的问题和文章，但没有成功，我决定自己去问问题，因为这是我的项目中的一大进步，有没有办法做到这一点？ 我相信我正在寻找类似的东西 notesmagicproperty.boldthisrange（ “B3”） 这意味着 “03 – Lorem ipsum dolor sit amet” 在此先感谢，堆栈溢出已经救了我一千次！ 另外，抱歉没有发布代码，我从家里写这个，现在是凌晨3点，所以我现在还没有访问它。

VBA：通过IBM Notes发送电子邮件，添加签名？

我有以下的VBA代码，从Excel中运行。 它将电子邮件发送到范围内的收件人列表。 Sub Send_Email() Dim answer As Integer answer = MsgBox("Are you sure you want to Send All Announcements?", vbYesNo + vbQuestion, "Notice") If answer = vbNo Then Exit Sub Else Dim rnBody As Range Dim Data As DataObject Set rnBody = Worksheets(1).Range("N3") rnBody.Copy Dim Maildb As Object Dim MailDoc As Object Dim Body As […]

VBA通过IBM Notes发送电子邮件不工作？

我正在使用以下vba代码尝试从附带的IBM Notes发送电子邮件。 这是我的代码： Sub Send_Email() Dim answer As Integer answer = MsgBox("Are you sure you want to Send All Announcements?", vbYesNo + vbQuestion, "Notice") If answer = vbNo Then Exit Sub Else 'Define Parameters for Email Dim s As Object Dim db As Object Dim body As Object Dim bodyChild As Object Dim header As […]

Excel VBA – 在莲花邮件正文中插入空白行

我正在寻找一个空白行插入莲花笔记电子邮件的身体。 例如：目前我的身体显示这个： "Hi this is the body of my email. <img></img>" 我希望我的电子邮件正文如下所示： "Hi this is the body of my email. <img></img>" 我怎么去做这个？ 任何创意？ 这是我的代码： Sub CreateEmail() Dim Notes As Object Dim Maildb As Object Dim objNotesDocument As Object Dim objNotesField As Object Dim notesUIDoc As Object Dim chartBody As Range Set Notes = CreateObject("Notes.NotesSession") Set […]

VBA – 使用Lotus Notes在签名上方插入电子邮件正文

我试图实现的是非常简单的，在莲花笔记上签名的上方插入电子邮件的正文。 我在vba中运行的代码在“主题”，“发送到”和“正文”字段中的lotus notes paste中打开一个新的电子邮件窗口。 一切工作完美，但是当插入的身体把它放在我的签名下面的文本。 我已经做了大量的挖掘工作，试图find一个解决scheme，但没有发现任何工作正确的东西。 我发现的一些postbuild议删除签名，粘贴身体，然后重新签名到电子邮件 – 不是我真正的方法。 这是我的代码： Sub CreateEmail() Dim Notes As Object Dim Maildb As Object Dim objNotesDocument As Object Dim objNotesField As Object Set Notes = CreateObject("Notes.NotesSession") Set Maildb = Notes.GETDATABASE("", "") Maildb.OPENMAIL Set objNotesDocument = Maildb.CREATEDOCUMENT Subject = "Hey look at my email!!" Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", Subject) Set […]

Lotus Notes VBA电子邮件自动化 – db.CreateDocument命令失败

我试图通过使用VBA的Lotus Notes 9.0自动发送电子邮件。 代码将加载笔记，要求我的密码，但在密码提示出现之前，我得到一个错误。 我运行的错误是“运行时错误'-2147417851（80010105）'：自动化错误服务器抛出一个exception”当我打到debugging时，失败的行是“Set obDoc = obDB.CreateDocument”。 很多我在网上看到的例子明智地匹配我在代码中所做的事情，所以我不确定问题出在哪里。 代码如下： Sub Send_Emails() Dim stSubject As Variant Dim emailList As Variant Dim obSess As Object Dim obDB As Object Dim obDoc As Object '—-Create Email List – separate function, dynamically creates email list based off report processing done in other functions CreateEmailList '—-Info for Subject stSubject […]