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

我目前有两个Lotus Notes数据库，每个数据库都有自己的电子邮件地址 . 正如预期的那样，当我通过第一个数据库向我的Gmail帐户发送电子邮件时，它显示为“From：notesAccount1@db1.com”，当我使用第二个数据库发送时，该消息显示为“From：notesAccount2 @ db2 .com“在我的Gmail中 .

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

但是，当我使用此VBA方法从第二个数据库向我的Gmail帐户发送电子邮件时，该电子邮件在我的Gmail中显示为“From：notesAccount1@db1.com” - 与第一个数据库关联的电子邮件 .

我无法弄清楚为什么会这样 . 对VBA和Lotus Notes以及Lotus Notes服务器/数据库之间的交互的了解非常有限 . The first database is technically my default one that only I have access to and the second database was added later and multiple people have access to it. 我不相关't know if that'

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

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

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

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

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