2008/08/12
[WSH]Outlookのアドレス帳をnpopqのアドレス帳にエクスポートする
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のアドレス帳ほどシンプルなのはたぶんないと思いますがw(メールアドレス<タブ>名前)
元記事:http://blogs.wankuma.com/mutaguchi/archive/2008/08/12/152820.aspxプライバシーポリシー