Macro

[116]

My first attempt at a Macro, and I do not mess with VB enough. I am looking

for a sample to run 'alt+0216'.

Thanks

David

 

[Sue Mosher [MVP]]

Alt+0216 makes no sense by itself. You need to provide a lot more context,

including the Outlook version and what you actually are trying to

accomplish.

Sue Mosher

"116" <116> wrote in message

news:62AE724A-8247-4359-8233-8449878DF576@microsoft.com...
> My first attempt at a Macro, and I do not mess with VB enough. I am
> looking
> for a sample to run 'alt+0216'.

> Thanks
> David

 

[116]

I appoligize. Outlook 2003. I would like the macro to run the key sequence

'ALT + 0126' which is Ascii for a Diameter symbol.

David

"Sue Mosher [MVP]" wrote:


> Alt+0216 makes no sense by itself. You need to provide a lot more context,
> including the Outlook version and what you actually are trying to
> accomplish.

> > Sue Mosher
> > >

> "116" <116> wrote in message
> news:62AE724A-8247-4359-8233-8449878DF576@microsoft.com...
> > My first attempt at a Macro, and I do not mess with VB enough. I am
> > looking
> > for a sample to run 'alt+0216'.
> > Thanks
> > David

>

 

[Sue Mosher [MVP]]

You can return that character in VBA with this expression: Chr(216)

However, we still don't know what you want to do with it. Outlook macros

don't "run key sequences" unless you use a SendKeys kludge, which doesn't

always work.

Sue Mosher

"116" <116> wrote in message

news:BD0F5EB0-A6EA-453B-92E4-ECEC632FE72E@microsoft.com...
> I appoligize. Outlook 2003. I would like the macro to run the key
> sequence
> 'ALT + 0126' which is Ascii for a Diameter symbol.

> David

> "Sue Mosher [MVP]" wrote:
>
> > Alt+0216 makes no sense by itself. You need to provide a lot more
> > context,
> > including the Outlook version and what you actually are trying to
> > accomplish.
>

>> "116" <116> wrote in message
> > news:62AE724A-8247-4359-8233-8449878DF576@microsoft.com...
> > > My first attempt at a Macro, and I do not mess with VB enough. I am
> > > looking
> > > for a sample to run 'alt+0216'.

 

[116]

There are certain symbols I would like to start using rather than the text

(abbreviation). Such as the diameter, cents, symbols rather than spelling it

or abbreviating. So by creating a Macro and simply entering Chr(216) in the

VBA will take care of this?

David

"Sue Mosher [MVP]" wrote:


> You can return that character in VBA with this expression: Chr(216)

> However, we still don't know what you want to do with it. Outlook macros
> don't "run key sequences" unless you use a SendKeys kludge, which doesn't
> always work.
> > Sue Mosher
> > >

> "116" <116> wrote in message
> news:BD0F5EB0-A6EA-453B-92E4-ECEC632FE72E@microsoft.com...
> >I appoligize. Outlook 2003. I would like the macro to run the key
> >sequence
> > 'ALT + 0126' which is Ascii for a Diameter symbol.
> > David
> > "Sue Mosher [MVP]" wrote:
> >
> >> Alt+0216 makes no sense by itself. You need to provide a lot more
> >> context,
> >> including the Outlook version and what you actually are trying to
> >> accomplish.
> >
> >> "116" <116> wrote in message
> >> news:62AE724A-8247-4359-8233-8449878DF576@microsoft.com...
> >> > My first attempt at a Macro, and I do not mess with VB enough. I am
> >> > looking
> >> > for a sample to run 'alt+0216'.

>

 

[Sue Mosher [MVP]]

No, it's nowhere near that simple. We still don't know *where* you want to

use these symbols or in which version of Outlook. If you can't provide that

information, it is not going to be possible to help you.

Sue Mosher

"116" <116> wrote in message

news:FCB755E6-A91C-453C-AB90-7A9620DF379F@microsoft.com...
> There are certain symbols I would like to start using rather than the text
> (abbreviation). Such as the diameter, cents, symbols rather than spelling
> it
> or abbreviating. So by creating a Macro and simply entering Chr(216) in
> the
> VBA will take care of this?

> David

> "Sue Mosher [MVP]" wrote:
>
> > You can return that character in VBA with this expression: Chr(216)
>

>> However, we still don't know what you want to do with it. Outlook macros
> > don't "run key sequences" unless you use a SendKeys kludge, which doesn't
> > always work.
>

>> "116" <116> wrote in message
> > news:BD0F5EB0-A6EA-453B-92E4-ECEC632FE72E@microsoft.com...
> > >I appoligize. Outlook 2003. I would like the macro to run the key
> > >sequence
> > > 'ALT + 0126' which is Ascii for a Diameter symbol.
> >> > David
> >> > "Sue Mosher [MVP]" wrote:
> >> >> Alt+0216 makes no sense by itself. You need to provide a lot more
> > >> context,
> > >> including the Outlook version and what you actually are trying to
> > >> accomplish.
> > >
>> >> "116" <116> wrote in message
> > >> news:62AE724A-8247-4359-8233-8449878DF576@microsoft.com...
> > >> > My first attempt at a Macro, and I do not mess with VB enough. I am
> > >> > looking
> > >> > for a sample to run 'alt+0216'.

 

[116]

Outlook 2003. The characters would be in the body of the e-mail. I use

Outlook to compose the e-mail, not Word. I am not sure what other info you

require.

David

"Sue Mosher [MVP]" wrote:


> No, it's nowhere near that simple. We still don't know *where* you want to
> use these symbols or in which version of Outlook. If you can't provide that
> information, it is not going to be possible to help you.
> > Sue Mosher
> > >

> "116" <116> wrote in message
> news:FCB755E6-A91C-453C-AB90-7A9620DF379F@microsoft.com...
> > There are certain symbols I would like to start using rather than the text
> > (abbreviation). Such as the diameter, cents, symbols rather than spelling
> > it
> > or abbreviating. So by creating a Macro and simply entering Chr(216) in
> > the
> > VBA will take care of this?
> > David
> > "Sue Mosher [MVP]" wrote:
> >
> >> You can return that character in VBA with this expression: Chr(216)
> >
> >> However, we still don't know what you want to do with it. Outlook macros
> >> don't "run key sequences" unless you use a SendKeys kludge, which doesn't
> >> always work.
> >
> >> "116" <116> wrote in message
> >> news:BD0F5EB0-A6EA-453B-92E4-ECEC632FE72E@microsoft.com...
> >> >I appoligize. Outlook 2003. I would like the macro to run the key
> >> >sequence
> >> > 'ALT + 0126' which is Ascii for a Diameter symbol.
> >> >> > David
> >> >> > "Sue Mosher [MVP]" wrote:
> >> >> >> Alt+0216 makes no sense by itself. You need to provide a lot more
> >> >> context,
> >> >> including the Outlook version and what you actually are trying to
> >> >> accomplish.
> >> >
> >> >> "116" <116> wrote in message
> >> >> news:62AE724A-8247-4359-8233-8449878DF576@microsoft.com...
> >> >> > My first attempt at a Macro, and I do not mess with VB enough. I am
> >> >> > looking
> >> >> > for a sample to run 'alt+0216'.

>

 

[Sue Mosher [MVP]]

Are these messages in HTML or plain text or RTF format?

FWIW, if you're not using Word as your email editor in Outlook 2003,

accomplishing this task for all three message formats would require a

third-party programming library. You may want to consider not using Outlook

VBA at all, but instead getting a generic keystroke recorder/playback tool.

I have no information on those, but any search engine can find them for you.

Sue Mosher

"116" <116> wrote in message

news:93948A07-1259-46A5-8244-A9B2479E0342@microsoft.com...
> Outlook 2003. The characters would be in the body of the e-mail. I use
> Outlook to compose the e-mail, not Word. I am not sure what other info
> you
> require.

> David

> "Sue Mosher [MVP]" wrote:
>
> > No, it's nowhere near that simple. We still don't know *where* you want
> > to
> > use these symbols or in which version of Outlook. If you can't provide
> > that
> > information, it is not going to be possible to help you.
>

>> "116" <116> wrote in message
> > news:FCB755E6-A91C-453C-AB90-7A9620DF379F@microsoft.com...
> > > There are certain symbols I would like to start using rather than the
> > > text
> > > (abbreviation). Such as the diameter, cents, symbols rather than
> > > spelling
> > > it
> > > or abbreviating. So by creating a Macro and simply entering Chr(216)
> > > in
> > > the
> > > VBA will take care of this?
> >> > David
> >> > "Sue Mosher [MVP]" wrote:
> >> >> You can return that character in VBA with this expression: Chr(216)
> > >
>> >> However, we still don't know what you want to do with it. Outlook
> > >> macros
> > >> don't "run key sequences" unless you use a SendKeys kludge, which
> > >> doesn't
> > >> always work.
> > >
>> >> "116" <116> wrote in message
> > >> news:BD0F5EB0-A6EA-453B-92E4-ECEC632FE72E@microsoft.com...
> > >> >I appoligize. Outlook 2003. I would like the macro to run the key
> > >> >sequence
> > >> > 'ALT + 0126' which is Ascii for a Diameter symbol.
> > >>> >> > David
> > >>> >> > "Sue Mosher [MVP]" wrote:
> > >>> >> >> Alt+0216 makes no sense by itself. You need to provide a lot more
> > >> >> context,
> > >> >> including the Outlook version and what you actually are trying to
> > >> >> accomplish.
> > >> >
>> >> >> "116" <116> wrote in message
> > >> >> news:62AE724A-8247-4359-8233-8449878DF576@microsoft.com...
> > >> >> > My first attempt at a Macro, and I do not mess with VB enough. I
> > >> >> > am
> > >> >> > looking
> > >> >> > for a sample to run 'alt+0216'.
>

>
>>

 

[116]

I only use HTML in Outlook.

"Sue Mosher [MVP]" wrote:


> Are these messages in HTML or plain text or RTF format?

> FWIW, if you're not using Word as your email editor in Outlook 2003,
> accomplishing this task for all three message formats would require a
> third-party programming library. You may want to consider not using Outlook
> VBA at all, but instead getting a generic keystroke recorder/playback tool.
> I have no information on those, but any search engine can find them for you.
> > Sue Mosher
> > >

> "116" <116> wrote in message
> news:93948A07-1259-46A5-8244-A9B2479E0342@microsoft.com...
> > Outlook 2003. The characters would be in the body of the e-mail. I use
> > Outlook to compose the e-mail, not Word. I am not sure what other info
> > you
> > require.
> > David
> > "Sue Mosher [MVP]" wrote:
> >
> >> No, it's nowhere near that simple. We still don't know *where* you want
> >> to
> >> use these symbols or in which version of Outlook. If you can't provide
> >> that
> >> information, it is not going to be possible to help you.
> >
> >> "116" <116> wrote in message
> >> news:FCB755E6-A91C-453C-AB90-7A9620DF379F@microsoft.com...
> >> > There are certain symbols I would like to start using rather than the
> >> > text
> >> > (abbreviation). Such as the diameter, cents, symbols rather than
> >> > spelling
> >> > it
> >> > or abbreviating. So by creating a Macro and simply entering Chr(216)
> >> > in
> >> > the
> >> > VBA will take care of this?
> >> >> > David
> >> >> > "Sue Mosher [MVP]" wrote:
> >> >> >> You can return that character in VBA with this expression: Chr(216)
> >> >
> >> >> However, we still don't know what you want to do with it. Outlook
> >> >> macros
> >> >> don't "run key sequences" unless you use a SendKeys kludge, which
> >> >> doesn't
> >> >> always work.
> >> >
> >> >> "116" <116> wrote in message
> >> >> news:BD0F5EB0-A6EA-453B-92E4-ECEC632FE72E@microsoft.com...
> >> >> >I appoligize. Outlook 2003. I would like the macro to run the key
> >> >> >sequence
> >> >> > 'ALT + 0126' which is Ascii for a Diameter symbol.
> >> >> >> >> > David
> >> >> >> >> > "Sue Mosher [MVP]" wrote:
> >> >> >> >> >> Alt+0216 makes no sense by itself. You need to provide a lot more
> >> >> >> context,
> >> >> >> including the Outlook version and what you actually are trying to
> >> >> >> accomplish.
> >> >> >
> >> >> >> "116" <116> wrote in message
> >> >> >> news:62AE724A-8247-4359-8233-8449878DF576@microsoft.com...
> >> >> >> > My first attempt at a Macro, and I do not mess with VB enough. I
> >> >> >> > am
> >> >> >> > looking
> >> >> >> > for a sample to run 'alt+0216'.
> >
> >
> >>

>

 

[Sue Mosher [MVP]]

I don't have an Outlook 2003 system to test this on, but the code should

look something like this (adapted from

http://www.outlookcode.com/codedetail.aspx?id=1358):

Sub Insert216()

Call InsertSpecial("216")

End Sub

Sub InsertSpecial(strCharCode as String)

Dim msg As Outlook.MailItem

Dim insp As Outlook.Inspector

' need reference to Microsoft HTML Object Library

' at c:\windows\system32\mshtml.tlb

Dim hed As MSHTML.HTMLDocument

Dim rng As MSHTML.IHTMLTxtRange

Set insp = Application.ActiveInspector

If insp.CurrentItem.Class = olMail Then

Set msg = insp.CurrentItem

If insp.EditorType = olEditorHTML Then

Set hed = msg.GetInspector.HTMLEditor

Set rng = hed.Selection.createRange

rng.pasteHTML "&#" & strCharCode & ";"

End If

End If

Set insp = Nothing

Set rng = Nothing

Set hed = Nothing

Set msg = Nothing

End Sub

Note that I've written this as a macro that calls a reusable function. To

insert other special characters using their numbers, you would duplicate

that macro, each time using the appropriate number.

What is actually inserted into the HTML when you run the Insert216 macro is

Ø -- that's the generic HTML representation of that character, using

its decimal character code.

Sue Mosher

"116" <116> wrote in message

news6132BB1-6EFF-4816-9F39-9217DE15716D@microsoft.com...
> I only use HTML in Outlook.
>
> > > Outlook 2003. The characters would be in the body of the e-mail. I
> > > use
> > > Outlook to compose the e-mail, not Word.


> > >> > There are certain symbols I would like to start using rather than
> > >> > the
> > >> > text
> > >> > (abbreviation). Such as the diameter, cents, symbols rather than
> > >> > spelling
> > >> > it
> > >> > or abbreviating. So by creating a Macro and simply entering
> > >> > Chr(216)
> > >> > in
> > >> > the
> > >> > VBA will take care of this?
> > >> >