Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

1 de abril de 2013

VBA Outlook - Inserindo assinatura no e-mail com o Early Binding - Insert Outlook Signature in mail


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 (12 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 Object
Dim OutMail As Object

Set OutMail = OutApp.CreateItem(0)

Por estas 3 linhas:

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem

Set OutMail = OutApp.CreateItem(olMailItem)

ReferênciaRon de Bruin 

Tags: VBA, Outlook, email, e-mail, send, enviar, assinatura, signature, Early Binding, Late Binding, Intellisense, 



Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine