O código nesta página só funciona quando você usa o Outlook como seu programa de email.
Early Binding (Compreendendo o Early Binding e o Late Binding)
Se quisermos melhorar o que desenvolvemos nos três códigos anteriores (1, 2 e 3) e usarmos a ajuda do Intellisense para nos mostrar as propriedades e métodos dos objetos, bem como os seus tipos, podemos implementar a técnica do Early Binding.Isso certamente tornará a aplicação um pouco mais rápida ao executar o código, mas poderemos ter problemas ao distribuirmos as planilhas. O MS Excel automaticamente atualizará a versão da referência feita no MS Outlook quando abrirmos nossa planilha na versão mais atualizada disponível, mas não a atualizará quando esta for aberta numa versão inferior.Com o Late Binding como usei nos exemplos de código, não teremos tal problema.
Adicione uma referência para o Microsoft Outlook Library no Excel:
1) Vá para o editor VBA com as teclas de combinação Alt - F11.2) Clique em Ferramentas / Referências no Menu.3) Marque a caixa antes de Microsoft Outlook XX Object Library. O valor que estiver em XX será o número da versão do MS Outlook.
Então troque as três linhas de código abaixo:
Dim OutApp As ObjectDim OutMail As ObjectSet OutMail = OutApp.CreateItem(0)
Por estas 3 linhas:
Dim OutApp As Outlook.ApplicationDim OutMail As Outlook.MailItemSet OutMail = OutApp.CreateItem(olMailItem)
Referência: Ron de Bruin
Tags: VBA, Outlook, email, e-mail, send, enviar, assinatura, signature, Early Binding, Late Binding, Intellisense,
Nenhum comentário:
Postar um comentário