VBAでOUTLOOKの操作で
メールアドレスをオブジェクトの.TOで代入しようとしています
アドレスはテーブルで持っていて、レコードを読みに行って代入しています
下記のような感じです
Set oApp = CreateObject("Outlook.Application")
Set objMAIL = oApp.CreateItem(0)
objMAIL.Display
Set rsM = CurrentDb.OpenRecordset("T_メールアドレス", 2)
Do Until rsM.EOF
objMAIL.To = objMAIL.To & rsM!アドレス
a = objMAIL.To
● rsM.MoveNext
Loop
テーブルには○○○@△△△△;
という形でアドレスを登録しています
●のところでブレイクポイント置いて
rmM!アドレスとaの内容の確認したところ
rmM!アドレスには最後に;がついていますが
aにはついていないアドレスになっています
;がついていないために全てがつながった1つの文字列扱いになってしまい
アドレスとしては扱われなくなっています
どのようにすればうまくいくのでしょうか?