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


    [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 : 73
    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 7 vez(es)
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 73
    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 3 vez(es)
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 73
    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 5 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 2 vez(es)

    Conteúdo patrocinado

    [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  Conteúdo patrocinado


      Data/hora atual: 3/4/2020, 07:33