InícioBom dia Amigos
Neste exemplo que anexo
Neste exemplo que anexo
2 participantes
Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº1
Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar
Assis 24/9/2019, 09:08
.................................................................................
*** Só sei que nada sei ***
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
- Mensagem nº2
Re: Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar
JPaulo 24/9/2019, 14:20
Não sei se entendi direito;
Ao pressionar no item da sua lista;
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
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº3
Re: Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar
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
Não uso o Outlook.
Queria copiar o caminho do PDF e colar como anexo num mail
Obrigado
.................................................................................
*** Só sei que nada sei ***
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº4
Re: Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar
Assis 28/9/2019, 10:22
up
.................................................................................
*** Só sei que nada sei ***
Conteúdo patrocinado
- Mensagem nº5
Re: Copiar linha selecionada numa caixa de Listagem para colar como anexo num email a enviar
Conteúdo patrocinado
Tópicos semelhantes
» [Resolvido]Clikar em linha numa caixa de listagem para abrir formulario que tem outra caixa de listagem e filtrar dados
» [Resolvido]Enviar Email com o Anexo no corpo do Email.
» Como enviar dados de uma caixa de combinação para uma caixa de listagem
» [Resolvido]enviar itens de uma caixa de listagem para caixa de texto
» [Resolvido]Como faço para abrir uma outra tela após ter selecionada uma linha inteira em meu formulário?
» [Resolvido]Enviar Email com o Anexo no corpo do Email.
» Como enviar dados de uma caixa de combinação para uma caixa de listagem
» [Resolvido]enviar itens de uma caixa de listagem para caixa de texto
» [Resolvido]Como faço para abrir uma outra tela após ter selecionada uma linha inteira em meu formulário?