Appending Text to Subject Field in Outlook 1

[drace1111]

I need to create a VBA macro that will append a text string to the end of the subject line in Outlook. This will probably be firerd off by a button. Since I'm not a VBA programmer, I'm not even sure where to start. Any help is appreciated.

 

[firefytr]

Can you be more specific here? What application are you calling this from? What button? What email item??

Regards,
Zack Barresse

Simplicity is the ultimate sophistication. What is a MS MVP? PODA
- Leonardo da Vinci

 

[drace1111]

I'm calling from within Outlook, and I'll be creating a button on the standard toolbar in the new mail message window that, when clicked, will append a set string of text to the end of the subject field.

 

[misterstick]

the ActiveInspector object is what you need.

Sub AddToEndOfSubjectLine()
If ActiveInspector Is Nothing Then Exit Sub
ActiveInspector.CurrentItem.Subject = ActiveInspector.CurrentItem.Subject + " HELLO!"
End Sub

mr s. <

 

[drace1111]

Thanks, this is a step in the right direction, but it's replacing any existing text in the subject field. I need it to append to the end.

Getting close!

 

[misterstick]

should have been "&" and not "+", sorry, too used to c#.

"a = a & b" should append string b to string a, if it doesn't then you've typed it wrongly.


mr s. <

 

[PHV]

if it doesn't then you've typed it wrongly
or a was empy ...

 

[drace1111]

I replaced the "+" with a "&", but any existing text is still being replaced with the string, in this case HELLO!. Anything else that might be causing this?

 

[misterstick]

could you post the code as is?

thanks,

mr s. <

 

[drace1111]

This is what I have:

Sub AddToEndOfSubjectLine()
If ActiveInspector Is Nothing Then Exit Sub
ActiveInspector.CurrentItem.Subject = ActiveInspector.CurrentItem.Subject & " HELLO!"
End Sub

 

[misterstick]

i think the problem is that you've a new item, and the subject on the item is blank, although it is non-blank in the inspector.

Sub AddToEndOfSubjectLine()
If ActiveInspector Is Nothing Then Exit Sub
ActiveInspector.CurrentItem.Save
ActiveInspector.CurrentItem.Subject = ActiveInspector.CurrentItem.Subject & " HELLO!"
End Sub

mr s. <

 

[drace1111]

That worked! Star for you.

Thank you.

 

[misterstick]

why, thank you.

mr s. <