Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Access 2016)
VBAからOUTLOOKを操作する際にメールアドレスの;が消える
投稿日時: 18/03/01 11:15:34
投稿者: hame

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つの文字列扱いになってしまい
アドレスとしては扱われなくなっています
どのようにすればうまくいくのでしょうか?

回答
投稿日時: 18/03/01 11:34:02
投稿者: sk

引用:
メールアドレスをオブジェクトの.TOで代入しようとしています

宛先の追加に関しては Recipients コレクションの Add メソッドを
使用された方がよいでしょう。

投稿日時: 18/03/01 17:05:36
投稿者: hame

ありがとうございました
うまくいきました