Question

我目前有两个Lotus Notes数据库，每个数据库都有自己的电子邮件地址。正如所料，当我通过第一个数据库向我的Gmail帐户发送电子邮件时，它显示为＆＃34;来自：notesAccount1@db1.com"当我使用第二个数据库发送邮件时，邮件显示为＆＃34;来自：notesAccount2@db2.com"在我的Gmail中。

我有工作代码打开第二个数据库，在收件箱中搜索包含特定关键字的电子邮件，并从该电子邮件中提取电子邮件地址。然后，它会在第二个数据库中创建一个新文档，插入收件人姓名，主题，正文等，发送电子邮件，并将其保存到我发送的文件夹中。到目前为止，一切顺利。

但是，当我使用此VBA方法从第二个数据库向我的Gmail帐户发送电子邮件时，该电子邮件会显示在我的Gmail中，并显示为＃34;来自：notesAccount1@db1.com" - 与第一个数据库关联的电子邮件。

我无法弄清楚为什么会这样。对VBA和Lotus Notes以及Lotus Notes服务器/数据库之间的交互的了解非常有限。 第一个数据库在技术上是我的默认数据库，只有我有权访问，后来添加了第二个数据库，多个人都可以访问它。我不知道这是否相关

非常感谢任何帮助！感谢。

注意：此代码是从多个来源复制和改编的，包括一些关于SO，IBM和其他Notes来源的内容，以及Google提出的任何其他方式，包括 http://www.fabalou.com/vbandvba/lotusnotesmail.asp

http://www-01.ibm.com/support/docview.wss?uid=swg21178583

代码：（由于我已取出服务器名称和邮件文件名，因此必须进行调整）

Sub ReadNotesEmail()

Dim sess As Object
Dim db As Object
Dim folder As Object
Dim docNext As Object
Dim memoSenders As Variant
Dim newEmail As Object
Dim view As Object
Dim entry As Object
Dim entries As Object
Dim templateEmail As Object

Dim mailServer As String
Dim mailFile As String
Dim folderName As String
Dim todayDate As String
Dim memoBody As String
Dim senderEmail As String

Dim emailStartPos As Integer
Dim emailEndPos As Integer

'This program will search a particular folder in a Notes database that I designate.
'It will search that folder for emails that contain certain key words. Once it finds
'an email that fits, it will grab the sender's email address (written in the body, not
'in the 'from') and send them an email.

'Name of folder to search for emails
folderName = "($Inbox)"

'Create a Lotus Notes session and open it (will require password)
Set sess = CreateObject("Lotus.NotesSession")
sess.Initialize ("")

'Set the mail server, mail file, and database. This will be the tricky part as I need this to
'look at the second mail server as opposed to the default mail server of jdyagoda
Set db = sess.GETDATABASE("***name of second Notes server***", "***name of second mail file***")

'Open the mail database in notes
If Not db.IsOpen = True Then
    Call db.Open
End If
Set folder = db.GetView(folderName)

'Now look through the emails one at a time with a loop that ends when no emails are left.
'If an email contains the key word, look for the email address of the person who submitted
'the contact-us form. It follows the string "Email:" and preceeds
'the string "Phone:".
Set doc = folder.GetFirstDocument
Do Until doc Is Nothing
    Set docNext = folder.GETNEXTDOCUMENT(doc)
    memoBody = LCase(doc.GetItemValue("body")(0))
    If (memoBody Like "*") Then 'This is where you designate the keyword

        'Here's where you extract the email address - taken out for the purpose of this SO question
        'senderEmail = testName@test.com

        'Now create a new email to the intended recipient

        Set newEmail = db.CREATEDOCUMENT
        Call newEmail.ReplaceItemValue("Form", "Memo")
        Call newEmail.ReplaceItemValue("SendTo", senderEmail)
        Call newEmail.ReplaceItemValue("Subject", "Thank you for your email")
        Call newEmail.ReplaceItemValue("body", "Test Body 1. This is a test.")
        newEmail.SAVEMESSAGEONSEND = True

        'Send the new email

        Call newEmail.ReplaceItemValue("PostedDate", Now()) 'Gets the mail to appeaer in the sent items folder
        Call newEmail.SEND(False)

    End If
    Set doc = docNext
Loop

End Sub

Answer 1

Notes通常会使用您用于登录的ID的电子邮件地址发送邮件。因此，如果您使用notesAccount1 / Domain登录，则所有电子邮件都将来自notesAccount1@example.com。如果要伪造发件人，则需要使用未记录的方法：将电子邮件直接注入mail.box。除非你真的知道自己在做什么，否则不应该尝试这样做。

我已经在我的博客上发布了一个邮件通知类代码，它支持这种解决方法来设置发送电子邮件的发件人。您可以在http://blog.texasswede.com/updated-mailnotification-class-now-with-html-email-support-and-web-links/

找到最新的代码

使用excel发送IBM Lotus Notes电子邮件VBA从错误的电子邮件地址发送

1 个答案: