Stationery & Fonts - Themes

A

ANGanley

Joined
Sep 17, 2007
Messages
3
Reaction score
0
I have created the following code to generate an email.

When the email is generated I want to be able to use the users own theme.





Private Sub CreateMailItem()

Dim application As New Microsoft.Office.Interop.Outlook.Application

Dim mailItem1 As Microsoft.Office.Interop.Outlook.MailItem = _

TryCast(application.CreateItem( _

Microsoft.Office.Interop.Outlook.OlItemType.olMailItem), _

Microsoft.Office.Interop.Outlook.MailItem)

mailItem1.To = txt_email.Text

mailItem1.Subject = cmb_enquiry.SelectedText & "Enquiry"

mailItem1.Body = txt_enquiryhelper.Text

mailItem1.Display()

End Sub



Any ideas thanks.





AG
 

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

Similar Threads

outlook stationary 0
Maximum index on a list is less than the list size 3
can't change stationery theme in a new message 2
How to set CC @ Outlook Redemption 8
Add themes and stationery to Outlook 2007 10
Get Subject of a delete Appointment in a shared exchange calendar 1
email entire spreadsheet (unhide rows) 10
Need help with if then else in VBA 2

Top