[Resolvido]access abrindo o outlook

Bom dia

Senhores

estou iniciando um sistema, onde em determinado momento, preciso que ao clicar em um botão seja aberto o outlook 2010, e uma nova mensagem, para um destinatário definido em uma tabela, seja preenchido o campo assunto com minha informação predefinida, e no corpo do email também seja preenchido com uma mensagem já definida.

senhores

pesquisando mais a fundo consegui a solução

Sub envia()
Dim strPara As String
Dim strCorpoEmail As String
Dim strAssunto As String

Dim objOutlook As Object
Dim objMailItem As Object
Const olMailItem As Integer = 0
Set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(olMailItem)

strPara = "teste@gmail.com"
strAssunto = "Assunto"
strCorpoEmail = "Texto do corpo do email"

objMailItem.To = strPara
objMailItem.Subject = strAssunto
objMailItem.Body = strCorpoEmail

objMailItem.Display

Set objOutlook = Nothing
Set objMailItem = Nothing

End Sub