De access a Outlook

Hola amigos gracias a esta página conseguí una macro que me sirve bastante, el problema es que hay ciertos datos (texto) que quiero cargar de listas despegables (combo box). En el body quiero que salga el nombre del reportante pero cuando envía el mail sale el número que le ha asignado el sistema (autonumérico) y no la selección (nombre del reportante).

Otro tema es que para que se envíe el correo tiene que estar siempre abierto el outlook, hay forma de que se envíe sin que este abierto mi outlook o el outlook de los demás usuarios que utilicen el formulario.

Private Sub Command30_DblClick(Cancel As Integer)

Textos1 = "Observación HSEC Nro 000"

Dim body As String

Textos2 = "Se registro una nueva observación en el sistema con la siguiente descripción:" Dim Olk As Outlook.Application

Set Olk = CreateObject("Outlook.Application")

Dim OlkMsg As Outlook.MailItem

Set OlkMsg = Olk.CreateItem(olMailItem)

With OlkMsg

Dim OlkDestinatario As Outlook.Recipient

Set OlkDestinatario = .Recipients.Add([email protected])

OlkDestinatario.Type = olTo

.subject = "Observación HSEC Nro" Dim subject As String .subject = Textos1 & Me.[ID].Value

.body = Textos2 & vbCr & vbCr & Me.[Descripción].Value & vbCr & vbCr & Me.[Reportante].Value & vbCr & vbCr & Me.[Área].Value

.Send

End With

Set Olk = Nothing

Set OlkMsg = Nothing

Set OlkDestinatario = Nothing

End Sub