Sende mails vedhjælp af access-basic

På mit arbejde har jeg en access database hvorfra jeg ønsker at kunde sende mails ved tryk på knap. Jeg har eksperimenteret en del med API kaldet MAPISendMail, men jeg kan ikke få det til at virke. Med det samme access udfører denne linje, crasher access simpelthen. Jeg har lavet en testdatabase hvor jeg har tilføjet flg. kode:

I et MainModule har jeg denne kode:

Option Compare Database
Option Explicit

' MAPISendMail flags
Global Const MAPI_LOGON_UI As Long = 1, MAPI_NEW_SESSION As Long = 2, MAPI_DIALOG As Long = 8

Type tpMapiFileDesc
      ulReserved As Long
      flFlags As Long
      nPosition As Long
      lpszPathName As String
      lpszFileName As String
      lpFileType As String
End Type

Type tpMapiMessage
      ulReserved As Long
      lpszSubject As String
      lpszNoteText As String
      lpszMessageType As String
      lpszDateReceived As String
      lpszConversationID As String
      flFlags As Long
      lpOriginator As String          ' Er oprindeligt en pointer til en tpMapiRecipDesc
      nRecipCount As Long
      lpRecips As String              ' Er oprindeligt en pointer til en tpMapiRecipDesc
      nFileCount As Long
      lpFiles As tpMapiFileDesc
End Type

Type tpMapiRecipDesc
      ulReserved As Long
      ulRecipClass As Long
      lpszName As String
      lpszAddress As String
      ulEIDSize As Long
      lpEntryID As String              ' Er oprindeligt en void pointer
End Type

Declare Function MAPISendMail Lib "mapi32" (ByVal LHANDLE As Long, ByVal ulUIParam As Long, lpMessage As tpMapiMessage, _
  ByVal flFlags As Long, ByVal ulReserved As Long) As Long


I en click event har jeg denne kode:
Private Sub btnTest_Click()
      Dim Attach As tpMapiFileDesc
      Dim Note As tpMapiMessage
      Dim err As Long

      Attach.ulReserved = 0
      Attach.flFlags = 0
      Attach.nPosition = -1
      Attach.lpszPathName = "G:\Arbejde\Afvigelsesrapport\Afvigelsesrapport.doc"
      Attach.lpszFileName = "Test.doc"
      Attach.lpFileType = ""

      Note.ulReserved = 0
      Note.lpszSubject = ""
      Note.lpszNoteText = ""
      Note.lpszMessageType = ""
      Note.lpszDateReceived = ""
      Note.lpszConversationID = ""
      Note.flFlags = 0
      Note.lpOriginator = ""
      Note.nRecipCount = 0
      Note.lpRecips = ""
      Note.nFileCount = 1
      Note.lpFiles = Attach

      err = MAPISendMail(0, 0, Note, MAPI_DIALOG, 0)      ' Access crasher her
End Sub

Venlig hilsen
Ole