vb6 - 複数の電子メール アドレスを使用して VB から Outlook を実行する

Question

VB6 システムから電子メールを送信していますが、単一の電子メールをさまざまな電子メール アドレスに送信する際に問題が発生しています。コードは次のとおりです。

On Error Resume Next
Err.Clear
Set oOutLookObject = CreateObject("Outlook.Application")
If Err <> 0 Then
    MsgBox "Email error. Err = " & Err & " Description = " & Err.Description
    EmailValid = "N"
    Exit Function
End If
Set oEmailItem = oOutLookObject.CreateItem(0)
If Err <> 0 Then
    MsgBox "Email error. Err = " & Err & " Description = " & Err.Description
    EmailValid = "N"
    Exit Function
End If
With oEmailItem
    .Recipients.Add (SMRecipients)
    .Subject = SMSubject
    .Importance = IMPORTANCENORMAL
    .Body = SMBody
    For i = 1 To 10
        If RTrim(SMAttach(i)) <> "" Then
            .attachments.Add SMAttach(1)    'i)
        Else
            Exit For
        End If
    Next i
    .send
End With
If Err <> 0 Then
    MsgBox "Email error. Err = " & Err & " Description = " & Err.Description
    EmailValid = "N"
    Exit Function
End If
'''   .Attachments.Add ("c:\temp\test2.txt")
Set oOutLookObject = Nothing

SMRecipients を 1 つのメール アドレスに設定しましたが、問題ありませんが、セミコロンまたはスペースで区切られたアドレスを追加すると、元のアドレスにしか送信されません。

私のシステムは XP で動作します。

もう 1 つのポイントは、Outlook のアドレス帳でアドレスを検索するために使用し、特定が不十分な場合は、正しいアドレスを選択するために一致するアドレスを表示することです。これはもうありません。