Envoyer un e-mail depuis un formulaire

Bonjour,
Je cherche à envoyer un e-mail par Outlook depuis un formulaire Access.
J'ai trouvé une fonction qui permet d'envoyer un e-mail, mais il ne semble
pas possible de changer l'expéditeur.

Public Sub CreateEmail( _
From As String, _ [ça, je l'ai rajouté pour essayer de changer
l'expéditeur]
Recipient As String, _
Subject As String, _
Body As String, _
Optional Attach As Variant)
' --------------------------
Dim I As Integer
Dim oEmail As Outlook.MailItem
Dim appOutLook As Outlook.Application

' créer un nouvel item mail
Set appOutLook = New Outlook.Application
Set oEmail = appOutLook.CreateItem(olMailItem)

' les paramètres
Set sender = oEmail.SenderEmailAddress [ça aussi, rajout pour tenter
de changer l'expéditeur]
oEmail.To = Recipient
oEmail.Subject = Subject
oEmail.Body = Body

If Not IsMissing(Attach) Then

If TypeName(Attach) = "String" Then

' s'il y a des pièces jointes
oEmail.Attachments.Add Attach

Else

For I = 0 To UBound(Attach) - 1
oEmail.Attachments.Add Attach(I)

Next

End If

End If

' envoie le message
oEmail.Send

' détruit les références aux objets
Set oEmail = Nothing

Set appOutLook = Nothing

End Sub

Et là l'utilisation de la fonction : Call CreateEmail("moi@fai.com",
Me.Adresse_e_mail, "Le sujet du message", "Le texte du message")

On m'a suggéré de "créer un ActiveX MAPI".
J'ai également trouvé ici la librairie OUtlook de Raymond.

Quelle méthode est la mieux, sachant que je ne connais ni le VBA, ni le VB,
ni le VBS.