Puedes acceder al objeto y sus metodos, el tema es buscar la informacion de los mismos. Ejemplo:
Function CreateMail(Destino As String, Titulo As String, _
Mensaje As String, Optional ArchivoAdjunto As String) As Boolean
Public golApp As Outlook.Application
Set golApp = New Outlook.Application
Dim objNewMail As Outlook.MailItem, blnResolveSuccess As Boolean
' Set global Application and NameSpace object variables, if necessary.
If golApp Is Nothing Then
If InitializeOutlook = False Then
MsgBox "Unable to initialize Outlook. "
Exit Function
End If
End If
Set objNewMail = golApp.CreateItem(olMailItem)
With objNewMail
.Recipients.Add Destino
blnResolveSuccess = .Recipients.ResolveAll
If (Not IsMissing(ArchivoAdjunto)) And ArchivoAdjunto <> "" Then .Attachments.Add ArchivoAdjunto, olByValue
.Subject = Titulo
.Body = Mensaje
.Display
End With
End Function