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

    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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    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: Sab 10 Dez 2016, 04:56