Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
![[Resolvido]ENVIAR EMAIL Empty](https://2img.net/i/empty.gif)
ivail.peixoto 16/4/2012, 21:21
Dim olk as Outlook
Dim msg as MailItem
Set msg = createItem(olMailItem) ' cria o email
msg.subject = "Assunto aqui"
msg.recipients.add("email@provedor.com")
msg.body = "Corpo do email"
msg.Attachment.add("anexo.extensão")
msg.display 'mostra o email
msg.send 'Envia o mesmo
