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

    Inserir imagem no corpo do e-mail do lotus notes utilizando access

    Compartilhe

    BetoPorto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/10/2015

    Inserir imagem no corpo do e-mail do lotus notes utilizando access

    Mensagem  BetoPorto em Sex 2 Out - 13:59

    Amigos,

    Preciso de uma ajuda para resolver um problema que tenho na empresa que trabalho.

    Tem um vba do access que funciona corretamente para enviar e-mail com o Lotus Notes com arquivo em anexo.

    Estou precisando colocar uma imagem no corpo do e-mail. Alguém pode me ajudar??


    Estuardo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10
    Registrado : 24/09/2014

    Re: Inserir imagem no corpo do e-mail do lotus notes utilizando access

    Mensagem  Estuardo em Seg 5 Out - 18:14

    Boa Noite Beto,
    Só assim sem código, nem exemplos é impossível dar qualquer ajuda. Mostra o código existente, com isso será mais fácil ajudar.

    BetoPorto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/10/2015

    Re: Inserir imagem no corpo do e-mail do lotus notes utilizando access

    Mensagem  BetoPorto em Ter 6 Out - 6:03

    Amigo,

    Segue o vba.

    Sub EnviarEmailViaNotes()
    Dim notesSession As Object
    Dim notesMailFile As Object
    Dim notesDocument As Object
    Dim notesField As Object
    Dim receptores(2) As Variant
    Dim oEmail As IPictureDisp



    'Cria Uma lista de destinatários
    receptores(0) = "****.*****@****.com.br"
    receptores(1) = "*******@*****.com.br"
    receptores(2) = "******@******.com.br"


    '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", "Sinistros para revisão")
    Set notesField = notesDocument.AppendItemValue("SendTo", receptores)
    Set notesField = notesDocument.CreateRichTextItem("Body")



    'Escreve o texto padrão no e-mail.
    With notesField
    .AppendText "********, "
    .AddNewLine (2)
    .AppendText "*********. "
    .AddNewLine (1)
    .AppendText "Att."
    .AddNewLine (3)
    .AppendText "*****."
    .AddNewLine (4)
    End With

    'Anexa o arquivo
    notesField = notesField.Embe(1454, "", "C:\Rotina\SINISTRO DUPLICADO\Base para revisão.xls")
    notesField = notesField.EmbedObject(1454, "", notesAttachment)

    'Imagem Corpo do email



    '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



    Estuardo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10
    Registrado : 24/09/2014

    Re: Inserir imagem no corpo do e-mail do lotus notes utilizando access

    Mensagem  Estuardo em Qua 7 Out - 5:23

    Beto,
    Veja este link Inserting Images into Lotus Notes Email

    BetoPorto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/10/2015

    Re: Inserir imagem no corpo do e-mail do lotus notes utilizando access

    Mensagem  BetoPorto em Qua 7 Out - 6:48

    Amigo,

    Não conseguir entender os codigos. Você consegue me ajudar a incluir os codigos no meu vba acima?

    No aguardo.

      Data/hora atual: Seg 5 Dez - 12:35