求助！VBA 操作Lotus Notes 公共邮箱 转发邮件

Sub Lotus_Notes_Mail_Test()
Dim aview As Object
Dim adoc As Object
Dim serverName As String
Dim TracingName As String
Dim TracingDB As Object
serverName="************"
TracingName="*************"
Set noSession = CreateObject("Notes.NotesSession")
Set TracingDB = noSession.GETDATABASE(serverName, TracingName)
Set aview = TracingDB.GetView("($inbox)")
Set adoc = aview.GetFirstDocument
strSubject = "TEST DEMO"
'reply mail
Set reply = adoc.CreateReplyMessage(False)
Dim vaRecipient As Variant
vaRecipient = VBA.Split(res.semail, ",")
reply.Subject = "Re:" & strSubject
reply.sendto = vaRecipient
reply.SaveMessageOnSend = True
reply.posteddate = Now
Call reply.Save(False, False)
Call reply.AppendItemValue("Principal", res.mailbox)
reply.SignOnSend = True
reply.Send False
Set reply = Nothing
End Sub

全新英文看不懂，如果有中文版那该多好啊。

大佬，我如果只是想用VBA 操作Notes的公共邮箱发送邮件，这个能怎么设置啊

我现在可以用我自己的邮箱发送邮件