i have a VBA to send email with Excel worksheet but how to color the subject
to get attraction from users?

With OutMail
.To = "(E-Mail Removed)"
.CC = ""
.BCC = ""
.Subject = "Urgent amendment"
.HTMLBody = SheetToHTML(ws)
.Send 'or use .Display
End With

Outlook does not automatically color messages. You can create a custom view
that colors messages based on some criteria.
The default Outlook views display past due messages in red. Set the
FlagDueBy property to some date in the past.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Angus" <(E-Mail Removed)> wrote in message
news:2B80C084-A9F9-4FA8-972B-(E-Mail Removed)...
>i have a VBA to send email with Excel worksheet but how to color the
>subject
> to get attraction from users?
>
> With OutMail
> .To = "(E-Mail Removed)"
> .CC = ""
> .BCC = ""
> .Subject = "Urgent amendment"
> .HTMLBody = SheetToHTML(ws)
> .Send 'or use .Display
> End With

on the same line of reply :

OL2003 has the ability to assign different flag colors. you can do this
programatically.
Then you need 6-7 customized view that will color the entire line
conditionally with the flag color of that mail item
David

"Dmitry Streblechenko" wrote:

> Outlook does not automatically color messages. You can create a custom view
> that colors messages based on some criteria.
> The default Outlook views display past due messages in red. Set the
> FlagDueBy property to some date in the past.
>
> Dmitry Streblechenko (MVP)
> http://www.dimastr.com/
> OutlookSpy - Outlook, CDO
> and MAPI Developer Tool
>
> "Angus" <(E-Mail Removed)> wrote in message
> news:2B80C084-A9F9-4FA8-972B-(E-Mail Removed)...
> >i have a VBA to send email with Excel worksheet but how to color the
> >subject
> > to get attraction from users?
> >
> > With OutMail
> > .To = "(E-Mail Removed)"
> > .CC = ""
> > .BCC = ""
> > .Subject = "Urgent amendment"
> > .HTMLBody = SheetToHTML(ws)
> > .Send 'or use .Display
> > End With
>
>
>