MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook.

    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 194
    Registrado : 02/08/2018

    [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook. Empty [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook.

    Mensagem  mfmaiafilho em 17/3/2020, 19:33

    Boa tarde tudo bem eu to terminando minha lista de preços e gostaria de adicionar essa função pra que fique 100%

    o intuito dessa lista é ser enviada por email, eu deixei isso por ultimo justamente pq sabia que teria dificuldade....

    eu vi esse codigo mas não sei o que pode ser não da certo..


    Private Sub Comando697_Click()
    Dim strArquivo  As String
    Dim strLocal    As String
    Dim objOut      As Object
    Dim objmail     As Object
    Dim objAnexo    As Object
    Const olMailItem = 0
    Const olByValue = 1


    '---------------------------------------------
    'Carregando a coleção do Outlook
    'Similar ao abrir o Outlook
    '---------------------------------------------
    Set objOut = CreateObject("Outlook.application")

    '------------------------------------------------------------
    'Abrindo o formulário de email para inserir os itens de email
    'Similar ao clicar no botão NOVO do Outlook
    '------------------------------------------------------------
    Set objmail = objOut.CreateItem(olMailItem)

    '------------------------------------------------------------
    'Abrindo a opção anexo
    'Similar ao clicar no botão ANEXO do Outlook
    '------------------------------------------------------------
    Set objAnexo = objmail.Attachments

    '---------------------------------------------------------------------------------
    'Indico o nome do arquivo pdf e o local que será gravado
    'O local que escolhi para gravar os arquivos de pdf gerados
    'é na pasta enviados, aonde se encontra o aplicativo.
    'Neste exemplo, gero os nomes dos arquivos, aproveitando o número exclusivo
    'do cliente.  Então os arquivos vão ficar com o aspecto: rlt1.pdf, rlt2.pdf, ...
    'É claro que vc poderá gerar o nome que achar mais conveniente.
    '---------------------------------------------------------------------------------
    strArquivo = Replace(Me!cam7, "/", "_") & " _ " & Me![001] & ".pdf"
    strLocal = CurrentProject.Path & "\Oficios\Oficios Expedidos\" & strArquivo

    'Salvando alterações no registro
    If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord

    '----------------------------------------------------------------------------
    'Abre o relatório filtrado e oculto de acordo com o cliente selecionado.
    '----------------------------------------------------------------------------
    DoCmd.OpenReport "Oficio Normal1", acViewPreview, , "[001] = " & [001], acHidden

    '----------------------------------------------------------------------------------------
    'gero o pdf do relatório através do comando outputto.
    'o mecanismo do Access reconhece que o relatório solicitado pelo outputto já está aberto
    'e então o outputto usará o relatório já aberto e filtrado.
    '-----------------------------------------------------------------------------------------
    DoCmd.OutputTo acOutputReport, "Oficio Normal1", acFormatPDF, strLocal
    Dim numCop As Integer
      numCop = InputBox("Informe a quantidade de cópias: ", "IMPRIMIR") 'Valor este que pode ser obtido por outro meios
      DoCmd.PrintOut acPrintAll, , , acHigh, numCop 'Linha simplificada para a impressão

    '-------------------------------------------
    'fecha o relatório clientes que está oculto
    '-------------------------------------------
    DoCmd.Close acReport, "Oficio Normal1"

    '--------------------------------------------------------
    'adiciona o arquivo pdf no anexo
    '-------------------------------------------------------
    objAnexo.Add strLocal, olByValue, 1

    '-----------------------------------------------------------------
    'Mostra a tela de sáida de email que abrimos
    '-----------------------------------------------------------------
    objmail.Display


    '-------------------------------------------------------
    'Tudo já foi entregue ao outlook, então podemos esvaziar
    'a memoria do computador usada pelas variáveis
    '-------------------------------------------------------
    Set objAnexo = Nothing
    Set objmail = Nothing
    Set objOut = Nothing
    End Sub


    Última edição por mfmaiafilho em 2/4/2020, 14:36, editado 1 vez(es)
    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 11/05/2012

    [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook. Empty Re: [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook.

    Mensagem  grbpereira em 22/3/2020, 16:51

    Caro Maia Filho! cheers

    O Próprio Access (bem como todos os produtos Microsoft); tem essa opção.  Exclamation

    Mas para o usuário final, é importante, sim deixar o mais simples possível.  Exclamation

    Fiz dois exemplos para te ajudar a caminhar nesse mundão do Access!!! study  study

    Peço-te, por favor, sem jamais eu faltar com respeito à minha colocação, junto a Você: "Observe os relacionamentos entre as Tabelas e as Cardinalidades".  Smile  Smile

    Aqui no Fórum temos MESTRES   king   queen   que cederam EXCELENTES  What a Face  What a Face  conteúdos a esse respeito.  farao  farao  farao  afro  afro  afro



    Nosso Forte e cordial abraço,
    Guilherme Pereira
    Anexos
    [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook. AttachmentALFATEC (V 2).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (233 Kb) Baixado 9 vez(es)
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 194
    Registrado : 02/08/2018

    [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook. Empty Re: [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook.

    Mensagem  mfmaiafilho em 23/3/2020, 12:11

    bom dia tudo bem ? não é isso que queria fazer, eu gostaria mesmo é de apertar em um botão e simplesmente ele enviar para o anexo do Outlook, pra pessoa que está gerando essa lista não ter tanto trabalho de salvar e depois anexar pra enviar ....

    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 11/05/2012

    [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook. Empty Re: [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook.

    Mensagem  grbpereira em 23/3/2020, 18:43

    Caro Mizael!! cheers  cheers

    Por favor, veja a regra que foi utilizada na tabela Cliente; seguindo o modelo, pode usar para quaisquer formulários! study study study



    Meu forte e fraterno abraço!
    Guilherme Pereira
    Anexos
    [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook. AttachmentALFATEC (V 4 - melhorada).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (142 Kb) Baixado 4 vez(es)
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 194
    Registrado : 02/08/2018

    [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook. Empty Re: [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook.

    Mensagem  mfmaiafilho em 23/3/2020, 19:57

    amado eu consegui fazer, porém não consigo colocar Email para quem está enviando e nem o assunto

    deveria ser algo do DoCmd.SendObject mas não consigo conciliar um com o outro


    da uma olhadinha...
    veja se consegue quebrar essa pra mim....
    Anexos
    [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook. AttachmentLista de Preços ALFATEC.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (901 Kb) Baixado 6 vez(es)
    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 11/05/2012

    [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook. Empty Re: [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook.

    Mensagem  grbpereira em 23/3/2020, 20:22

    Caro Mizael!


    Estamos puxando cordas para lados opostos!


    Por favor, veja que a Equipe do Fórum se uniu para resolver o problema apresentado; e na mensagem anterior, pedimos a observância no tratamento dos dados; infelizmente, estes se encontram dispersos e a Regra de Negócio (Relacionamento das tabelas) não foi feita. Sad(

    Por favor, canalize suas energias em primeiro resolver a Questão das Tabelas relacionadas (Nomes, PK, FK e outros). Por ora, deixe a parte de layout de lado  pois temos Mestres aqui no Fórum que perguntaram se não o alertamos a este respeito (e olha que os caras são feras).


    Fique Seguro, Tranquilo e Muito à vontade, que SIM, NÃO O DEIXAREMOS NA ESTRADA!
    Mas pedimos que reorganize o seu sistema para podermos te ajudar.


    IMPORTANTE: APLIQUE O MODELO QUE ENVIAMOS A RESPEITO DO OUTLOOK, QUE ELE RESPONDE ÀS NUANCES EM QUESTÃO!



    [url=[Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook. Mizael12]


    Última edição por grbpereira em 23/3/2020, 20:47, editado 1 vez(es)
    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 11/05/2012

    [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook. Empty Re: [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook.

    Mensagem  grbpereira em 23/3/2020, 20:43

    Caro Mizael, estamos disponibilizando estas duas RARAS BIBLIOTECAS EXEMPLOS!study study study


    Inclusive, quaisquer uma destas, podem perfeitamente serem transformadas no seu Sistema; e as relações já estão feitas!cheers cheers cheers


    Fique Muito à Vontade para nos consultar; à qualquer momento, e queremos ver esse Sistema tinindo, viu???!! lol! lol! lol!



    Nosso Sempre Fraterno e Cordial abraço,
    Guilherme
    Anexos
    [Resolvido]botão para imprimir em pdf e enviar esse pdf para um anexo outlook. AttachmentNorthwind 2000.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (955 Kb) Baixado 5 vez(es)

      Data/hora atual: 21/9/2020, 20:33