Hola, tengo un problemilla que a lo mejor es facil de resolver, ocupo llenar el body de un correo para enviar con datos de una tabla, anexo el codigo:
strSQL = "select * from rfq where num_rfq='" & TxtRFQ6 & "'"
Set rs = conn.Execute(strSQL)
Set ol = CreateObject("Outlook.Application")
Set MAIL = ol.CreateItem(0)
MAIL.to = Trim(txtmail.Text)
MAIL.subject = "Requisition for Quotation " & TxtRFQ6.Text
MAIL.body = "Can you please make the Quotattion for the following items ?: "< AQUI ES DONDE QUIERO LLENAR CON REGISTROS >
MAIL.Send
Ojala alguien me pueda ayudar