Amigos, criei o seguinte codigo :
If DCount("*", "qry_envio_mail_Solange") > 0 Then
DoCmd.RunMacro "qry_envio_mail_Solange"
DoCmd.SetWarnings False
Else
Exit Sub
End If
este codigo verifica se a consulta "qry_envio_mail_Solange" contem dados e se tiver dados executa a macro "qry_envio_mail_Solange". a linha "DoCmd.SetWarnings False" supostamente deveria remover todas as mensagens de aviso quando o mail esta a ser enviado mas, a mensagem aparece sempre e nao consigo que o codigo oculte a mensagem ..."um programa está a tentar enviar uma mensagem de correio electronico ... etc etc". Alguem me pode dar uma ajuda?
abraço
If DCount("*", "qry_envio_mail_Solange") > 0 Then
DoCmd.RunMacro "qry_envio_mail_Solange"
DoCmd.SetWarnings False
Else
Exit Sub
End If
este codigo verifica se a consulta "qry_envio_mail_Solange" contem dados e se tiver dados executa a macro "qry_envio_mail_Solange". a linha "DoCmd.SetWarnings False" supostamente deveria remover todas as mensagens de aviso quando o mail esta a ser enviado mas, a mensagem aparece sempre e nao consigo que o codigo oculte a mensagem ..."um programa está a tentar enviar uma mensagem de correio electronico ... etc etc". Alguem me pode dar uma ajuda?
abraço