ModusOperandi
Dec 7th, 2005, 08:40 AM
I'm fairly new to all this so please bear with me.
My vba application creates an e-mail at the end using the Outlook object.
This works fine, however I've trying to think of way to highlight text in the 'CC:' box when the e-mail opens so that the user will manually enter an address there.
Here's my code snippet at present:
Private Sub CommandButton1_Click()
Set myOlapp = CreateObject("Outlook.Application")
Set myitem = myOlapp.CreateItem(olMailItem)
Set myattachments = myitem.Attachments
Set myRecipientAdmin = myitem.Recipients.Add("ADD_OTHER_PEOPLE_HERE")
myRecipientAdmin.Type = olCC
Set myRecipientMain = myitem.Recipients.Add("Mr Brown;Mr Black;Mr White")
myRecipientMain.Type = olTo
myattachments.Add CorrectFileNameandPath, olByValue, 1
myitem.Subject = ReportFileName
myitem.Display
Me.Hide
FinishOff.Show
End Sub
I want the text 'ADD_OTHER_PEOPLE_HERE' highlighted so it stands out.
Any ideas ?
My vba application creates an e-mail at the end using the Outlook object.
This works fine, however I've trying to think of way to highlight text in the 'CC:' box when the e-mail opens so that the user will manually enter an address there.
Here's my code snippet at present:
Private Sub CommandButton1_Click()
Set myOlapp = CreateObject("Outlook.Application")
Set myitem = myOlapp.CreateItem(olMailItem)
Set myattachments = myitem.Attachments
Set myRecipientAdmin = myitem.Recipients.Add("ADD_OTHER_PEOPLE_HERE")
myRecipientAdmin.Type = olCC
Set myRecipientMain = myitem.Recipients.Add("Mr Brown;Mr Black;Mr White")
myRecipientMain.Type = olTo
myattachments.Add CorrectFileNameandPath, olByValue, 1
myitem.Subject = ReportFileName
myitem.Display
Me.Hide
FinishOff.Show
End Sub
I want the text 'ADD_OTHER_PEOPLE_HERE' highlighted so it stands out.
Any ideas ?