[Resolvido]Consultar por email

Bom dia, boa semana e boas bd.

Estou a criar uma consulta que dê os contactos de email de determinadas pessoas (esta já esta feita), o passo seguinte era arranjar forma de poder enviar email comum para os contactos que resultaram da consulta sem precisar de seleccionar um a um e colar no browser, fazer de forma que abrisse o programa de envio de correio electrónico pré definido pelo utilizador.

Alguma dica?
Pesquisei no forum, mas não encontrei nada.

Obrigado.

Tem aqui um exemplo de envio de email para grupos. Veja se serve

http://www.svcsoftwarehouse.com/detalhes-aplic-c-login.php?codigo=0000000005

Obrigado, vou analisar ...

Amigo

Não retornou e como já abriu outros tópicos entretanto, presumo que resolveu e esqueceu de retornar. Vou dar o tópico por resolvido. Qualquer coisa reabra.

Desculpe amigo, peço imensa desculpa.

Ficou resolvido sim, mas como entretanto surgiram outros problemas, passou-me completamente.

O meu muito obrigado mais uma vez.

Obrigado pelo retorno e forte abraço

Igualmente...

cá estou novamente....

eu peguei neste exemplo para a BD que estava a elaborar na altura... agora estou com outra e estou a pretender adaptar este exemplo a minha nova bd, basicamente era colocar antes das caixas uma comb que me filtra-se por eventos e depois me devolve-se os participantes e email agregados a esse evento....

estou a tentar construir o código para o formulário Enviar Email com ajuda dos vossos exemplo e dicas que me têm vindo a dar...mas....tá complicadito...

GesPartEvent_III

Veja se é isto que quer;

http://dl.dropbox.com/u/771097/GesPartEvent_OLD_IV.rar

Isso mesmo....

Quando você usa o comando Me. (é referente ao objecto que se está a definir função? If Me. = Se Eu.????

Qual o campo/código que tenho de alterar para em vez de aparecer os email aparecer os nomes?

Ab

O Me. é utilizado para se referenciar ao controle activo.

Para alterar tem de ser na origem da listbox;

Propriedades, Guia Dados e Origem da Linha, pressione os 3 pontinhos do Select e altere.

Ok.

Exelente... estava com receio de fazer asneira...

ja está alterado... Obrigado...

Então e o Resolvido ?

Tenho de colar um post-it no meu ercã... Desculpem mais uma vez....

Tranquilo....

Detectei um problemazito nesta situação do email... pois quando "ENVIAR" ele abre o outlook e no campo para: apenas coloca os nomes, não os endereços de email como é pretendido...

Ja dei voltas pelo VB a tentar compreender pq que não esta a funcar direito, mas nada...

Veja a alteração;

http://dl.dropbox.com/u/771097/GesPartEvent_OLD_V.rar

1º Nas propriedades da listbox "lstNomes" no form "Enviar Email", na Guia Dados, entrei nos 3 pontinhos da origem da linha, fui ao SQL e na consulta que abre, coloquei a primeira coluna "Nome", a segunda coluna "Email" e mantive a terceira coluna "Área ou Tema do Evento" com o criterio do Like [Forms]![Enviar Email]![cboEventos2].

Assim essa consulta que a contagem começa sempre por zero colunas, como:

Column(0)= Nome
Column(1)=Email

Então no código, ficou:

Private Sub Comando111_Click()

Dim intCont As Integer, strDest As String

If Me.lstDestinatários.ListCount = 0 Then 'não foi selecionado nenhum nome.
MsgBox "Escolha um Destinatário pelo menos!", _
vbCritical, "Envia e-mail"
Exit Sub
Else
For intCont = 0 To Me.lstDestinatários.ListCount - 1
If Me.lstDestinatários.Column(0, intCont) <> "" Then
strDest = strDest & Me.lstDestinatários.Column(1,intCont) & ";"
End If
Next intCont
End If

Application.FollowHyperlink "mailto:" & strDest

End Sub

Quais serão as possibilidades de:

Copiar o código exactamente como está ...proceder as alterações igual.... e ...quando fiz ver em formulário.....

....simplesmente aparece a minha imagem de fundo???? nem botões....caixas...combx....nada?

Mas quando escolho vista de estrutura está lá tudo...

Uma coisa no mínimo estranha, não?


o VB da for está assim:

Option Compare Database
-------------------------------------------------
Private Sub cmdFechar_Click()
DoCmd.Close
End Sub
-------------------------------------------------
Private Sub cboEventos2_AfterUpdate()
Me.txtFiltra.Value = Me.cboEventos2.Column(1)
Me.txtFiltra.Requery
Me.lstNomes.Requery
Me.cboEventos2 = ""
End Sub
---------------------------------------------------
Private Sub Comando111_Click()

Dim intCont As Integer, strDest As String

If Me.lstDestinatários.ListCount = 0 Then 'não foi selecionado nenhum nome.
MsgBox "Escolha um Destinatário pelo menos!", _
vbCritical, "Envia e-mail"
Exit Sub
Else
For intCont = 0 To Me.lstDestinatários.ListCount - 1
If Me.lstDestinatários.Column(0, intCont) <> "" Then
strDest = strDest & Me.lstDestinatários.Column(1, intCont) & ";"
End If
Next intCont
End If

Application.FollowHyperlink "mailto:" & strDest

End Sub
----------------------------------------------------------
Private Sub Comando0_Click()
DoCmd.Close
End Sub
----------------------------------------------------------
Private Sub lstNomes_AfterUpdate()
'On Error Resume Next

Me.lstDestinatários.Requery
End Sub
---------------------------------------------------------
Function PreencheLista(ctl As Control, varID As Variant, _
lngRow As Long, lngCol As Long, intCode As Integer) As Variant

On Error GoTo PreencheLista_Err

Static strNome() As Variant
Dim varRet As Variant 'retorno da função.

Select Case intCode
Case acLBInitialize 'Inicializa.
Dim varItem As Variant, i As Integer
With Me.lstNomes
ReDim strNome(.ListCount, 1)
For Each varItem In .ItemsSelected
strNome(i, 0) = .Column(0, varItem)
strNome(i, 1) = .Column(1, varItem)
i = i + 1
Next varItem
End With
varRet = True
Case acLBOpen 'Abre.
varRet = Timer 'Gera código exclusivo.
Case acLBGetRowCount 'Obtém linhas.
varRet = -1 'Valor desconhecido. O Access irá descobrir o nº de linhas.
Case acLBGetColumnCount 'Obtém colunas.
varRet = 2
Case acLBGetColumnWidth 'Obtém a largura da coluna.
varRet = -1 'Utiliza a largura padrão.
Case acLBGetValue 'Obtém os dados.
varRet = strNome(lngRow, lngCol)
Case acLBEnd

Erase strNome()
End Select

PreencheLista = varRet 'Passa o resultado para a função.
Exit Function

PreencheLista_Err:
MsgBox Err.Description, vbCritical, "Preencher Lista"

End Function

Entre nas propriedades desse form "Envia Email", guia Dados e apague a Fonte de Registo "ConsEmailParticipantes".

Esse formulario não necessita de estar vinculado a nenhuma consulta.

OK OK ....Resolvidissimo..... té ver....

Agradecido grande mestre... e restantes...

Obrigado como sempre





(nao me esqueci do resolvido)

Bom Dia...

Mester JPaulo ocorreu-me a ideia de quando ENVIA os mails para o outlook perguntar se o utilizador deseja criar um relatório dos mails seleccionados e enviados... "Deseja Relatório de Envio?"

É possível?

Ab

Sim é possivel sem duvida alguma.

Só tem de nos dizer que tipo de relatorio e quais os dados que deve conter.

Basicamente seria :

Titulo : Relatório de envio de Endereços de Correio Electrónico

Nome: (Nome do Participante)

Email: (Email do Participante)

Data de Envio: [=Agora()]

Obrigado

Será isto ?


Faça o envio e veja;

http://dl.dropbox.com/u/771097/GesPartEvent_OLD_VI.rar

É isto mesmo...a função...

Ele está a fazer o update sempre ao mesmo relatório, logo daqui por um tempo ele vai ter uma lista enorme de envios...
se isto for possível, dá para colocar

Relatório xxx xxx

Nome - Email
Nome - Email
(...)
Data...

e sempre que se envia ele cria um "novo" ...como um relatório normal...???

Possivel é...

Mas imagine 5000 envios e vai criar 5000 relatorios ????

Não esqueça, que um banco Access apenas comporta 2Gigas e um dia vai deixar de funcionar.

Não é boa pratica essa.

Pense bem no que pretende.

sim tem toda a razão... e era mesmo isso que pretendia evitar.

Da mesma forma quando se gera um relatório de uma consulta ele não adiciona novos relatórios a bd ele usa sempre o mesmo. Tipo ele colocava a a info no relatório e "apagava", basicamente como se fosse de uma consulta.

Então pode utilizar como está, bastando para isso dar-lhe com um delete para cima:

CurrentDb.Execute "Delete * From SuaTabela"

Bom final de semana

Igualmente

Ab

Não esquecer o Resolvido

Boas...eu não coloquei resolvido, porque ainda havia umas duvidas que queria tentar resolver, mas também não quero ser chato e incomodar o pessoal durante os dias de descanso... segunda-feira ou domingo a noite colocava a minha duvida..só por isso.

Ab.

Então,pode abrir um outro tópico. Tópicos muito extensos são confusos para quem aqui vem em busca de ajuda e respostas.

Bom fim de semana e abraço

Tem lógica.

Obrigado, bom fim de semana!

Ab