MaximoAccess

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

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: Qua 18 Out 2017, 04:56