Dúvida exemplo Envio de e-mail com anexo(s)

Tópico de origem da dúvida: https://www.maximoaccess.com/t18584-envio-de-e-mail-com-anexos
----------------------------------------

tentei abrir aqui, mas deu a seguinte mensagem:

'O codigo desse projeto deve ser atualizado para uso em sistemas de 64 bits. Analise e atualize as intrucoes Declare e, em seguida, marque-as com o atributo PtrSafe


No caso, o erro esta no modulo mosAnexarArquivos

Código:

Option Compare Database

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Vini.magrin,
acredito que teu sistema é 64 bits, aprendi com o ahteixeira que tem que usar o PtrSafe na frente da função, no exemplo começa assim.

Public Declare Function

Altere para
Public Declare PtrSafe Function

Deve funcionar

Roxo

Olá a todos,

Vinicius Magrin, tópico dividido e movido.
Tenha atenção com as REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

Tópico de origem da dúvida: https://www.maximoaccess.com/t18584-envio-de-e-mail-com-anexos

Siga as indicações do nosso colega Roxo, se pretender que funcione em 32Bit e 64Bit veja tópico abaixo:
https://www.maximoaccess.com/t19146-resolvidoaplicacao-access-de-32-bits-nao-roda-em-64-bits

Abraço