Send Email from Access Using a custom Outlook Form

[Mr T]

I know how to send email from Access and I know how to create a custom
form in Outlook. but.... How do I put the email info from Access into
the Outlook custom form ???

Dim MyDB As Database
Dim MyRS As Recordset
Dim objOutlook As Outlook.Applica tion
Dim objOutlookMsg As Outlook.MailIte m
Dim objOutlookRecip As Outlook.Recipie nt
Dim objOutlookAttac h As Outlook.Attachm ent
Dim TheAddress As String

Set MyDB = CurrentDb
Set MyRS = MyDB.OpenRecord set("Select * from tblMailingList Where
responded <>-1")
MyRS.MoveFirst

' Create the Outlook session.
Set objOutlook = CreateObject("O utlook.Applicat ion")
Do Until MyRS.EOF
' Create the e-mail message.

Set objOutlookMsg = objOutlook.Crea teItem(olMailIt em)
TheAddress = MyRS![emailaddress]
If MyRS!responded <-1 Then
With objOutlookMsg
' Add the To recipients to the e-mail message.
Set objOutlookRecip = .Recipients.Add (TheAddress)
objOutlookRecip .Type = olTo

If TheAddress = "Jo******@somew here.com" Then

.Subject = "Only " & [daysleft] & " Days Left Till Your
Report Is Due !"
.Body = " John," & _
"You have " & [daysleft] & " days remaining to
submit the your updates!"
.Importance = olImportanceHig h
Else

' Set the Subject, the Body, and the Importance of the e-mail
message.
.Subject = "***MANDATO RY RESPONSE REQUIRED***"

.Body = "BLAH BLAH BLAH BLAH" & _
"Thank you for help."
.Importance = olImportanceHig h 'High importance

'Resolve the name of each Recipient.
End If

For Each objOutlookRecip In .Recipients
objOutlookRecip .Resolve
If Not objOutlookRecip .Resolve Then
objOutlookMsg.D isplay
End If
Next

.Display
'.Send
End With
End If
MyRS.MoveNext

Loop

Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub

Suggestions ???

[pietlinden]

Mr T wrote:

I know how to send email from Access and I know how to create a custom
form in Outlook. but.... How do I put the email info from Access into
the Outlook custom form ???

Suggestions ???

Sure. Check the Outlook NG. Essentially what you're saying is that
"this is an Outlook problem". It's not that I'm trying to put you off,
but the likelihood of finding someone who knows enough about Outlook
forms to help you in that NG is much higher than it is here.