locked
Enviar e-mail pelo Lotus Notes com anexo em pdf RRS feed

  • Pergunta

  • Senhores,

    Conheço o comando docmd.sendobject do access, porém este não permite que eu anexe um arquivo pdf.
    Com o outlook eu vi que existem rotinas que podem realizar o envio de e-mail com anexo, por meio do código.

    Gostaria de saber se alguém conhece algum procedimento para enviar e-mail, com anexos PDF, automaticamente utilizando o Lotus notes.

    Agradeço desde ja.

    terça-feira, 28 de julho de 2009 16:28

Respostas

  • Depois de dar uma boa estudada neste e em outros fóruns consegui o código!


    Esse procedimento deve ser salvo em um módulo SEM FAZER NEHUMA ALTERAÇÃO NO CÓDIGO:


    Public Sub SendNotesMail(Subject As String, Attachment As String, Recipient As String, BodyText As String, SaveIt As Boolean)

        Dim Maildb As Object 'The mail database
        Dim UserName As String 'The current users notes name
        Dim MailDbName As String 'THe current users notes mail database name
        Dim MailDoc As Object 'The mail document itself
        Dim AttachME As Object 'The attachment richtextfile object
        Dim Session As Object 'The notes session
        Dim EmbedObj As Object 'The embedded object (Attachment)
     
        Set Session = CreateObject("Notes.NotesSession")

        UserName = Session.UserName
        MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"

        Set Maildb = Session.GETDATABASE("", MailDbName)
         If Maildb.IsOpen = True Then

         Else
             Maildb.OPENMAIL
         End If

        Set MailDoc = Maildb.CREATEDOCUMENT
        MailDoc.Form = "Memo"
        MailDoc.sendto = Recipient
        MailDoc.Subject = Subject
        MailDoc.Body = BodyText
        MailDoc.SAVEMESSAGEONSEND = SaveIt
        'Set up the embedded object and attachment and attach it
        If Attachment <> "" Then
            Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
            Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
            'MailDoc.CREATERICHTEXTITEM ("Attachment")
        End If

        MailDoc.PostedDate = Now() 
        MailDoc.Send 0, Recipient
      
        Set Maildb = Nothing
        Set MailDoc = Nothing
        Set AttachME = Nothing
        Set Session = Nothing
        Set EmbedObj = Nothing
    End Sub




    Em criar um botão em um formulário e no evento ao clicar colocar a linha:

    SendNotesMail "Seu_Assunto", "Caminho_do_Arquivo.pdf", "mail_destinatário", "Corpo_Texto", True

    Obs: o true salva o envio do arquivo na caixa de saida do notes



    • Marcado como Resposta Muka_Fenili terça-feira, 28 de julho de 2009 17:53
    terça-feira, 28 de julho de 2009 17:53