correo

lHola men disculpad la molestia lo que pasa que tengo un problemin te explico como esta la cosa:
tengo una base de datos en access version 2003
la cual contiene algunas tablas y entree ellas 2 que son
provedor
con id nombre direccion y correo electronico
y una de producto con id nombre descripcion y cantidad
el problema esta aqui quisiera una ayuda para que lea la tabla producto y si detecta en cantidad que un producto es menor a 25 entonces que mande un correo electronico
esto por un botonaso
a y cuando el provedor ya alla resivido una notificacion anteriormente que resiva otra de advertencia lo del correo
otra pregunta como se le daria estilo a este formato de correo para que abajo tenga texto de lo que substrae
Public Function correo()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
   
   Set OutApp = CreateObject("Outlook.Application")
   Set OutMail = OutApp.CreateItem(olMailItem)
   With OutMail
    .To = Form_subUsuarios.correo
    .CC = ""
    .BCC = ""
    .Subject = "Informacion de Registro"
    .Body = "  Su USUARIO es:  " & Form_subUsuarios.Usuario & "     Su PASSWORD es: " &
'Aqui como le agrego mas texto
Form_subUsuarios.Password
    .Send
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Function

Para que el texto se posicionara abajo de ñlo del id seria igual men disculpa la torpeza???

El
& vBCRLF &
va debajo del .body???

.Body = "  Su USUARIO es:  " & Form_subUsuarios.Usuario & "     Su PASSWORD es: " &
& vBCRLF & "Hola"

muchas gracias me a servido de mucho tu ayuda
gracias.....