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

    VBA - Salvar e-mail em PDF na área de trabalho

    avatar
    jairdsmg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 30/07/2016

    VBA - Salvar e-mail em PDF na área de trabalho Empty VBA - Salvar e-mail em PDF na área de trabalho

    Mensagem  jairdsmg 21/9/2018, 02:45

    Boa noite a todos! Meu nome é Jair. Estou precisando de uma ajuda. Com o código abaixo, inserido em um módulo no EXCEL VBA, eu consigo visualizar os e-mails da minha caixa de mensagens enviadas. Porém gostaria
    de completar o código para que depois que abrisse o e-mail, ou seja, após o olItem.Display, eu salvasse
    o corpo deste e-mail em PDF na área de trabalho. Alguém pode me ajudar? O unico código que achei imprimia a planilha ativa do excel, isso eu não quero, eu quero imprimir o e-mail. Desde já agradeço.


    Sub AbrirEmail()

    Dim appOutlook As Object
    Dim olNS As Object
    Dim olFolder As Object 'repartições dentro do outlook ex: mensagens enviadas
    Dim olItem As Object 'representa cada email ex: enviado, recebido, etc


    If (msgBox("Deseja visualizar agora?", vbYesNo, "Confirmação") = vbYes) Then
    On Error Resume Next
       Set appOutlook = GetObject(, "Outlook.Application")
          If appOutlook Is Nothing Then
       Set appOutlook = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0

    Set olNS = appOutlook.GetNamespace("MAPI")
    Set olFolder = olNS.Folders("meuemail@outlook.com").Folders("Mensagens Enviadas")
     
       For Each olItem In olFolder.Items

    If olItem.Subject Like "*" & "Devolução " & "*" Then

    olItem.Display

    *Codigo a acrescentar para imprimir em pdf o e-mail que está sendo visualizado.?????*
           
           Set olItem = Nothing
           Set appOutlook = Nothing
           
    End If
         Next olItem

    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    VBA - Salvar e-mail em PDF na área de trabalho Empty Re: VBA - Salvar e-mail em PDF na área de trabalho

    Mensagem  JPaulo 21/9/2018, 11:44

    Amigão seja bem vindo ao forum.

    Este é um fórum exclusivo de Ms Access, o seu tópico será movido para a sala Off-Topic.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    VBA - Salvar e-mail em PDF na área de trabalho Folder_announce_new Utilize o Sistema de Busca do Fórum...
    VBA - Salvar e-mail em PDF na área de trabalho Folder_announce_new 102 Códigos VBA Gratuitos...
    VBA - Salvar e-mail em PDF na área de trabalho Folder_announce_new Instruções SQL como utilizar...
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    VBA - Salvar e-mail em PDF na área de trabalho Empty Re: VBA - Salvar e-mail em PDF na área de trabalho

    Mensagem  Uilson Brasil 21/9/2018, 17:07

    jairdsmg,

    Com a licença do amigo "JPaulo". Caso queira fazer uma adaptação, no link abaixo há várias referências.

    google.com/search?hl=pt&as_q=&as_oq=salvar+pdf&as_sitesearch=www.maximoaccess.com

    [Não são permitidos links extrnos, colocar desta forma]


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access
    avatar
    jairdsmg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 30/07/2016

    VBA - Salvar e-mail em PDF na área de trabalho Empty Re: VBA - Salvar e-mail em PDF na área de trabalho

    Mensagem  jairdsmg 27/9/2018, 18:53

    Obrigado!. Vou tentar adaptar!

    Conteúdo patrocinado


    VBA - Salvar e-mail em PDF na área de trabalho Empty Re: VBA - Salvar e-mail em PDF na área de trabalho

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 01:48