Mail mit Vorlage aus Access 2000

[Buggi]

Ich möchte gerne aus Access2000 ein Mail schreiben. Allerdings möchte ich in Notes R5 eine Vorlage nutzen, die in Stationery liegt. Dann  sollen Daten in Platzhalter eingetragen werden.
Hat jemand eine Idee?
Wenn nicht, dann würde ich einfach die Datensätze aus einer Tabelle in den bodytext des Mails eintragen. Also ohne Vorlage. Bisher arbeite ich mit einem automatischen Mail + Anhang und einem Standard bodytext. Folgend mein bisheriges Modul:

Option Compare Database
Global emailadr As String


Public Function transfer_loeschen()
On Error Resume Next
    Kill "f:\AD_PROGRAMM\transfer\*.*"
End Function

Public Function mail2notes()
Dim Maildb As Object 'the mail database
Dim UserName As String 'the current users notes name
Dim MailDbName As String 'the current users notes mail database name
Dim MailDoc As Object 'the mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim recipient As String
Dim subject As String
Dim bodytext As String
Dim SaveIt As Boolean
Dim DATEIANHANG As String
Dim rtitem As Object
Dim EmbeddedObject As Object
Dim pfad As String
pfad = "F:\AD_PROGRAMM\Transfer\"

On Error GoTo err_SendNotesMail

recipient = emailadr
subject = "Neue Daten vom Aussendienst"
bodytext = "Automatisch erzeugtes Mail, deshalb ohne Anrede, Namen etc." & vbCrLf & "Bitte Anhang mit dem Button -STARTEN/LAUNCH- öffnen! Bei Bedarf drucken..." & vbCrLf & "Mit freundlichen Grüßen der Repräsentant"
SaveIt = True


'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems you
'can pass an empty string

UserName = ""
MailDbName = ""
'Open the mail database in notes
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.ISOPEN = True Then
'Already open for mail
Else
Maildb.OPENMAIL
End If
'Set up the new mail document
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = recipient
MailDoc.subject = subject
MailDoc.body = bodytext
MailDoc.SAVEMESSAGEONSEND = SaveIt
Const embed_ATT = 1454


Set rtitem = MailDoc.CREATERICHTEXTITEM("DATEIANHANG")
DATEIANHANG = pfad & Dir("f:\AD_PROGRAMM\Transfer\*.*")
Do While DATEIANHANG <> pfad

Set EmbeddedObject = rtitem.EMBEDOBJECT(embed_ATT, "", DATEIANHANG, "DATEIANHANG")
DATEIANHANG = pfad & Dir
Loop

MailDoc.SEND 0, recipient

'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
sendNotesMail = True
end_SendNotesMail:
Exit Function
err_SendNotesMail:
MsgBox Err.Description & Err.Number, vbCritical, "Fehler Lotus Notes"
Resume end_SendNotesMail

End Function

Das klappt bisher bestens!