Help wanted with project

  • Thread starter Thread starter Parl
  • Start date Start date
P

Parl

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 = "(e-mail address removed)"
.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.
 
Thanks

KePaHa said:
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 = "(e-mail address removed)"
.BodyFormat = olFormatPlain
.Display
End With
End Sub

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