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

  • Pergunta

  • 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) = "fulano@xxx.com.br"

    'Cria Uma lista de copiados

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

    copiados(1) = "beltrano@xxx.com.br"

    '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

    segunda-feira, 4 de abril de 2016 16:36