Filling forms with fields from database using Outlook-VBA

[FrankTerlien]

I have build an small company application that uses an Access Database for holiday registration. After the acceptance I would like to fill some details in an outlook form and send that back to either the sender or to his chef.
When I create the message I get the default mail message, bud that should be a form like "Holidayconfirm".
The form is in the " company forms library" and has a ClassId white the name "IPM.Note.Holidayconfirm".

 

[sha76]

Hi,

Do you want to post your code & see if anyone cann spot where it's going wrong?

Sharon

 

[FrankTerlien]

Thanks
I found out my way, after posting the question I searched and did try to find some other solutions. To share it...

This is the code that works now.

Sub Confirm()
HolidayConfirm "mymail@home.nl", #3/14/2003#, #3/17/2003#, "Holiday Frank", "this is a message", "Chief", 2, 258
End Sub

'The above values should come from an Access database.
'the application below sends a mail with a lot of userfields.
'if you don't understand some words, it's my mother language dutch.


Sub HolidayConfirm(sUser As String, Begintijd As Date, Eindtijd As Date, _
sBetreft As String, sBericht As String, sChef As String, _
iDagen As Integer, lOrderID As Long)

Dim ol As New Outlook.Application
Dim olns As Outlook.NameSpace
Dim mf As Outlook.MAPIFolder
Dim m As Outlook.MailItem

Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI&quot
Set mf = olns.GetDefaultFolder(olFolderInbox)
Set m = mf.Items.Add("IPM.Note.Vakantieconfirm&quot

With m.UserProperties
.Item("Aantal Dagen&quot.Value = iDagen
.Item("Begindatum&quot.Value = Begintijd
.Item("Betreft&quot.Value = sBetreft
.Item("einddatum&quot.Value = Eindtijd
.Item("sBericht&quot.Value = sBericht
.Item("Oke&quot.Value = 0
.Item("Subject&quot.Value = "Vakantieplannen"
.Item("To&quot.Value = sChef
.Item("Usercode&quot.Value = sUser
.Item("Volgnr&quot.Value = lOrderID
End With
m.Send

End Sub

 

[sha76]

Glad you got it sorted

Sharon