none
Lotus Notes RRS feed

  • Pergunta

  • Por acaso alguem poderia me ajudar, estava precisando abrir uma instancia do lotus notes VB.NET, alguma coisa do tipo:

     

    Code Snippet

    outApp = CreateObject("Outlook.Application")

     

     

    Mas ao invez do Outlook teria que ser o Notes.

     

    Obrigado

    quarta-feira, 15 de agosto de 2007 18:02

Respostas

  • Amigo, use esse código:

     

    Para funcionar ative as referencias do Lotus Notes.

     

    Sub EnviarEmailViaNotes()
        Dim notesSession As Object
        Dim notesMailFile As Object
        Dim notesDocument As Object
        Dim notesField As Object
        Dim receptores(2) As Variant
           
        'Cria Uma lista de destinatários
        receptores(0) = "benjamim.carvalho@ccee.org.br"
        receptores(1) = "jcabreu@ccee.org.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 nomo corpo de e-mail
        Set notesField = notesDocument.AppendItemValue("Subject", "Teste de Envio via Excel...")
        Set notesField = notesDocument.AppendItemValue("SendTo", receptores)
        Set notesField = notesDocument.CreateRichTextItem("Body")
           
        'Escreve o texto padrão no e-mail.
        With notesField
            .AppendText "Este é um modelo que copiei da ferramenta, "
            .AddNewLine (2)
            .AppendText "Para um possível uso no arquivo do GSAM. "
            .AddNewLine (1)
            .AppendText "Chegou? Tudo Certo?"
            .AddNewLine (3)
            .AppendText Cells(1, 1).Value   'aqui faz referencia a uma variável ou a uma parte da planilha
        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
    End Sub

    Att.

    Benjamim Carvalho

    Analista VBA

    quinta-feira, 23 de agosto de 2007 12:40

Todas as Respostas

  • O que você precisa fazer exatamente:?

    quarta-feira, 15 de agosto de 2007 18:36
  • Marcelo, eu estava precisando enviar email via Lotus Notes.

     

    Obrigado.

    quarta-feira, 15 de agosto de 2007 18:54
  • Amigo, use esse código:

     

    Para funcionar ative as referencias do Lotus Notes.

     

    Sub EnviarEmailViaNotes()
        Dim notesSession As Object
        Dim notesMailFile As Object
        Dim notesDocument As Object
        Dim notesField As Object
        Dim receptores(2) As Variant
           
        'Cria Uma lista de destinatários
        receptores(0) = "benjamim.carvalho@ccee.org.br"
        receptores(1) = "jcabreu@ccee.org.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 nomo corpo de e-mail
        Set notesField = notesDocument.AppendItemValue("Subject", "Teste de Envio via Excel...")
        Set notesField = notesDocument.AppendItemValue("SendTo", receptores)
        Set notesField = notesDocument.CreateRichTextItem("Body")
           
        'Escreve o texto padrão no e-mail.
        With notesField
            .AppendText "Este é um modelo que copiei da ferramenta, "
            .AddNewLine (2)
            .AppendText "Para um possível uso no arquivo do GSAM. "
            .AddNewLine (1)
            .AppendText "Chegou? Tudo Certo?"
            .AddNewLine (3)
            .AppendText Cells(1, 1).Value   'aqui faz referencia a uma variável ou a uma parte da planilha
        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
    End Sub

    Att.

    Benjamim Carvalho

    Analista VBA

    quinta-feira, 23 de agosto de 2007 12:40
  • Benjamin, excelente este código!

     

    Só gostaria de saber como posso anexar um arquivo no Corpo do Email?

     

    Procurei nas referências mas não encontrei.

     

    Pode me ajudar?

     

    Obrigado!

     

    Neuton
    sexta-feira, 24 de agosto de 2007 15:21
  • Neuton,

     

    Infelizmente estou com o mesmo problema e ainda não consegui resolver... mas, quem resolver primeiro passa um para o outro... vou te passar um link que talvez tenha mais sorte do que eu e entenda como fazer.. porque até agora eu não consegui fazer nada.

     

    blz!!!!

     

     

    Abraços,

    http://www-12.lotus.com/ldd/doc/domino_notes/Rnext/help6_designer.nsf/f4b82fbb75e942a6852566ac0037f284/ce19a99c67eeaa4385256c54004cd38e?OpenDocument

     

    procure pelo comando GetAttacment.. porque eu não entendi a lógida do modelo de objeto de anexo do lotus notes ainda....

    sexta-feira, 24 de agosto de 2007 16:15
  • Bejamim,

     

    Consegui!


    O comando que tem q ser usado é este: seguindo as mesma variáveis do código postado por você.

    Code Snippet

     

    'Anexa o Arquivo

    Set NotesEmbeddedObject = notesField.EMBEDOBJECT(EMBED_ATTACHMENT, "MS Excel Worksheet", :\user\teste.xls")

     

     

    Procurepor ele no help que tem maiores detalhes,

     

    Já testei e funcionou.

     

    O comando GetAttachment é para pegar um anexo de um email, para anexar é dessa maneira.

     

    Abs!

    sexta-feira, 24 de agosto de 2007 16:47
  • Neuton,

     

    Certíssimo.... valeu...

     

    Precisando de algo é só falar... e obrigado pela ajuda.

     

     

    Abraços,

    Benjamim Carvalho

    Analista VBA

    terça-feira, 28 de agosto de 2007 11:47
  • Neuton, sou novato em escreve código VBA, por favor como devo proceder para incluir este código no código enviado pelo Bejamim, tenho que criar uma variavel, ou somente incluir o código, já tentei e não consegui.

     

    sexta-feira, 8 de agosto de 2008 23:33
  • tenho que liberar alguma opção no notes

     

    sexta-feira, 8 de agosto de 2008 23:55
  • Benjamim,

    Esse post é muito bom, mas tem que manter o Lotus Notes aberto.

    Como fazer para que seja enviado sem a necessidade do mesmo ficar aberto ???

    Seria possível ?? Como ?

     

    Att:

    Bellini

    segunda-feira, 13 de setembro de 2010 17:23
  • Amigo, estava tentando fazer um código proximo ao seu.. Enviando um arquivo via Notes,

    Mas não consegui usar esse codigo que você escreveu.

     

    'Anexa o Arquivo

    Set NotesEmbeddedObject = notesField.EMBEDOBJECT(EMBED_ATTACHMENT, "MS Excel Worksheet", :\user\teste.xls")

    Não reconhece "EMBED_ATTACHMENT"

     

    Preciso declarar alguma coisa antes?

    Obrigado.


    LFBit
    segunda-feira, 12 de dezembro de 2011 18:56