none
Lotus Notes - Abrir tela de mensagem RRS feed

  • Discussão Geral

  • Como que faço para abrir a tela de mensagem do Lotus Notes, o código abaixo cola a informação e envia direto, mas precisaria que a tela ficasse aberta para o usuário alterar o corpo do email e enviar manualmente.

        Dim notesDatabase As Object
        Dim notesSession As Object
        Dim notesMailFile As Object
        Dim notesDocument As Object
        Dim notesField As Object
        Dim notesAgent As Object
        Dim receptores As Variant
        Dim receptoresCC As Variant
        Dim AttachME As Object 'The attachment richtextfile object
        Dim EmbedObj As Object 'The embedded object (Attachment)
            
        P_Erro = ""
            
        'Cria Uma lista de destinatários
        If p_Email <> "" Then receptores = Split(p_Email, ",") 'Os emails devem estarem separados por vírgula
        If p_CC <> "" Then receptoresCC = Split(p_CC, ",") 'Os emails devem estarem separados por vírgula
        
        'Abre uma sessão do notes, abre a base de dados e cria um documento.
        On Error GoTo errEnvio
        
        Set notesSession = CreateObject("Notes.NotesSession")
        Set notesDatabase = notesSession.GETDATABASE("", "")
        Set notesAgent = notesSession.CurrentAgent
        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", p_Subject)
        If p_Email <> "" Then Set notesField = notesDocument.AppendItemValue("SendTo", receptores)
        If p_CC <> "" Then Set notesField = notesDocument.AppendItemValue("CopyTo", receptoresCC)
        Set notesField = notesDocument.AppendItemValue("Body", p_Corpo)
        
        'Se o Lotus Notus não estiver aberto, esse comando abre
        If notesDatabase.IsOpen = False Then notesDatabase.OPENMAIL
        
        If p_Arquivo <> "" Then
            Set AttachME = notesDocument.CreateRichTextItem("Attachment")
            Set EmbedObj = AttachME.EmbedObject(1454, "", p_Arquivo, "Attachment")
        End If
        
        'Envia o e-mail
        notesDocument.Send False
        
        'notesSession.Run notesDocument.NoteID
        
        On Error GoTo 0
        
        'Limpa as variáveis
        Set notesSession = Nothing
        Set notesMailFile = Nothing
        Set notesDocument = Nothing
        Set notesField = Nothing

    • Tipo Alterado Marcos SJ quinta-feira, 11 de fevereiro de 2016 19:06
    quarta-feira, 3 de junho de 2015 13:22

Todas as Respostas

  • Lucio, bom dia

    Não pode, pois precisa abrir a tela do Notus, pois serão utilizados alguns recursos do Notes.

    quarta-feira, 3 de junho de 2015 14:23
  • Boa tarde Venildo,

    Tudo bem?

    a solução para o seu problema já foi encontrada ou ainda está pendente?

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 20 de julho de 2015 20:37
  • Ainda esta pendente
    segunda-feira, 20 de julho de 2015 20:40
  • Bom dia Venildo,

    O que você quer fazer aqui é criar um documento de texto que vai receber uma mensagem externa (Informação), [ter a possibilidade de editar este documento] e depois o enviar por e-mail (manualmente). É isso?

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    terça-feira, 21 de julho de 2015 12:14
  • Bom dia

    Não! O que preciso é que a tela de composição do Notes seja aberta com algumas informações já preenchida no corpo do email e que o próprio usuário dispare o email pelo botão send.

    terça-feira, 21 de julho de 2015 12:31
  • Venildo Amaral,

    Já conseguiu desenvolver a solução que precisava?


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quinta-feira, 10 de dezembro de 2015 18:47
  • Ainda não, e já procurei na rede e não achei nada, esta bem dificil essa solução.
    sexta-feira, 11 de dezembro de 2015 18:09