Como definir qual a caixa de entrada do Lotus Notes deve enviar o email

Question

Na empresa em que trabalho utilizamos o Lotus Notes. Na área de trabalho do notes tenho uma caixa de entrada individual (que é configurada com o meu usuário na rede da empresa) e uma outra caixa de entrada (com uma chave de usuário corporativo), que é um email que várias pessoas tem acesso.

A idéia é enviar um email via Lotus Notes por este usuário corporativo. O código abaixo está funcionando corretamente, mas ele envia o email pelo meu email individual.

Há algum modo de direcionar para o email corporativo?

　

Dim notesSession As Object

Dim notesMailFile As Object

Dim notesDocument As Object

Dim notesField As Object

Dim receptores(1) As Variant

Dim copiados(2) As Variant

Dim Body As Object

'Cria Uma lista de destinatários

receptores(0) = "[e-mail]"

'Cria Uma lista de copiados

copiados(0) = CStr(Environ("USERNAME"))

copiados(1) = "[e-mail]"

'Abre uma sessão do notes, abre a base de dados e cria um documento.

Set notesSession = CreateObject("Notes.NotesSession")

Set notesMailFile = notesSession.GetDataBase("", "names.nsf") '- *.nsf = arq. com lista de contatos

Set notesDocument = notesMailFile.CreateDocument

'Configura Subject, SendTo e Abre um novo corpo de e-mail

Set notesField = notesDocument.AppendItemValue("Subject", "PARECER ANÁLISE"

Set notesField = notesDocument.AppendItemValue("SendTo", receptores)

Set notesField = notesDocument.AppendItemValue("CopyTo", copiados)

Set notesField = notesDocument.CreateRichTextItem("Body")

'Escreve o texto padrão no e-mail.

With notesField

.AppendText "Prezadas,"

.AddNewLine (2)

.AppendText "Segue abaixo dados da unidade em pauta, para análise e parecer."

.AddNewLine (2)

.AppendText "Atenciosamente."

End With

'Envia o e-mail

notesDocument.Send False

'Limpa as variáveis

Set notesSession = Nothing

Set notesMailFile = Nothing

Set notesDocument = Nothing

Set notesField = Nothing