MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    Envio de email através do Lotus Notes

    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Envio de email através do Lotus Notes Empty Envio de email através do Lotus Notes

    Mensagem  M2013 8/8/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: 8/11/2024, 00:43