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 e-mail automático com anexo exposto no corpo do e-mail

    Compartilhe

    Geraldo Costa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 24/06/2013

    Envio de e-mail automático com anexo exposto no corpo do e-mail

    Mensagem  Geraldo Costa em Dom 17 Ago 2014, 02:54

    Pessoal! alguém saberia o codigo para criar no Access, uma forma de inserir no "corpo" do  e-mail automático, uma figura do Excell, ou uma parte da planilha do mesmo Excell?
    O código que estou usando para anexar é o  abaixo, mas gostaria de anexar no corpo do e-mail, o objetivo é visualizar no corpo do out look, o gráfico ou planilha, sem a necessidade de abrir o anexo.

    Dim Out As Outlook.Application
    Dim NS As Outlook.NameSpace
    Dim Folder As MAPIFolder
    Dim Mens As MailItem
    Dim objOutlookRec As Outlook.Recipient

    Set Out = New Outlook.Application
    Set NS = Out.GetNamespace("MAPI")
    Set Folder = NS.GetDefaultFolder(olFolderInbox)
    Set Mens = Folder.Items.Add
    With Mens
    Set objOutlookRec = .Recipients.Add(""GLCOSTA")

    .CC = ""
    .Body = email
    .Subject = Nome
    .Attachments.Add ("D:\Access\Arquivos\Resumo_Diario.xls")
    .Send
    End With Shocked

      Data/hora atual: Sab 10 Dez 2016, 12:40