none
Desde Excel a Lotus Notes RRS feed

  • Pregunta

  • Buenas tardes! 

    Pues mira, estoy trabajando con el Excel 2007 y quisiera copiar los datos de unas celdas y unas columnas concretas (al portapapeles, por ejemplo) y despues, pegarlos en el Lotus Notes como mensaje de texto. Lo parte de copiar los datos al portapapeles lo tengo mas que resuelto, el problema o la pregunta es: Se pueden pegar esos datos copiados como mensaje de texto en el Lotus Notes. He visto que mediante macros se puede hacer pero los datos van como adjuntos en el Lotus, y eso no lo quiero. 

    Muchas Gracias de antemano.

    P.D. Me da igual que sea desde el Visual Studio en VB.NET o desde el mismo VBA del Excel 2007.

    • Cambiado Enrique M. Montejo jueves, 4 de agosto de 2016 5:11 Programación con Microsoft Excel.
    miércoles, 3 de agosto de 2016 19:20

Respuestas

  • Hola

    Mira a ver sí esto te puede servir: Send a Range as rich text in body through lotus notes

    Salu2,


    José Mª Fueyo

    • Editado José Mª Fueyo viernes, 5 de agosto de 2016 11:36
    • Marcado como respuesta Spagetini jueves, 11 de agosto de 2016 21:11
    viernes, 5 de agosto de 2016 11:35
  • Ya esta solucionado, muchas gracias José Mª Fueyo.

    el codigo es el siguiente:

    Private Sub CommandButton1_Click()
    Notes_Email_Excel_Cells2
    End Sub
    Sub Notes_Email_Excel_Cells2()

        Dim NSession As Object
        Dim NDatabase As Object
        Dim NUIWorkSpace As Object
        Dim NDoc As Object
        Dim NUIdoc As Object
        Dim WordApp As Object
        Dim subject As String
     
       
        subject = "Aqui va el asunto que quieras" & Now
        Debug.Print subject
       
        Set NSession = CreateObject("Notes.NotesSession")
        Set NUIWorkSpace = CreateObject("Notes.NotesUIWorkspace")
        Set NDatabase = NSession.GetDatabase("", "")
        If Not NDatabase.IsOpen Then NDatabase.OPENMAIL
       
        'Create a new Lotus Notes document
       
        Set NDoc = NDatabase.CreateDocument
       
        With NDoc
            .SendTo = correo@correo.com              'CHANGE RECIPIENT EMAIL ADDRESS
            .CopyTo = ""
            .subject = subject
           
            'Email body text, including marker text which will be replaced by the Excel cells
           
            .body = "Esto se escribe en el body del mensaje"

           
            .Save True, False
        End With
       
        'Edit the just-created document to copy and paste the Excel cells into it via Word
       
        Set NUIdoc = NUIWorkSpace.EDITDocument(True, NDoc)

       

    'Copiar y pegar las celdas desde el excel en el "BODY" del Lotus Notes

        With NUIdoc
       
            'Find the marker text in the Body item
           
            .GotoField ("Body")
            '.FINDSTRING "**PASTE EXCEL CELLS HERE**"
            '.DESELECTALL 'Uncomment to leave the marker text in place (cells are inserted immediately before)
           
            'Copy Excel cells to clipboard
           
            Sheets("Hoja1").Range("A2:B3").Copy                  'CHANGE SHEET AND RANGE TO BE COPIED AND PASTED
       
            'Create a temporary Word Document
           
            Set WordApp = CreateObject("Word.Application")
            WordApp.Visible = False                                 'True to aid debugging
            WordApp.Documents.Add
           
            'Paste into Word document and copy to clipboard
               
            With WordApp.Selection
                .PasteSpecial DataType:=10      'Enum WdPasteDataType: 10 = HTML; 2 = Text; 1 = RTF
                .WholeStory
              
            End With

            'Paste from clipboard (Word) to Lotus Notes document
           
            .Paste
            Application.CutCopyMode = False
      
            WordApp.Quit SaveChanges:=False
            Set WordApp = Nothing
      
        End With
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
        'Copiar y pegar las celdas desde el excel en el "SUBJECT" del Lotus Notes
        With NUIdoc
       
            'Find the marker text in the Body item
           
            .GotoField ("Subject")
            '.FINDSTRING "**PASTE EXCEL CELLS HERE**"
            '.DESELECTALL 'Uncomment to leave the marker text in place (cells are inserted immediately before)
           
            'Copy Excel cells to clipboard
           
            Sheets("Hoja1").Range("A1:B2").Copy                  'CHANGE SHEET AND RANGE TO BE COPIED AND PASTED
       
            'Create a temporary Word Document
           
            Set WordApp = CreateObject("Word.Application")
            WordApp.Visible = False                                 'True to aid debugging
            WordApp.Documents.Add
           
            'Paste into Word document and copy to clipboard
               
            With WordApp.Selection
                .PasteSpecial DataType:=10      'Enum WdPasteDataType: 10 = HTML; 2 = Text; 1 = RTF
                .WholeStory
                .Copy
            End With

            'Paste from clipboard (Word) to Lotus Notes document
           
            .Paste
            Application.CutCopyMode = False
      
            WordApp.Quit SaveChanges:=False
            Set WordApp = Nothing
      
            .Send
            .Close
        End With
       
        Set NSession = Nothing

    End Sub

    SOLUCIONADO!

    • Marcado como respuesta Spagetini jueves, 11 de agosto de 2016 21:11
    martes, 9 de agosto de 2016 15:18

Todas las respuestas

  • Hola

    Mira a ver sí esto te puede servir: Send a Range as rich text in body through lotus notes

    Salu2,


    José Mª Fueyo

    • Editado José Mª Fueyo viernes, 5 de agosto de 2016 11:36
    • Marcado como respuesta Spagetini jueves, 11 de agosto de 2016 21:11
    viernes, 5 de agosto de 2016 11:35
  • Ya esta solucionado, muchas gracias José Mª Fueyo.

    el codigo es el siguiente:

    Private Sub CommandButton1_Click()
    Notes_Email_Excel_Cells2
    End Sub
    Sub Notes_Email_Excel_Cells2()

        Dim NSession As Object
        Dim NDatabase As Object
        Dim NUIWorkSpace As Object
        Dim NDoc As Object
        Dim NUIdoc As Object
        Dim WordApp As Object
        Dim subject As String
     
       
        subject = "Aqui va el asunto que quieras" & Now
        Debug.Print subject
       
        Set NSession = CreateObject("Notes.NotesSession")
        Set NUIWorkSpace = CreateObject("Notes.NotesUIWorkspace")
        Set NDatabase = NSession.GetDatabase("", "")
        If Not NDatabase.IsOpen Then NDatabase.OPENMAIL
       
        'Create a new Lotus Notes document
       
        Set NDoc = NDatabase.CreateDocument
       
        With NDoc
            .SendTo = correo@correo.com              'CHANGE RECIPIENT EMAIL ADDRESS
            .CopyTo = ""
            .subject = subject
           
            'Email body text, including marker text which will be replaced by the Excel cells
           
            .body = "Esto se escribe en el body del mensaje"

           
            .Save True, False
        End With
       
        'Edit the just-created document to copy and paste the Excel cells into it via Word
       
        Set NUIdoc = NUIWorkSpace.EDITDocument(True, NDoc)

       

    'Copiar y pegar las celdas desde el excel en el "BODY" del Lotus Notes

        With NUIdoc
       
            'Find the marker text in the Body item
           
            .GotoField ("Body")
            '.FINDSTRING "**PASTE EXCEL CELLS HERE**"
            '.DESELECTALL 'Uncomment to leave the marker text in place (cells are inserted immediately before)
           
            'Copy Excel cells to clipboard
           
            Sheets("Hoja1").Range("A2:B3").Copy                  'CHANGE SHEET AND RANGE TO BE COPIED AND PASTED
       
            'Create a temporary Word Document
           
            Set WordApp = CreateObject("Word.Application")
            WordApp.Visible = False                                 'True to aid debugging
            WordApp.Documents.Add
           
            'Paste into Word document and copy to clipboard
               
            With WordApp.Selection
                .PasteSpecial DataType:=10      'Enum WdPasteDataType: 10 = HTML; 2 = Text; 1 = RTF
                .WholeStory
              
            End With

            'Paste from clipboard (Word) to Lotus Notes document
           
            .Paste
            Application.CutCopyMode = False
      
            WordApp.Quit SaveChanges:=False
            Set WordApp = Nothing
      
        End With
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
        'Copiar y pegar las celdas desde el excel en el "SUBJECT" del Lotus Notes
        With NUIdoc
       
            'Find the marker text in the Body item
           
            .GotoField ("Subject")
            '.FINDSTRING "**PASTE EXCEL CELLS HERE**"
            '.DESELECTALL 'Uncomment to leave the marker text in place (cells are inserted immediately before)
           
            'Copy Excel cells to clipboard
           
            Sheets("Hoja1").Range("A1:B2").Copy                  'CHANGE SHEET AND RANGE TO BE COPIED AND PASTED
       
            'Create a temporary Word Document
           
            Set WordApp = CreateObject("Word.Application")
            WordApp.Visible = False                                 'True to aid debugging
            WordApp.Documents.Add
           
            'Paste into Word document and copy to clipboard
               
            With WordApp.Selection
                .PasteSpecial DataType:=10      'Enum WdPasteDataType: 10 = HTML; 2 = Text; 1 = RTF
                .WholeStory
                .Copy
            End With

            'Paste from clipboard (Word) to Lotus Notes document
           
            .Paste
            Application.CutCopyMode = False
      
            WordApp.Quit SaveChanges:=False
            Set WordApp = Nothing
      
            .Send
            .Close
        End With
       
        Set NSession = Nothing

    End Sub

    SOLUCIONADO!

    • Marcado como respuesta Spagetini jueves, 11 de agosto de 2016 21:11
    martes, 9 de agosto de 2016 15:18