Visual Basic - Envio e-mail en Vb (sin mensaje de confirmacion!!)

Buenas ..
Mi problema es el siguiente.
En mi proyecto tengo q enviar 100 mensajes de correo a 100 usuarios con un archivo adjunto distinto a cada uno..
ya tengo el procedimiento creado .. pero al enviar ( .send false ) cada mensaje me sale un mensaje de confirmacion q dice " se esta utilizando su cuenta de outlock pa enviar mensaje .... " , y asi con los 100 mensajes !!! es una locura .

Se supone q con poner false en el metodo send... valdria ... no ???? pues a mi no me funciona y no se porq.

aki dejo mi procedimiento para ver si alguien solidario me ayuda...
Gracias !

Public Sub enviarcorreo()
Dim i As Long
Dim Rs As ADODB.Recordset
Dim x As Integer
On Error GoTo error


If Me.OptMail(0).Value = True Then
i = 1
Call pAbrirTabla(Rs, sConsultaParaMailAdjunto, kTablaRW)
Do Until Rs.EOF
With MAPIMessages1
.Compose
.MsgIndex = -1
.AddressResolveUI = False
.RecipType = mapToList
.RecipDisplayName = "mailto:" & Trim(Rs!DCO_MAIL)
.MsgSubject = Me.txtAsunto.Text
.MsgNoteText = Me.txtTexto.Text
.SessionID = MAPISession1.SessionID

'adjuntos
.AttachmentIndex = Val(i - 1)
.AttachmentName = Trim(Rs!DCO_CIG) & ".XLS"
.AttachmentPathName = dirrpt & "INFORMES\" & Trim(Rs!DCO_CIG) & ".XLS"
'.AttachmentPosition = Val(i - 1)
'.AttachmentType = Val(i - 1)
.Send False 'aqui esta el lio !!! maldito mensaje !

Rs.MoveNext
End With
Loop

End If

Unload Me
Exit Sub

error:
If Err.Number = "32026" Then
MsgBox "Acción cancelada"
Exit Sub
Else
MsjErrorVB
End If

End Sub

Lo Solucionaste?? Yo necesito la misma solución....

:(