Help wanted with project

Looking to do following;
1. A button on the toolbar called "SEND SMS",which when clicked
automatically opens up an email compose window with the following
characteristics;

i) The "To:" is automatically populated with a specified internal email
address

ii) The email compose box overrides user settings and is automatically set
to "plain text"

iii) All automatically inserted signatures are removed from the body of the
email compose window

iv) If possible the user can not enter anything more into the "body" of the
email after the character count hits 300 characters

v) ..... plus other things if poss

Hoping to find someone (pref UK) to helpme with this project

Parl

This short macro will accomplish 1, 2, and 3:

Sub TestMacro9()
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)
With objMail
.Body = ""
.To = "username@domain.com"
.BodyFormat = olFormatPlain
.Display
End With
End Sub

Press Alt+F11 in Outlook to open the VB Editor. Paste this code in there. Close VB Editor window. Now in Tools, Customize, this macro can be dragged up onto the toolbar as a button.

"Parl" wrote:

> Looking to do following;
> 1. A button on the toolbar called "SEND SMS",which when clicked
> automatically opens up an email compose window with the following
> characteristics;
>
> i) The "To:" is automatically populated with a specified internal email
> address
>
> ii) The email compose box overrides user settings and is automatically set
> to "plain text"
>
> iii) All automatically inserted signatures are removed from the body of the
> email compose window
>
> iv) If possible the user can not enter anything more into the "body" of the
> email after the character count hits 300 characters
>
> v) ..... plus other things if poss
>
> Hoping to find someone (pref UK) to helpme with this project
>
> Parl
>
>
>

Thanks

"KePaHa" <KePaHa@discussions.microsoft.com> wrote in message
news:27F1BB75-9114-4D22-BCF5-EB7BF854F61A@microsoft.com...
> This short macro will accomplish 1, 2, and 3:
>
> Sub TestMacro9()
> Dim olApp As Outlook.Application
> Dim objMail As Outlook.MailItem
> Set olApp = Outlook.Application
> Set objMail = olApp.CreateItem(olMailItem)
> With objMail
> .Body = ""
> .To = "username@domain.com"
> .BodyFormat = olFormatPlain
> .Display
> End With
> End Sub
>
> Press Alt+F11 in Outlook to open the VB Editor. Paste this code in there.
Close VB Editor window. Now in Tools, Customize, this macro can be dragged
up onto the toolbar as a button.
>
> "Parl" wrote:
>
> > Looking to do following;
> > 1. A button on the toolbar called "SEND SMS",which when clicked
> > automatically opens up an email compose window with the following
> > characteristics;
> >
> > i) The "To:" is automatically populated with a specified internal email
> > address
> >
> > ii) The email compose box overrides user settings and is automatically
set
> > to "plain text"
> >
> > iii) All automatically inserted signatures are removed from the body of
the
> > email compose window
> >
> > iv) If possible the user can not enter anything more into the "body" of
the
> > email after the character count hits 300 characters
> >
> > v) ..... plus other things if poss
> >
> > Hoping to find someone (pref UK) to helpme with this project
> >
> > Parl
> >
> >
> >