Const olFolderContacts = 10
Set Outlook = CreateObject("Outlook.Application")
Set Fs = CreateObject("Scripting.FileSystemObject")
Set ts = Fs.CreateTextFile("Address.lst")
For Each oItem In Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items
If oItem.Email1Address<>"" Then
ts.WriteLine oItem.Email1Address & vbTab & oItem.FullName
End If
If oItem.Email2Address<>"" Then
ts.WriteLine oItem.Email2Address & vbTab & oItem.FullName
End If
If oItem.Email3Address<>"" Then
ts.WriteLine oItem.Email3Address & vbTab & oItem.FullName
End If
Next
ts.Close
さくっと。他のメーラーにも無論カスタマイズして使ってください。npopqのアドレス帳ほどシンプルなのはたぶんないと思いますがｗ（メールアドレス＜タブ＞名前）