可以使用Lotus Notes发送邮件吗？ [英] Can I use Lotus Notes to send mail?

问题描述

我的问题是：

1. 我可以通过Lotus Notes客户端发送邮件，还是与Lotus Notes（可能是命令行工具）相关的内容？如果是，在哪里可以找到与此有关的信息？我不喜欢在C / C ++中做到这一点，但是如果没有其他选项存在，那么这样做。




2. 如何找出服务器的地址？ GUI不直观，我找不到服务器地址。服务器位于网络上的另一台计算机上。

解决方案

使用Notes OLE对象从Excel VBA发送Notes邮件的十年前的旧代码 - 猜测它们可以在大多数首选平台中使用：

  Dim session As Object 
 Dim maildb As Object 
 Dim maildoc As Object 
 Dim body As Object 
 
 Public Sub send（subject，收件人，文件名）
错误GoTo errorhandler 
 Const EMBED_ATTACHMENT = 1454 
调用maildb.OpenMail 
 
如果不是maildb.IsOpen然后调用maildb.Open（， ）
 
设置maildoc = maildb.createdocument 
设置body = maildoc.createrichtextitem（body）
 
调用maildoc.replaceitemvalue（form， 
调用maildoc.replaceitemvalue（subject，subject）
 
调用body.EmbedObject（EMBED_ATTACHMENT，，filename，subject）
调用maildoc.send（false ，接受者） 
 End Sub 
 
 Private Sub Class_Initialize（）
设置session = CreateObject（Notes.NotesSession）
设置maildb = session.getDatabase（， ）
 End Sub 
  

各种Notes对象的文档可以在这里找到： Lotus Domino Designer文档

I have to code an app that at some point in time will have to send some reports using Lotus Notes.

My questions are :

1. Can I send mail through the Lotus Notes client, or something related to Lotus Notes ( a command line tool maybe? )? If so, where could I find information related to this? I would prefer not having to do it in C/C++, but if no other options' present, that would do.

2. How can I find out the server's address? The GUI is not intuitive, and I can't find the server address. The server's located on another computer on the network.

解决方案

Here's an example of half-a-decade old code to send a Notes mail from Excel VBA using the Notes OLE objects - guess they can be used in most of your preferred platforms:

Dim session As Object
Dim maildb As Object
Dim maildoc As Object
Dim body As Object

Public Sub send(subject, recipient, filename)
    On Error GoTo errorhandler
    Const EMBED_ATTACHMENT = 1454
    Call maildb.OpenMail

    If Not maildb.IsOpen Then Call maildb.Open("", "")

    Set maildoc = maildb.createdocument
    Set body = maildoc.createrichtextitem("body")

    Call maildoc.replaceitemvalue("form", "memo")
    Call maildoc.replaceitemvalue("subject", subject)

    Call body.EmbedObject(EMBED_ATTACHMENT, "", filename, subject)
    Call maildoc.send(false,recipient)
End Sub

Private Sub Class_Initialize()
    Set session = CreateObject("Notes.NotesSession")
    Set maildb = session.getDatabase("", "")
End Sub

The documentation for the various Notes objects can be found here: Lotus Domino Designer documentation

这篇关于可以使用Lotus Notes发送邮件吗？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！