outlook連絡先フォーム変更後、それへの適合は?

質問

outlook2000で、デフォルトの連絡先フォームを変更しました。
変更後、そのフォームを開きたい場合は、その連絡先フォルダを右クリックで、［プロパティ］、［このフォルダに投稿する時のフォーム］で、作成したフォームを選択、［OK］で、以降、ダブルクリックすると、作成したフォームが開き、入力できます。
しかし、以前から入力したものを、今回作成したフォームにしたいのですが、できません。
どの様にしたら良いのでしょうか?

既定の連絡先フォームでは、"部署"の項目が、別タブになっている、年賀状宛名印刷時に必要な、ビル名またはマンション名の項目が無い為に、何かと苦慮しているので、これを変更し、使用したいのですが・・・・。

どうか、宜しくお願い致します。

回答No.1

FlossenEngel · ベストアンサー

フォームは各アイテムに『メッセージクラス』として登録されています。連絡先アイテムを開いて「すべてのフィールド」で「すべての連絡先フィールド」とか選ぶと、名前：メッセージクラス、値：IPM.Contactとして見ることができます。ここをあなたが作成したフォームのメッセージクラス(IPM.Contact.なんとか)に書き換えてやればよいのですが、それはVBAを使わないとできません。
一応コードを書いておきますが(たった↓だけなので)VBAなんかわからんということであればあきらめて下さい(^^;

連絡先フォルダの下に作業用のフォルダを作成し、そこにアイテムをコピーした上で作業することを想定しています。「作業用フォルダ名」と「IPM.Contact.なんとか」を正しい名前に変更して下さい。

Sub chgForm()
Dim i As Long
Dim newItem As ContactItem

With ThisOutlookSession.Session _
.Folders("個人用フォルダ") _
.Folders("連絡先") _
.Folders("作業用フォルダ名")
For Each newItem In .Items
newItem.MessageClass = "IPM.Contact.なんとか"
newItem.Save
Next
End With
End Sub

(Outlookの画面でAlt+F11を押下してVBA画面に移動し、プロジェクトウィンドウでツリーを展開して「ThisOutlookSession」をWクリックするとコードウィンドウが開くので、そこに上記のコードをコピペして2箇所変更して実行)
((バックアップはお忘れなく...))

補足

早速、ありがとうございました。
恐る恐る試してみると、できました!
追って、恐縮なのですが、下記の点をお教えいただければありがたいです。

・作成したIPM.Contact.***は、outlookでは見えないのでしょうか?
・これは、一回だけ実行する、outlook用VBのマクロ、という事でしょうか?
・"連絡先"の配下に、分類した連絡先フォルダをいろいろと作ってしまっているが、統一した新しい連絡先のフォームにするには、それぞれ書き換えて一回実行するしかないのでしょうか?

折り返し、誠に恐れ入りますが、何卒、宜しくお願い申し上げます。