MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Envio de email através do Lotus Notes

    Compartilhe

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    Envio de email através do Lotus Notes

    Mensagem  M2013 em Seg 08 Ago 2016, 17:57

    Estou usando o código abaixo para envio de email do access pelo L.Notes. O código funciona porém ele não salva no notes o email enviado. Gostaria também de anexar um arquivo pdf, seria possível. agradeço a ajuda.

    Sub EnviarEmailViaNotes()
    Dim notesSession As Object
    Dim notesMailFile As Object
    Dim notesDocument As Object
    Dim notesRtf As Object
    Dim notesField As Object
    Dim receptores(2) As Variant
    Dim attach1 As String

    'Cria Uma lista de destinatários
    receptores(0) = "yyyyyyyyyy@yyyy.org.br"
    'receptores(1) = "xxxxxxxxxxx@xxxx.com"

    '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...")
    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. "
    .AddNewLine (1)
    .AppendText "Chegou? Tudo Certo?"
    .AddNewLine (3)
    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

      Data/hora atual: Sex 09 Dez 2016, 13:31