VBA Access - Como enviar emails, via SMTP, usando o CdoSys

Neste artigo irei demonstrar como enviar emails, via SMTP, usando o componente CdoSys. Este componente costuma ser instalado automaticamente com as novas versões do Windows ou quando instalamos alguns programas como, por exemplo, o Outlook.

O que é o CdoSys?

Resumidamente falando, é um componente criado pela Microsoft que tem por finalidade fornecer argumentos para o envio de emails via SMTP. Este componente fornece todos os argumentos presentes em programas de emails e webmails, tais como: título da mensagem, destinatário, com cópia (cc), com cópia oculta (cco), corpo da mensagem e envio de anexos.

Uma vantagem que temos ao usar este componente, é que podemos fornecer a opção de envio de mensagens com anexos diretamente do aplicativo, seja ele Access, Visual Basic, seja implementando em uma página web integrada à linguagem Asp ou Php, por exemplo.

Como faço para utilizar esse recurso?

Em primeiro lugar, é necessário conferir se o sistema possui a DLL CdoSys instalada na pasta System32. Caso tenha, é provável que ela esteja presente nas referências do módulo VBA do seu aplicativo. Para conferir se ela faz parte da lista, abra qualquer formulário em modo estrutura ou design e abra o módulo VBA do mesmo, ou pressione as teclas ALT+F11. Já no módulo, clique no menu Ferramentas e depois em Referências. Consulte na lista de referências se existe a “Microsoft CDO for Windows 2000 Library”. Em caso positivo, marque-a.

Caso ela não esteja presente nas referências, clique no botão Procurar, localize-a e confirme.

Se tudo der certo, ela já estará presente e referenciada. Caso não dê certo, pode ser que seja necessário registrá-la. Para isso, abra o prompt do DOS ou cmd, digite regsvr32 cdosys.dll e dê Enter. Se tudo funcionar direitinho, será exibida a mensagem de Sucesso.

OK, ela já está registrada e referenciada no VBA, e agora?

Agora chegou a hora de declarar variáveis que representarão as rotinas presentes na DLL e que são responsáveis pelo desempenho das funções que lhe são competentes.

Em primeiro lugar, precisamos declarar as variáveis que representarão o objeto CdoSys e instanciá-las:

Para acessar o tutorial completo visite o link http://usandoaccess.com.br/tutoriais/tuto38.asp