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

2 participantes

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

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4704
    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 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


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10764
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4704
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4704
    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 28/9/2019, 10:22

    up


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

      Data/hora atual: 10/8/2022, 19:18