Pesquisando no forum encontrei o código abaixo do JPaulo (moderador) que envia email pelo access. Adaptei ao meu projeto e funciona perfeitamente. Ele utiliza o Outlook para enviar, preciso utilizar o Zimbra. Alguém poderia me ajudar?
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("CampoEmailDestino") & ";"
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
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("CampoEmailDestino") & ";"
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