OpenNTF.org - Export contacts to Gmail

My Links (Not logged in)

Code Bin Search

Codebin RSS Feed

OpenNTF Code Bin

About This Code

Brief Description:

Export contacts to Gmail

Rating:

Contributor:

David Phillips

Category:

Lotusscript

Type:

Utilities

Notes Version:

R6.x

Last Modified:

01 Jan 2007

OpenNTF Disclaimer

All of the program code and information presented in the OpenNTF.org Code Bin are provided "as-is", and should be used at your own risk. OpenNTF.org make no express or implied warranty about anything in the Code Bin, and OpenNTF.org will not be responsible or liable for any damage caused by the use or misuse of anything from this site. OpenNTF.org makes no guarantees about anything. Please thoroughly test all of the knowledge and code you find here before you attempt to use them in your production environment.

Code / Description

Why would anyone want to export Notes contacts to Google mail (Gmail), and even if you did, why not use the built-in export function?

My (former) employer was dropping its Lotus Notes business, so I needed a new home for my mail, contacts and calendar. After considering alternatives, I picked Gmail. I could have used the Notes File > Export menu to export to CSV, but I wanted more control over which fields were included and how they were labeled.

This script uses the R6 Replace string function, but that can be replaced with code available elsewhere on OpenNTF. It uses two external script libraries, and it gives the source for those.

Usage / Example

Code Attachments

exportToGmail.lss (5 Kbytes)

Comments

Posted by Goktug Citci on 01/31/2007 07:40:55 AMhow to?

thanks for the script, could you give me a brief installation and usage tutorial?

Posted by Anthony Kendrick on 10/18/2007 11:18:46 AMGreat Stuff... I did a little bit of work to get it going, but worked like a charm.

I commented out the code to select which csv to export to and replaced it . Like so:
' Get file name for CSV output.
gofnFileName = "C:\Test.csv"
%REM
gofnPrompt = "Select file for export in CSV format." & Chr$ (0)
gofnFilter = "CSV files (*.csv)" & Chr$ (0) & "All files (*.*)" & Chr$ (0) & "*.*" & Chr$(0) & Chr$(0)
gofnFileExt = "csv" & Chr$ (0)
If (Not OpenCommDlg) Then
Msgbox "Couldn't get filename to export to"
Exit Sub
End If
%END REM
and I added a few of the items as global declarations -
Dim gofnPrompt, gofnFilter, gofnFileExt, gofnFileName
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long
Works like a charm