✔ Programação GLOBAL®: MS Outlook

Mostrando postagens com marcador MS Outlook. Mostrar todas as postagens

A&A - In Any Place

A A&A - In Any Place foi criada 2005 como uma consultoria de desenvolvimento de software. Ao passo que um dos fundadores envolvia-se em diversos projetos simultâneos, passando por diversas empresas em diferentes modelos de negócio, a A&A foi transformando-se numa consultoria com um expertise bem específico e necessário no mercado corporativo.

Um dos seus focos sempre foi o de estender suporte a criação de aplicações desenvolvidas com a suíte MS Office da Microsoft, o que se mostrou-se muito útil a comunidade de utilizadores dessa plataforma. Já existia então uma ampla comunidade com profissionais que utilizam as clássicas soluções MS Excel, MS Word, MS Access, MS PowerPoint, MS Outlook, sem qualquer experiência de desenvolvimento, subutilizando os recursos pouco explorados.

Com o passar dos anos cada uma dos produtos do Office avançaram, tornando-se verdadeiras plataformas de desenvolvimento VBA - Visual Basic for Application - devido aos seus recursos de automação, intrinsecamente existentes em seu core, comum a todos os produtos da suíte.

Essa vertente vem sendo trilhada neste mercado por muitos anos, visto haver uma enorme carência por desenvolvedores profissionais disponíveis.

A empresa passou a oferecer cursos in company, pessoais e online. Além disso, Blogs com inúmeras dicas e centenas de artigos foram implementados, os quais ainda continuam ativos com grande audiência e contribuições.

Blog ✔ VBA Brazil®

Blog focado em ampla comunidade de desenvolvedores da área de TI. Alto e médio poder aquisitivo.

Perfis: Engenheiros de software, Analistas de Sistemas, Programadores, executivos nos cargos de coordenação e Analistas.

Blog ✔ Excel Specialist Brazil®

Blog focado em ampla comunidade de desenvolvedores da área de TI. Nicho da comunidade que utiliza MS Excel. Alto e médio poder aquisitivo.

Perfis: Engenheiros de software, Analistas de Sistemas, Programadores, executivos nos cargos de coordenação e Analistas.

Blog ✔ VBA Access Developer Brazil®

Blog focado em ampla comunidade de desenvolvedores da área de TI. Nicho da comunidade que utiliza MS Access. Alto e médio poder aquisitivo.

Perfis: Engenheiros de software, Analistas de Sistemas, Programadores, executivos nos cargos de coordenação e Analistas.

Blog ✔ VBA Dashboards Brazil®

Blog focado em executivos com perfil de TI. São profissionais com Alto e médio poder aquisitivo. Com alto grau de importância nas empresas onde atuam.

Perfis: Executivos: Diretores, Gerentes, Coordenadores e Analistas.

Blog ✔ VBA Infográficos Brazil®

Blog focado em executivos com perfil de TI. São profissionais com Alto e médio poder aquisitivo. Com alto grau de importância nas empresas onde atuam.

Perfis: Executivos: Diretores, Gerentes, Coordenadores e Analistas.

Blog ✔ Pharma Brazil®

Blog focado em executivos da indústria farmacêutica com perfil voltado para TI. São profissionais com Alto e médio poder aquisitivo. Com alto grau de importância nas empresas onde atuam.

Perfis: Executivos da Indústria Farmacêutica: Diretores, Gerentes, Coordenadores e Analistas.

Blog ✔ Dinamicidade Elástica®

Blog focado em ampla comunidade de desenvolvedores da área de TI. Alto e médio poder aquisitivo.

Perfis: Engenheiros de software, Analistas de Sistemas, Programadores, executivos nos cargos de coordenação e Analistas.

Blog ✔ Brazil SFE®

Blog voltado para profissionais executivos, com médio e alto poder aquisitivo.

Perfis: Alto Executivos da Indústria Farmacêutica: CIOs, CEOs, Diretores, Gerentes e Coordenadores.

Blog ✔ Brazil SFE Tech

Blog voltado para profissionais executivos com perfil técnico voltado para tecnologia - TI. Alto e médio poder aquisitivo.

Perfis: Executivos da Indústria Farmacêutica: Diretores, Gerentes, Coordenadores e Analistas.

Blog ✔ Brazil SFE Terms®

Blog focado em da área de TI. Alto e médio poder aquisitivo.

Perfis: Executivos da Indústria Farmacêutica: Diretores, Gerentes, Coordenadores e Analistas.

brazilsalesforceeffectiveness@gmail.com

VBA Advanced - Compreendendo o Early Binding e o Late Binding - Early Binding & Late Binding

| Blog Office VBA | Blog Excel | Blog Access |

Sim, o desenvolvimento da linguagem VBA nos permite abordagens distintas. E é bom que isso ocorra, pois nos possibilita variância, adequação, e certa liberdade na escolha do caminho que percorreremos em busca de uma solução plausível para o nosso cliente.

Falaremos sobre 2 métodos de programação que dizem respeito ao uso de objetos no VBA, os quais são definidos na fase de declaração das variáveis:

Early Binding (Ligação Atual)

No método Early Binding as variáveis são declaradas com o tipo de dados assumirão antes de serem invocadas.

Late Binding (Ligação Tardia)

No método Late Binding as variáveis são declaradas como objeto e assumem seu tipo na primeira vez que uma atribuição é feita ao mesmo.

Suponhamos que fôssemos automatizar uma aplicação MS Outlook a partir do MS Excel:

Early Binding

Primeiramente precisamos ter acesso ao Modelo de Objetos (object model) do Outlook.

Segundo, para manipularmos um objeto do Outlook, precisamos vê-lo e isso só é possível através de 2 métodos, isso mesmo, conhecendo os métodos Early Binding e Late Binding.

Para "encapsularmos" o Outlook (Client) na nossa aplicação Excel (Host). O OB (Object model) armazenado no arquivo OLB (Object Library) precisa estar vinculado ao Excel.

CheckBinding

Podemos fazer isso através do menu Ferramentas no VBE, especificamente em Referências. A caixa de diálogo Referências será mostrada com uma lista de arquivos com os quais podemos nos ligar. É provável que a lista seja bastante longa e cheia de opções que você nunca vai usar.

A ligação (binding) OLB é chamada ligação inicial (early binding). É early (cedo) porque expomos o modelo de objeto durante o momento do design e não no tempo de execução.

No exemplo acima pode observar a versão do Microsoft Outlook 9.0 Object Library. A parte 9.0 do nome será diferente se você estiver usando uma versão diferente do Outlook. Incidentalmente, o nome do arquivo OLB que aloja esta biblioteca é msoutl9.olb. Você pode ver o caminho onde ele é armazenado na parte inferior da caixa de diálogo.

Apenas selecionar uma referência nesta caixa diálogo não fará absolutamente nada. Algumas vezes simplesmente seleciono a referência e fecho a caixa de diálogo apenas para encontrar o erro de compilação: Tipo definido pelo usuário não definido (User Defined Type not Defined). Quando você receber esse erro, a primeira coisa que deve verificar é que tenha definido a referência corretamente.

Uma vez que tenha passado por este processo, pode criar um procedimento como este:

Sub CheckBinding()

   Dim olApp As Outlook.Application

   Set olApp = New Outlook.Application

   MsgBox olApp.Name

End Sub

Late Binding

A ligação (binding) tardia (Late) tem o mesmo efeito que o Early Binding. A diferença é que você efetua a ligação da biblioteca em tempo de execução (run-time). Não precisa usar as Referências previamente, mas sim as funções GetObject ou CreateObject. O código abaixo faz a mesma coisa que o CheckBinding acima, mas usa o Late Binding.

Sub CheckBindingLB()

   Dim olApp As Object

   Set olApp = CreateObject("Outlook.Application")

   MsgBox olApp.Name

End Sub

Na maioria dos exemplos que usamos aqui o CreateObject será muito útil. É usado quando precisamos criar uma nova instância do Outlook e usamos o GetObject se quisermos fazer referência a uma instância já em execução do Outlook.

Para enviarmos um e-mail, criarmos uma tarefa, ou diversas outras atividades, não importa se usamos uma instância nova ou existente. Usaríamos o GetObject se desejássemos mostrar algo no Outlook, por exemplo, um calendário. Nesse caso, não iríamos querer dois Outlooks executando só para exibir um calendário.

O código a seguir usa Late Binding para exibir a pasta do calendário na instância existente do Outlook, criando uma instância, se não houver uma.

Sub DisplayCalendar()

   Dim olApp As Object

   Dim olNs As Object

   On Error Resume Next

   Set olApp = GetObject(, "Outlook.Application")

   If Err.Number = 429 Then

   Set olApp = CreateObject("Outlook.application")

   End If

   On Error GoTo 0

   Set olNs = olApp.GetNamespace("MAPI")

   If olApp.ActiveExplorer Is Nothing Then

   olApp.Explorers.Add _

   (olNs.GetDefaultFolder(9), 0).Activate

   Else

   Set olApp.ActiveExplorer.CurrentFolder = _

   olNs.GetDefaultFolder(9)

   olApp.ActiveExplorer.Display

   End If

   Set olNs = Nothing

   Set olApp = Nothing

End Sub

Detalhando

Talvez para os que estão iniciando no VBA exista muita coisa acontecendo no código acima. E saiam já daqui! Não viram que o tópico é Advanced? Brincadeiras à parte, vamos olhar para as seções pertinentes uma de cada vez:

Dim olApp As Object

Dim olNs As Object

Na seção de declarações de variáveis usamos o tipo de dados Object. Com a Early Binding usamos Outlook.Application para dimensionar (Dim) a variável "olApp". Mas, sem um conjunto de referência, o VBA não saberá o que significa Outlook.Application porque ainda não expusemos o modelo de objeto. Portanto, quaisquer objetos que utilizarmos a partir do modelo de objeto do Outlook, devem ser declarados com o tipo genérico Object.

On Error Resume Next

Set olApp = GetObject(, "Outlook.Application")

If Err.Number = 429 Then

Set olApp = CreateObject("Outlook.application")

End If

On Error GoTo 0

A função GetObject gerará um erro se não houver uma instância do Outlook, por isso usamos On Error Resume Next para ignorá-lo. Em seguida, testamos um erro específica, o qual se tiver ocorrido usaremos CreateObject. Redefiniremos o tratamento de erros com On Error GoTo 0, de modo a não disfarçarmos quaisquer erros no final do procedimento.

Porquê 2 métodos?
Ambos os métodos têm vantagens e desvantagens. A Late Binding é mais lenta do que a Early Binding porque ocorre durante o tempo de execução. Quando fazemos o trabalho durante o design, o código será executado mais rapidamente. Quando você está escrevendo o código usando a Late Binding, perde algumas conveniências. Mais especificamente, não ver o Intellisense mostrando as propriedades e métodos de objetos quando os digita. Além disso, o navegador de objetos (F2) não apresenta nenhum dos objetos do Outlook. E por fim, não terá a vantagem de usar constantes internas na Late Binding. Veja o código abaixo:

olNs.GetDefaultFolder (9)

O código ficaria assim numa ligação prévia:

olNs.GetDefaultFolder (olFolderCalendar)

olFolderCalendar é definido numa constante dentro do modelo de objeto do Outlook que não será exposto, se você não tiver definido uma referência. Embutidos constantes podem tornar o código muito mais legível e mais fácil de depurar.

Tudo parece fazer muito sentido e ser muito bom para a Early Binding, mas a Late Binding tem uma vantagem muito grande que não pode ser negligenciada. Ao se efetuar a Late Binding, não importa qual seja a versão do Outlook instalada, o VBA vai usar o nome da classe fornecido com GetObject ou o CreateObect ("Outlook.Application" no nosso caso) e encontrará o modelo de objeto correto para referência.

Ao discutir a Early Binding acima, vai notar que definir uma referência ao Microsoft Outlook 9.0 Object Library porque eu estou usando o Outlook 2000. Se fosse enviar um procedimento para alguém que estava usando uma versão anterior do Outlook, o código seria um fracasso, porque não teriam essa biblioteca objeto específica instalada.

Para tirar o máximo proveito do ambiente de desenvolvimento VBA e ainda escrever um código robusto, devemos escrever o código com Early Binding, mas mudá-lo no final, antes de distribuí-lo. Mesmo que escreva apenas para uso pessoal, não faz sentido não convertê-lo no final. Algum dia terá um computador diferente ou enviará este código para o seu irmão e não vai funcionar porque eles vão ter uma versão anterior.

Referências:

Micrsoft MSDN: http://msdn.microsoft.com/en-us/library/0tcf61s1.aspx

Bob Phillips: http://www.xldynamic.com/source/xld.EarlyLate.html

Dick´s Clicks: http://www.dicks-clicks.com

Word MVP: http://www.word.mvps.org/FAQs/InterDev/EarlyvsLateBinding.htm

Tags: VBA, Advanced, Early Binding, Late Binding, OLB, Object Library, MS Outlook, Object Model, Object Library, msoutl9.olb, Microsoft Outlook 9.0 Object Library, GetObject, CreateObject, CheckBinding,

VBA Outlook - Como exportar as tarefas do MS Outlook para o MS Excel - How To Export Your Outlook Tasks To Excel With VBA

É difícil não reconhecer o quanto devemos a Microsoft, em especial, nós desenvolvedores temos muito a agradecer quanto a facilidade de integração encontrada na suíte MS Office.

Quando pensamos no poder que vem das ações que podem ser iniciadas através de e-mails, realmente ficamos surpreendidos, talvez ainda não tenha pensando, e portanto ainda não utilizou as seguintes necessárias funcionalidades nas suas aplicações:

Ao receber um e-Mail gerar automaticamente novas tarefas.

Ao receber um e-Mail gerar automaticamente novos compromissos no calendário.

Ao enviarmos um e-Mail, concluirmos automaticamente uma tarefa.

Que tal enviar um e-mail para o seu chefe com um relatório de status atualizado onde estão as suas tarefas pendentes ou as do seu departamento? Se fizer isso direito, poderá cortar imensamente a sua carga de trabalho do dia com 'uma só cajadada'. Como ? Por simplesmente automatizar as coisas de um modo inteligente e eficiente.

Exportando as tarefas do MS Outlook para o MS Excel:

Há uma série de razões que podem levar você a querer fazer isso. Talvez deseje acompanhar suas tarefas inacabadas diariamente em um formato que possa rapidamente enviar para alguém, e isso não é tão fácil de se fazer somente as tarefas do MS Outlook.

Seja qual for o caso, a capacidade de capturar a saída de informações das tarefas incompletas do MS Outlook será uma coisa útil, como poderá perceber.

Neste exemplo observamos uma amostra da lista de tarefas do MS Outlook com 5 tarefas pendete:

Tudo o que faremos, será em VBA. No MS Outlook, vá para o VBE (VBA Editor).

O código que usaremos para capturar a lista de tarefas e exportá-la para o MS Excel não é realmente tão complicado.

O primeiro passo é ligar os dois objetos, MS Outlook e MS Excel, criando as necessárias definições de variáveis.

Usando o objeto de pasta de trabalho que criou, comecer por criar o cabeçalho na planilha.

Dim strReport As String

Dim olnameSpace As Outlook.NameSpace

Dim taskFolder As Outlook.MAPIFolder

Dim tasks As Outlook.Items

Dim tsk As Outlook.TaskItem

Dim objExcel As New Excel.Application

Dim exWb As Excel.Workbook

Dim sht As Excel.Worksheet

Dim strMyName As String

Dim x As Integer

Dim y As Integer

Set exWb = objExcel.Workbooks.Open(" C:\bernardess\Tasks\MyATasks.xls")

' exWb.Sheets(strMyName).Delete

' exWb.Sheets.Add (strMyName)

Set olnameSpace = Application.GetNamespace("MAPI")

Set taskFolder = olnameSpace.GetDefaultFolder(olFolderTasks)

Set tasks = taskFolder.Items

strReport = ""

'Create Header

exWb.Sheets("Sheet1").Cells(1, 1) = "Subject"

exWb.Sheets("Sheet1").Cells(1, 2) = "Due Date"

exWb.Sheets("Sheet1").Cells(1, 3) = "Percent Complete"

exWb.Sheets("Sheet1").Cells(1, 4) = "Status"

Então, aqui está o que a nova planilha parece. Seu aplicativo MS Outlook acaba de criar um novo arquivo MS Excel chamado de 'MyATasks.xls' no diretório C:\bernardess\Tasks\, e criou um cabeçalho para as tarefas que você está prestes a inserir.

Então, agora é hora de extrair as suas tarefas e inseri-las na planilha.

Let y = 2

For x = 1 To tasks.Count

Set tsk = tasks.Item(x)

'strReport = strReport + tsk.Subject + "; "

'Fill in Data

If Not tsk.Complete Then

  Let exWb.Sheets("Ryan").Cells(y, 1) = tsk.Subject

  Let exWb.Sheets("Ryan").Cells(y, 2) = tsk.DueDate

  Let exWb.Sheets("Ryan").Cells(y, 3) = tsk.PercentComplete

  Let exWb.Sheets("Ryan").Cells(y, 4) = tsk.Status

  Let y = y + 1

End If

Next x

O que este algoritmo faz é pesquisar a lista completa de itens das tarefas no MS Outlook, verificar se o item está concluído, e se não for o caso, acrescentá-lo as 4 células da planilha.

Se desejar, pode inserir ainda mais informações, basta explorar que informações da tarefa estão disponíveis, digitando 'tsk.' e, em seguida, navegar pela lista de propriedades que surgem.

Sendo um pouco perfeccionista, ainda há um problema. Observe como a coluna A está. Não gosto disso, então vamos adicionar um pouco mais de código para ajustar automaticamente todas as colunas na planilha.

'Autofit all column widths

For Each sht In ActiveWorkbook.Worksheets

sht.Columns("A").EntireColumn.AutoFit

sht.Columns("B").EntireColumn.AutoFit

sht.Columns("C").EntireColumn.AutoFit

sht.Columns("D").EntireColumn.AutoFit

Next sht

exWb.Save

exWb.Close

Set exWb = Nothing

Agora sim!

Onde é que coloco o código para ser executado?

Bem, configuro-o para executar no evento Application.Close(), quando sai do MS Outlook, no final do dia.

Isto fará com que, no final do dia, tenha um relatório no MS Excel, de todas as suas tarefas que ficaram pendentes no dia.

Pode, e deve, pensar em quaisquer outros usos interessantes para esta técnica. Talvez automatize disparar um e-mail com a lista de tarefas, ou deseje reproduzí-los em um arquivo HTML e 'FTPingá-lo' para seu servidor web.

Com um pouco de criatividade, é impressionante o que pode criar com um pouco de automação.

Compartilhe seus próprios pensamentos e idéias na seção de comentários abaixo!

Série de Livros nut Project