[Resolvido]Duvida na utilização de código em vba

Boas,
o meu "problema" é o seguinte: preciso de enviar email a vários destinatários ao mesmo tempo da base de dados que estou a criar, já procurei aqui no fórum e encontrei código para resolver essa mesma questão, mas acontece que sou um 0 em vba e este é mesmo o primeiro contacto que tenho com ele e não sei mesmo o que devo fazer com esse código. se alguém me puder dar umas indicações fico agradecida.

obrigada desde já

Olá seja bem vinda ao fórum.

É simples, veja que não custa nada.

Entre nas propriedades de um botão que você irá colocar no seu formulário, na aba Eventos entre nos 3 pontinhos da linha ao Pressionar, cole este código e altere para os nomes corretos da sua tabela ou consulta.

Private Sub SeuBotao_Click()
Dim rst As DAO.Recordset
Dim strDestinatarios
Dim strTitulo
Dim strMensagemCorpoDoEmail

Set rst = CurrentDb.OpenRecordset("SuaTabela ou SuaConsulta")

Do Until rst.EOF
strDestinatarios = strDestinatarios & rst("CampoEmailDestinoDaTabela") & ";"
rst.MoveNext
Loop

strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 1)
strTitulo = "teste"
strMensagemCorpoDoEmail = "Obrigado"

On Error Resume Next
DoCmd.SendObject , , , strDestinatarios, _
, , strTitulo, strMensagemCorpoDoEmail, True, False

rst.Close
Set rst = Nothing
End Sub

MissF, seja bem vinda ao forum.
Ia postar minha mensagem quando vi que o grande JPaulo já havia te respondido.
Então, alterando a minha mensagem, no caso de ainda não conseguir resolver seu problema, e considerando que você não tem conhecimentos em VBA, talvez fosse interessante detalhar o que você precisa, como precisa que os emails sejam enviados, que elementos compoem a origem de dados, tais como tabela e campos da tabela. Se você puder colocar parte do seu sistema em um site público para que os experts do forum possam baixar e analisar na medida do possível, fica mais fácil.
Abraços.

Grande JPaulo, esse exemplo é ótimo, mas tem como enviar daquela forma direta sem abrir o outlook?
Abraço

Bom dia,
agradeço muito desde já a todos os que se disponibilizaram para me ajudar, com o exemplo do JPaulo consegui deixar o botão a funcionar porém agora surgiu-me outra questão, é possível enviar o email apenas para alguns dos contactos que estão na tabela? actualmente envia para todos, eu pensei em seleccionar os mails que iriam receber os contactos (fazer a selecção no formulário por exemplo) e enviar para esses apenas, é possível?

Olá bom dia;

Se não quer para todos da tabela, mande pela consulta que essa já consegue filtrar.

Pode inserir um novo campo na tabela com formato chekBox, aí na consulta pode filtrar pelos que estiverem marcados.

No criterio dessa chekbox na consulta, você coloca =-1

Fiz exactamente isso e resultou, já está a enviar emails para os contactos que selecciono, no entanto envia o mesmo email 4 vezes para o mesmo contacto ainda não consegui perceber porque, mas a ajuda foi valiosa obrigada.

Boa Tarde

Com a permissão do Mestre JPaulo e do Moderador Criquio

Tenho um perfeito exemplo que além de lhe permitir aprender vai resolver o problema. Trata-se de um form com 2 listas que capta os emails a partir de uma consulta. pode seleccionar os que quizer e enviar os seleccionados ou a consulta toda. Vou posta-lo aqui no fórum dentro de 30 minutos (+/-) por motivos óbvios. Se quizer aguarde e o problema está resolvido!

Então cá estou

Motivos óbivios é que estava num cliente a reparar a internet (entrei no Fórum como teste) e não tinha o meu computador comigo. Agora o exemplo:

Da sua tabela clientes faça uma consulta com o campo nome do cliente e email conforme o exemplo que lhe envio. Atenção: Junto com o exemplo na secção módulos vão 4 que obrigatóriamente tem que ser copiados para a sua aplicação.

Verifique também que na minha consulta no campo email em critério aparece isto."<>"IsNull". Isto diz à consulta que só deve mostrar os clientes que possuem emails e ignorar os que não tem..Certo! caso contrário a lista seria uma lista de clientes e não de emails!

Aqui vai o link para download... http://dl.dropbox.com/u/8157744/bdmail.mdb

Após apreciação do exemplo o Administrador irá certamente coloca-lo no sitio de exemplos válidos para todos.

E não esqueça em divulgar o melhor Fórum de access...Este! Se tiver dúvidas coloque-as aqui para que todos possamos partilhar e ajudar.

Gostei bastante desse exemplo,vou agora mesmo utiliza-lo na minha aplicação. Mais tarde passo aqui para contar como ficou.

Muito agradecida

Gostei do exemplo amigo Vieira, mas e como vai escrever aí o título, a mensagem no corpo do email ou adicionar um ficheiro?

Veja aqui um pouco mais complexo mas fácil se entender;

Alterem a Referencia no VBA, Microsoft Outlook 12.0 Object library para a 11.0 se não tiverem o Access 2007.

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

Mestre:

Antes de os emails serem enviados abre o gestor de correio para que o utilizador possa anexar ou escrever o que pretende e se é para um conjunto de clientes â partida será o mesmo corpo para todos. Logo os emails não são enviados em modo silencioso. Não sei se percebi bem a sua questão, mas se foi a que eu penso então não terá problema uma vez que o que foi pedido foi o envio de um grupo de emails a partir de uma consulta. Peço deeculpa porque nem lembrei que tinha esse exemplo do Mestre comigo também e que responde perfeitamente ao solicitado.

Boa tarde
Segui as vossas indicações e realmente ficou a funcionar

problema resolvido
abraço

Obrigado pelo retorno.

Valeu JPaulo, obrigadão

Valew.