Macro de Envio por E-mail para Areas Tecnicas

Boa noite a todos,

Sou iniciante na área do access e vba, no entanto estou a trabalhar para um projeto no meu local de trabalho e preciso imenso da v/ajuda. Já li vários tópicos mas confesso que é difícil para mim interpretar o pretendido e tentar aplicar pois não entendo o código da programação.

Passo a descrever o pretendido:

Todos os dias o pessoal passa a vida a enviar e-mail via outlook para as Áreas técnicas mas por vezes falha informação de extrema necessidade e acontece aquele jogo "vai e-mail, vem e-mail, vai novamente, e volta novamente".
Assim pretendo com esta base de dados que os colaboradores introduzam os dados no formulário de registo e quando cliquem no botão ele abra uma mensagem nova do outlook e que corpo da mensagem esteja preenchido com esses dados e simultaneamente guarde o registo na tabela para uma futura consulta!

Tecnicamente no formulário tenho os vários campos, mas para o envio apenas necessito dos seguintes:

Assunto:
Cliente:
Parceiro:
NIF:
Corretor:
Descrição do negocio:
Anexo: <-- (esse anexo é o e-mail que cliente nos remete com o seu pedido e que é por nós guardado na Base de dados)


Queria assim que me ajudassem a que Assunto = Assunto no outlook / Cliente; Parceiro; NIF; Corretor; Descrição do negocio = Corpo da mensagem do outlook/ Anexo = Anexo do outlook. Os restantes campos do e-mail não necessita de ser programado com remetentes nem destinatários pois quero que isso fique ao critério de cada um.

Muito Obrigado.

Ola,
veja o codigo abaixo e faca adaptacoes a sua necessidade.

-----------------------------------------------------------------------------
Dim gOLApp As Object
Dim gOLNameSpace As Object

Function InitializeOutlook() As Boolean
  On Error GoTo Init_Err
   Set gOLApp = CreateObject("Outlook.Application")
   Set gOLNameSpace = gOLApp.GetNamespace("MAPI")
Init_Bye:
   InitializeOutlook = True
   Exit Function
Init_Err:
   InitializeOutlook = False
   Resume Init_Bye
End Function

----------------------------------------------------------------
'AQUI VOCE PERSONALIZA SUAS VARIAVEIS E SEGUE O FLUXO DA LOGICA.

Sub Enviaemail(Regional, Destinatario)

   Dim txtDestinatario, txtAssunto, txtMensagem As String
   Dim CAMINHO, ARQPL, ARQCL, ARQPF, ARQPJ, ARQTT As String
   Dim Assin1, Assin2, Assin3, Assin4, Assintxt As String
       
   ' Pega o caminho da assinatura do e-mail
   Assin1 = "Guilherme ......"
   Assin2 = "cargo x y z"
   Assin3 = "local x y z"
   Assin4 = "Tel.: xx.xxx.xxxxxx"

   ' Seleciona ABA configurações : BDADOS e pega o caminho dos arquivos
   Sheets("BDADOS").Select
   CAMINHO = Range("I5")
   ' Prepara Assunto e corpo mensagem
   txtAssunto = " assunto x y z"
   txtMensagem = "Segue em anexo arquivos x y z"
   Assintxt = " " & vbCrLf & _
               "Bom dia, " & vbCrLf & _
               " " & vbCrLf & _
               txtMensagem & vbCrLf & _
               " " & vbCrLf & _
               " " & vbCrLf & _
               Assin1 & vbCrLf & _
               Assin2 & vbCrLf & _
               Assin3 & vbCrLf & _
               Assin4 & vbCrLf
   'Envia o arquivo
   txtDestinatario = Destinatario
   ARQPL = CAMINHO & nome do arquivo      
   Dim objNewMail As Object
   InitializeOutlook
   Set objNewMail = gOLApp.CreateItem(olMailItem)
   With objNewMail
        .Subject = Regional & txtAssunto
        .Body = Assintxt
        .Attachments.Add ARQPL, 1, Len(.Body) + 1
        .TO = txtDestinatario
        .Display 'ou .Send
End With
   Sheets("MENU").Select
   Range("A1").Select
   
End Sub