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

    avatar
    Geraldo Costa
    Novato
    Novato


    Respeito às regras : 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 Empty Envio de e-mail automático com anexo exposto no corpo do e-mail

    Mensagem  Geraldo Costa 17/8/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: 19/3/2024, 02:31