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
 
Back
Top