Setting default wallpaper to email message generated from SendEven

W

Worsty

Here is my code I'm using in Access. It works great with the exception of
invoking the template I'm using on my default email box message form. What
I'm trying to do is to use the "wallpaper" set to the inbox new message as
the default wallpaper in the email message I'm generating from Access.

This is the only piece of the puzzel I can't get to work.

Can somebody please help me????

Thanks,

*******************************

Code

********************************

Dim MyOutlook As Outlook.Application
Dim MyMail As Outlook.MailItem
Dim MyBodyText As String
Dim frm As Form
Dim ctl As Control
Dim varItem As Variant
Dim strSQL As String
Dim myattachments As Variant
Dim lItemCount As Long

'send email with spreadsheet

Set MyOutlook = New Outlook.Application
Set MyMail = MyOutlook.CreateItem(olMailItem)
MyMail.To = "(e-mail address removed)"
MyMail.CC = ""
MyMail.BCC = Text1
MyMail.BodyFormat = olHTML
MyMail.Subject = "Monthly Newsletter"
MyBodyText = "Here is the document"
Set myattachments = MyMail.Attachments
myattachments.Add "C:\JetComp.doc"
MyMail.SentOnBehalfOfName = ""
MyMail.Body = MyBodyText
MyMail.Display

Set MyMail = Nothing
Set myattachments = Nothing
Set MyOutlook = Nothing
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top