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

    Enviar e-mail

    Compartilhe

    Carolina
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 25/08/2010

    Enviar e-mail

    Mensagem  Carolina em Seg 25 Nov 2013, 16:48

    Boa Tarde,

    Tenho varios arquivos salvos em uma unica pasta, que o que diferencia um do outro, é tão somente o numero do cliente..
    Exemplo: 4044.orcamento.xls
    4054.orcamento.xls
    4066.orcamento.xls

    Preciso atraves do ACCESS, encaminhar esses orcamentos, "sendo um arquivo anexo", para o cliente e mais dois destinatarios em copia, os quais tenho salvo em uma consulta, conforme abaixo:
    Campo1 = CodCliente
    Campo2 = NomeCliente
    Cammpo3 = Email (já esta concatenado, ou seja, cliente e os demais que receberão "em copia" em um unico campo)

    Preciso ainda, ter um texto padrão para enviar no corpo do e-mail, sendo variavel somente o nome do cliente.
    Algume pode me ajudar.?

    Obrigada
    Carolina
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3412
    Registrado : 04/04/2010

    Re: Enviar e-mail

    Mensagem  Avelino Sampaio em Seg 25 Nov 2013, 16:50

    Qual é a versão do seu Access ? usa o Outlook ?

    Aguardamos

    CrisMaleta
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/08/2013

    Re: Enviar e-mail

    Mensagem  CrisMaleta em Seg 25 Nov 2013, 18:49

    Fala Carolina....

    A princípio, vc pode usar essa estrutura....

    1 - Carregar a referência do outlook no access, depende da versão do seu office (acredito que seja por isso, a pergunta do Avelino)
    Procure por "Microsoft Outlook XX.0 Object Library" ~~> XX.0 é a versão do seu office

    2 - Carregar as variáveis:
    Dim itemMail As Outlook.MailItem
    Dim aplOl As New Outlook.Application

    3 - Usar como base:
    'Instancia um novo e-mail.
    Set itemMail = aplOl.CreateItem(olMailItem)

    With itemMail
    'insere o destinatário do e-mail.
    .To = "Endereço de E-Mail"

    'Insere o assunto do e-mail.
    .Subject = "Assunto do E-Mail"

    'Seleciona o formato do corpo do e-mail.
    .BodyFormat = olFormatHTML (Este é o formato em HTML)

    'Referencía que o corpo tem conteúdo HTML.
    '.HTMLBody = "HTML Content" (Recebe o corpo do E-Mail em formato HTML)

    'Insere o corpo do e-mail.
    .HTMLBody = "" Conteúdo do corpo em HTML ""

    'Endereço completo do arquivo a ser anexo.
    .Attachments.Add ("C:\Teste.pdf")

    'Abre o e-mail formatado.
    .Display (Mostra o E-Mail antes do envio - Envio Manual)

    'Envia o e-mail formatado.
    '.Send (Envia o E-Mail automaticamente - Sem preview)
    End With



    Espero que ajude em algo......

    Esperamos instruções melhores do mestre Avelino!!!!!

    Abraço a todos!!!!

      Data/hora atual: Sex 24 Nov 2017, 01:51