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


    Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3931
    Registrado : 06/11/2009

    Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar Empty Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar

    Mensagem  Assis em 24/9/2019, 09:08

    Bom dia Amigos

    Neste exemplo que anexo

    Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar Sem_t113
    Anexos
    Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar AttachmentGestão de PDF.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (755 Kb) Baixado 10 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar Empty Re: Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar

    Mensagem  JPaulo em 24/9/2019, 14:20

    Não sei se entendi direito;

    Ao pressionar no item da sua lista;

    Código:
    Private Sub Lista0_Click()
    Dim subject As String, Body As String
    Dim intLinha%
    Dim olMailItem
    Dim OutApp As Object
    Dim OutMail As Object
     
      On Error Resume Next
      Set OutApp = GetObject(, "Outlook.Application")
      If OutApp Is Nothing Then
        Set OutApp = CreateObject("Outlook.Application")
      End If
      On Error GoTo 0
     
      Set OutMail = OutApp.CreateItem(olMailItem)
     
      With OutMail
     
      For intLinha = 0 To Lista0.ListCount - 1
        Me.Lista0.Selected(intLinha) = True
    Next intLinha

         
        .To = ""
        .subject = "Teste"
        .Body = CurrentProject.Path & "\PDF\" & Me.Lista0.Column(0)
        '.send
        .display
      End With
     
      Set OutMail = Nothing
      Set OutApp = Nothing
    End Sub


    .................................................................................
    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

    Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar Folder_announce_new 102 Códigos VBA Gratuitos...
    Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3931
    Registrado : 06/11/2009

    Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar Empty Re: Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar

    Mensagem  Assis em 24/9/2019, 18:19

    JPaulo

    Não uso o Outlook.

    Queria copiar o caminho do PDF e colar como anexo num mail

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3931
    Registrado : 06/11/2009

    Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar Empty Re: Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar

    Mensagem  Assis em 28/9/2019, 10:22

    up


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado

    Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar Empty Re: Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/10/2019, 03:15