Jump to content

Copying contacts/calander from C500 to Prophet


Guest ddieter

Recommended Posts

Guest ddieter

I've just ordered a new Jamin, and it is hopefully on its way.

Does anyone know if there is a way for me to transfer my contact list and calendar over from my C500 to the Jamin?

I know I could with Outlook, but that isn't an option for me, as I only have access to a work PC.

Any other method available?

Link to comment
Share on other sites

Guest chucky.egg

You could Beam them across with Infrared, or Bluetooth, but you have to do it one by one.

If you have the contacts in Outlook you can use the following code to extract all contacts to VCF files, which you can then "open" on the Prophet to add them to your Prophet's contacts

Sub Export_PAB_to_vcfs()


    MailboxName = "Specify your Mailbox name here" '(EG: "Bloggs, Fred")


    Set objOutlook = CreateObject("Outlook.Application")

    Set objNameSpace = objOutlook.GetNamespace("MAPI")

    objNameSpace.Logon

    Set objFolder = objNameSpace.Folders(MailboxName).Folders("Contacts")

    NumItems = objFolder.Items.Count

    

    UnknownContactCounter = 0

    

    For i = 1 To NumItems

        Set objContact = objFolder.Items(i)

        If Not TypeName(objContact) = "Nothing" Then

            If Not objContact.FullName = "" Then

                strName = "C:\VCFs\" & objContact.FullName & ".vcf"

                objContact.SaveAs strName, olVCard

            Else

                UnknownContactCounter = UnknownContactCounter + 1

                strName = "C:\VCFs\Unknown_" & UnknownContactCounter & ".vcf"

                objContact.SaveAs strName, olVCard

            End If

        End If

    Next

    

    MsgBox "All Contacts Exported"

    

End Sub

You insert that code into a macro and run it whenever you want to export

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.