none
Ajuda para anexar arquivos em pdf (vba x Lotus Notes) RRS feed

  • Pergunta

  • Galera, bom dia.

    Preciso muito do apoio de vocês. Criei uma código no VBA para enviar email à diversos endereços de emails via Lotus Notes.

    Entretanto, venho pesquisado durante uma semana a possibilidade de anexar arquivos (pdf, txt, xls, etc)  nestes emails que estariam localizados na minha área de trabalho. Entretanto, não tive sucesso em minhas buscas, poderiam me ajudar a ajustar meu código VBA?

    Segue o código que estou utilizando. Saberiam alguma adaptação para ele puxar os arquivos da minha área de trabalho?

    Sub EnviarEmailViaNotes()
        Dim notesSession As Object
        Dim notesMailFile As Object
        Dim notesDocument As Object
        Dim notesField As Object
        Dim receptores(3) As Variant
        Dim receptoresCC As String
        Dim contador As Integer
       
        contador = 1

    Do

    contador = contador + 1

    If Cells(contador, 1).Value = "" Then

    Exit Do
     
     End If
        receptores(0) = Cells(contador, 1).Value
        receptores(1) = Cells(2, 2).Value
        receptoresCC = Cells(2, 3).Value
          
        Set notesSession = CreateObject("Notes.NotesSession")
        Set notesMailFile = notesSession.GETDATABASE("", "names.nsf")
        Set notesDocument = notesMailFile.CreateDocument
       
      
        Set notesField = notesDocument.AppendItemValue("Subject", Cells(2, 4).Value)
        Set notesField = notesDocument.AppendItemValue("SendTo", receptores)
        Set notesField = notesDocument.AppendItemValue("CopyTo", receptoresCC)
        Set notesField = notesDocument.CreateRichTextItem("Body")
           
      
        With notesField
            .AddNewLine (2)
            .AppendText Cells(2, 5).Value
        End With
       
      
        notesDocument.Send False
       
      
        Set notesSession = Nothing
        Set notesMailFile = Nothing
        Set notesDocument = Nothing
        Set notesField = Nothing

    Loop

    End Sub

    segunda-feira, 24 de setembro de 2018 14:06