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


3 participantes

    Enviar e-mail

    avatar
    Carolina
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Enviar e-mail  Empty Enviar e-mail

    Mensagem  Carolina 25/11/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
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Enviar e-mail  Empty Re: Enviar e-mail

    Mensagem  Avelino Sampaio 25/11/2013, 16:50

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

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    CrisMaleta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Enviar e-mail  Empty Re: Enviar e-mail

    Mensagem  CrisMaleta 25/11/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!!!!

    Conteúdo patrocinado


    Enviar e-mail  Empty Re: Enviar e-mail

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 01:55