Com o aparecimento dos smartphones muitos foram os utilizadores que deixaram o "velho" telefone e migraram para Android e iOS. A migração é por norma idêntica para todos os utilizadores:...mudar o cartão SIM, mudar o cartão MicroSD (se tiver) e, claro, ter logo os contactos disponíveis no smartphone. Actualmente são várias as ferramentas disponíveis que permitem quase uma migração transparente...mas há situações em que não é bem assim.
Hoje vamos ensinar como podem importar vários .Vcards para o Outlook e posteriormente sincronizar com o gmail.
Na semana passada um colega pediu-me para passar os contactos de um telefone Nokia para um smartphone Sony. No início parecia uma tarefa simples mas após receber o telemóvel Nokia verifiquei que o mesmo tinha os pinos de contactos, onde se liga o cabo de dados, partidos. Por norma, os Nokia permitem passar, um a um, os contactos do telefone para .vcards e foi por aí que comecei.... gravei os mesmos no cartão do telefone Nokia e passei o microSD para o smartphone Sony.
Tendo assim acesso aos contactos do microSD via PC, verifiquei que o Outlook não permite, pelo menos de forma nativa, importar todos os contactos de uma só vez. Após umas pesquisas verifiquei que é possível importar todos os .vcards para o Outlook criando uma Macro e para isso devem seguir os seguintes passos:
Passo 1 - Criar uma pasta no PC (ex. c:/VCARDS) e passar todos os contactos para lá
Passo2 - Em seguida abrimos o Outlook e carregamos nas teclas ALT + F11 para abrir o editor de MACROs VBA
Passo 3 - Em seguida vamos a TOOLS > REFERENCES e em seguida escolhemos Microsoft Scripting Runtime e Windows Script Host Object Model
Passo 4 - Depois vamos a INSERT > MODULE e copiemos o código seguinte
Sub OpenSaveVCard() Dim objWSHShell As IWshRuntimeLibrary.IWshShell Dim objOL As Outlook.Application Dim colInsp As Outlook.Inspectors Dim strVCName As String Dim fso As Scripting.FileSystemObject Dim fsDir As Scripting.Folder Dim fsFile As Scripting.File Dim vCounter As Integer Set fso = New Scripting.FileSystemObject Set fsDir = fso.GetFolder("C:\VCARDS") For Each fsFile In fsDir.Files strVCName = "C:\VCARDS\" & fsFile.Name Set objOL = CreateObject("Outlook.Application") Set colInsp = objOL.Inspectors If colInsp.Count = 0 Then Set objWSHShell = CreateObject("WScript.Shell") objWSHShell.Run strVCName Set colInsp = objOL.Inspectors If Err = 0 Then Do Until colInsp.Count = 1 DoEvents Loop colInsp.Item(1).CurrentItem.Save colInsp.Item(1).Close olDiscard Set colInsp = Nothing Set objOL = Nothing Set objWSHShell = Nothing End If End If Next End Sub
Imagem exemplificativa do código inserido:
Passo 5 - Criada a Macro, gravamos e executamos a mesma carregando no botão Run Sub/UserForm
Feitos os passos anteriores, os contactos irão todos ser importados automaticamente para o Outlook.
Como Sincronizar os contactos do Outlook com o Gmail?
Bem esta é a parte mais simples e foram já algumas as aplicações que apresentamos no PPLWARE para este efeito. Para esta tarefa sugerimos que vejam os nossos artigos:
Como tiveram oportunidade de ler, a migração de dados entre equipamentos não é difícil...no entanto é importante encontrar as ferramentas correctas. Deixamos o artigo em "aberto" para que vocês possam também contar as vossas experiências e sugerir aplicações e/ou resoluções para estas situações.
Com o aparecimento dos smartphones muitos foram os utilizadores que deixaram o "velho" telefone e migraram para Android e iOS. A migração é por norma idêntica para todos os utilizadores:...mudar o cartão SIM, mudar o cartão MicroSD (se tiver) e, claro, ter logo os contactos disponíveis no smartphone. Actualmente são várias as ferramentas disponíveis que permitem quase uma migração transparente...mas há situações em que não é bem assim.
Hoje vamos ensinar como podem importar vários .Vcards para o Outlook e posteriormente sincronizar com o gmail.
Na semana passada um colega pediu-me para passar os contactos de um telefone Nokia para um smartphone Sony. No início parecia uma tarefa simples mas após receber o telemóvel Nokia verifiquei que o mesmo tinha os pinos de contactos, onde se liga o cabo de dados, partidos. Por norma, os Nokia permitem passar, um a um, os contactos do telefone para .vcards e foi por aí que comecei.... gravei os mesmos no cartão do telefone Nokia e passei o microSD para o smartphone Sony.
Tendo assim acesso aos contactos do microSD via PC, verifiquei que o Outlook não permite, pelo menos de forma nativa, importar todos os contactos de uma só vez. Após umas pesquisas verifiquei que é possível importar todos os .vcards para o Outlook criando uma Macro e para isso devem seguir os seguintes passos:
Passo 1 - Criar uma pasta no PC (ex. c:/VCARDS) e passar todos os contactos para lá
Passo2 - Em seguida abrimos o Outlook e carregamos nas teclas ALT + F11 para abrir o editor de MACROs VBA
Passo 3 - Em seguida vamos a TOOLS > REFERENCES e em seguida escolhemos Microsoft Scripting Runtime e Windows Script Host Object Model
Passo 4 - Depois vamos a INSERT > MODULE e copiemos o código seguinte
Sub OpenSaveVCard() Dim objWSHShell As IWshRuntimeLibrary.IWshShell Dim objOL As Outlook.Application Dim colInsp As Outlook.Inspectors Dim strVCName As String Dim fso As Scripting.FileSystemObject Dim fsDir As Scripting.Folder Dim fsFile As Scripting.File Dim vCounter As Integer Set fso = New Scripting.FileSystemObject Set fsDir = fso.GetFolder("C:\VCARDS") For Each fsFile In fsDir.Files strVCName = "C:\VCARDS\" & fsFile.Name Set objOL = CreateObject("Outlook.Application") Set colInsp = objOL.Inspectors If colInsp.Count = 0 Then Set objWSHShell = CreateObject("WScript.Shell") objWSHShell.Run strVCName Set colInsp = objOL.Inspectors If Err = 0 Then Do Until colInsp.Count = 1 DoEvents Loop colInsp.Item(1).CurrentItem.Save colInsp.Item(1).Close olDiscard Set colInsp = Nothing Set objOL = Nothing Set objWSHShell = Nothing End If End If Next End Sub
Imagem exemplificativa do código inserido:
Passo 5 - Criada a Macro, gravamos e executamos a mesma carregando no botão Run Sub/UserForm
Feitos os passos anteriores, os contactos irão todos ser importados automaticamente para o Outlook.
Como Sincronizar os contactos do Outlook com o Gmail?
Bem esta é a parte mais simples e foram já algumas as aplicações que apresentamos no PPLWARE para este efeito. Para esta tarefa sugerimos que vejam os nossos artigos:
Como tiveram oportunidade de ler, a migração de dados entre equipamentos não é difícil...no entanto é importante encontrar as ferramentas correctas. Deixamos o artigo em "aberto" para que vocês possam também contar as vossas experiências e sugerir aplicações e/ou resoluções para estas situações.