Importe vários .vCards para o Outlook e sincronize com o Gmail

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:

• Contact Sync – Sincronize contactos entre o Gmail e o Outlook
• Sincronize os contactos do Gmail com Outlook e vice-versa

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.