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


2 participantes

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

    avatar
    BetoPorto
    Novato
    Novato


    Respeito às regras : 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 Empty Inserir imagem no corpo do e-mail do lotus notes utilizando access

    Mensagem  BetoPorto 2/10/2015, 18: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
    Estuardo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Estuardo 5/10/2015, 23: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.
    avatar
    BetoPorto
    Novato
    Novato


    Respeito às regras : 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 Empty Re: Inserir imagem no corpo do e-mail do lotus notes utilizando access

    Mensagem  BetoPorto 6/10/2015, 11: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
    Estuardo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Estuardo 7/10/2015, 10:23

    Beto,
    Veja este link Inserting Images into Lotus Notes Email
    avatar
    BetoPorto
    Novato
    Novato


    Respeito às regras : 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 Empty Re: Inserir imagem no corpo do e-mail do lotus notes utilizando access

    Mensagem  BetoPorto 7/10/2015, 11:48

    Amigo,

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

    No aguardo.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 19:36