change default e-mail form

**Nader** · April 28th 06, 11:00 AM posted to microsoft.public.outlook.program_vba

Hello,

I'd like to modifiy the default e-mail form (outlook 2002) so whenever I
send an e-mail I can add some text automatically without user being able to
see it.

thanks in advance.

**Michael Bauer** · April 30th 06, 10:14 AM posted to microsoft.public.outlook.program_vba

Am Fri, 28 Apr 2006 11:00:35 +0200 schrieb Nader:

I wouldn´t modify the form for that, but in the ItemSend event add a field
to the UserProperties collection.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Hello,

I'd like to modifiy the default e-mail form (outlook 2002) so whenever I
send an e-mail I can add some text automatically without user being able
to
see it.

thanks in advance.

**Nader** · May 1st 06, 01:23 PM posted to microsoft.public.outlook.program_vba

Thanks. So what would be the best way then to do what I want ?

thanks.

"Michael Bauer" a écrit dans le message de news:
...
Am Fri, 28 Apr 2006 11:00:35 +0200 schrieb Nader:

I wouldn´t modify the form for that, but in the ItemSend event add a field
to the UserProperties collection.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Hello,

I'd like to modifiy the default e-mail form (outlook 2002) so whenever I
send an e-mail I can add some text automatically without user being able
to
see it.

thanks in advance.

**Michael Bauer** · May 2nd 06, 07:33 AM posted to microsoft.public.outlook.program_vba

Am Mon, 1 May 2006 13:23:17 +0200 schrieb Nader:

Sample:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
Dim p as Outlook.UserProperty
Set p=Item.UserProperties("property_name")
If p Is Nothing Then
Set p=Item.UserProperties.Add("property_name")
Endif
p.value="huhu"
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Thanks. So what would be the best way then to do what I want ?

thanks.

"Michael Bauer" a écrit dans le message de news:
...
Am Fri, 28 Apr 2006 11:00:35 +0200 schrieb Nader:

I wouldn´t modify the form for that, but in the ItemSend event add a
field
to the UserProperties collection.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Hello,

I'd like to modifiy the default e-mail form (outlook 2002) so whenever I
send an e-mail I can add some text automatically without user being able
to
see it.

thanks in advance.

**Nader** · May 2nd 06, 06:50 PM posted to microsoft.public.outlook.program_vba

Is this the vbscript code that should go into the form ? Or is it possible
to create an addin that will caputre the send event and the text to the body
of the message I'm sending.

thanks.

"Michael Bauer" a écrit dans le message de news:
...
Am Mon, 1 May 2006 13:23:17 +0200 schrieb Nader:

Sample:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
Dim p as Outlook.UserProperty
Set p=Item.UserProperties("property_name")
If p Is Nothing Then
Set p=Item.UserProperties.Add("property_name")
Endif
p.value="huhu"
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Thanks. So what would be the best way then to do what I want ?

thanks.

"Michael Bauer" a écrit dans le message de news:
...
Am Fri, 28 Apr 2006 11:00:35 +0200 schrieb Nader:

I wouldn´t modify the form for that, but in the ItemSend event add a
field
to the UserProperties collection.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Hello,

I'd like to modifiy the default e-mail form (outlook 2002) so whenever
I
send an e-mail I can add some text automatically without user being
able
to
see it.

thanks in advance.

**Michael Bauer** · May 3rd 06, 07:04 AM posted to microsoft.public.outlook.program_vba

Am Tue, 2 May 2006 18:50:47 +0200 schrieb Nader:

That´s VBA, not VBScript for custom forms. Yes, you could also create
Add-Ins and use that code.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Is this the vbscript code that should go into the form ? Or is it possible
to create an addin that will caputre the send event and the text to the
body
of the message I'm sending.

thanks.

"Michael Bauer" a écrit dans le message de news:
...
Am Mon, 1 May 2006 13:23:17 +0200 schrieb Nader:

Sample:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
Dim p as Outlook.UserProperty
Set p=Item.UserProperties("property_name")
If p Is Nothing Then
Set p=Item.UserProperties.Add("property_name")
Endif
p.value="huhu"
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Thanks. So what would be the best way then to do what I want ?

thanks.

"Michael Bauer" a écrit dans le message de news:
...
Am Fri, 28 Apr 2006 11:00:35 +0200 schrieb Nader:

I wouldn´t modify the form for that, but in the ItemSend event add a
field
to the UserProperties collection.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Hello,

I'd like to modifiy the default e-mail form (outlook 2002) so whenever
I
send an e-mail I can add some text automatically without user being
able
to
see it.

thanks in advance.

**Nader** · May 9th 06, 04:43 PM posted to microsoft.public.outlook.program_vba

Hello,

thanks for the help. I've created an add-in with vb6 and I've tried to send
an email with outlook. When I send the email I get an error : "argument not
optional".

the code :

Private Sub objOLApp_ItemSend(ByVal Item As Object, Cancel As Boolean)

On Error GoTo errMsgBox

Dim p As Outlook.UserProperty
Set p = Item.UserProperties("Body")

If p Is Nothing Then
Set p = Item.UserProperties.Add("Body")
End If

p.Value = "huhu"

errMsgBox:

MsgBox Err.Description

End Sub

thanks in advance.

"Michael Bauer" a écrit dans le message de news:
...
Am Tue, 2 May 2006 18:50:47 +0200 schrieb Nader:

That´s VBA, not VBScript for custom forms. Yes, you could also create
Add-Ins and use that code.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Is this the vbscript code that should go into the form ? Or is it
possible
to create an addin that will caputre the send event and the text to the
body
of the message I'm sending.

thanks.

"Michael Bauer" a écrit dans le message de news:
...
Am Mon, 1 May 2006 13:23:17 +0200 schrieb Nader:

Sample:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)
On Error Resume Next
Dim p as Outlook.UserProperty
Set p=Item.UserProperties("property_name")
If p Is Nothing Then
Set p=Item.UserProperties.Add("property_name")
Endif
p.value="huhu"
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Thanks. So what would be the best way then to do what I want ?

thanks.

"Michael Bauer" a écrit dans le message de news:
...
Am Fri, 28 Apr 2006 11:00:35 +0200 schrieb Nader:

I wouldn´t modify the form for that, but in the ItemSend event add a
field
to the UserProperties collection.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Hello,

I'd like to modifiy the default e-mail form (outlook 2002) so
whenever
I
send an e-mail I can add some text automatically without user being
able
to
see it.

thanks in advance.

**Michael Bauer** · May 10th 06, 07:22 AM posted to microsoft.public.outlook.program_vba

Am Tue, 9 May 2006 16:43:56 +0200 schrieb Nader:

Nader, when the error raises it highlights the line of code for you. Please
set the cursor into the method it´s subject to ('Add' in this case) right
click and select "Quick Info". It´ll popup a tooltip that shows you all the
method´s arguments. That ones in brackets are optional, the other ones are
not, i.e. they must be specified.

If you now click with the mouse into the argument you have specified
("Body") it highlights its name in the tooltip. So you can simply see what
arguments are missed.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Hello,

thanks for the help. I've created an add-in with vb6 and I've tried to
send
an email with outlook. When I send the email I get an error : "argument
not
optional".

the code :

Private Sub objOLApp_ItemSend(ByVal Item As Object, Cancel As Boolean)

On Error GoTo errMsgBox

Dim p As Outlook.UserProperty
Set p = Item.UserProperties("Body")

If p Is Nothing Then
Set p = Item.UserProperties.Add("Body")
End If

p.Value = "huhu"

errMsgBox:

MsgBox Err.Description

End Sub

thanks in advance.

"Michael Bauer" a écrit dans le message de news:
...
Am Tue, 2 May 2006 18:50:47 +0200 schrieb Nader:

That´s VBA, not VBScript for custom forms. Yes, you could also create
Add-Ins and use that code.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Is this the vbscript code that should go into the form ? Or is it
possible
to create an addin that will caputre the send event and the text to the
body
of the message I'm sending.

thanks.

"Michael Bauer" a écrit dans le message de news:
...
Am Mon, 1 May 2006 13:23:17 +0200 schrieb Nader:

Sample:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)
On Error Resume Next
Dim p as Outlook.UserProperty
Set p=Item.UserProperties("property_name")
If p Is Nothing Then
Set p=Item.UserProperties.Add("property_name")
Endif
p.value="huhu"
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Thanks. So what would be the best way then to do what I want ?

thanks.

"Michael Bauer" a écrit dans le message de news:
...
Am Fri, 28 Apr 2006 11:00:35 +0200 schrieb Nader:

I wouldn´t modify the form for that, but in the ItemSend event add a
field
to the UserProperties collection.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Hello,

I'd like to modifiy the default e-mail form (outlook 2002) so
whenever
I
send an e-mail I can add some text automatically without user being
able
to
see it.

thanks in advance.

**Nader** · May 10th 06, 11:53 AM posted to microsoft.public.outlook.program_vba

thank you Michael.

"Michael Bauer" a écrit dans le message de news:
...
Am Tue, 9 May 2006 16:43:56 +0200 schrieb Nader:

Nader, when the error raises it highlights the line of code for you.
Please
set the cursor into the method it´s subject to ('Add' in this case) right
click and select "Quick Info". It´ll popup a tooltip that shows you all
the
method´s arguments. That ones in brackets are optional, the other ones are
not, i.e. they must be specified.

If you now click with the mouse into the argument you have specified
("Body") it highlights its name in the tooltip. So you can simply see what
arguments are missed.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Hello,

thanks for the help. I've created an add-in with vb6 and I've tried to
send
an email with outlook. When I send the email I get an error : "argument
not
optional".

the code :

Private Sub objOLApp_ItemSend(ByVal Item As Object, Cancel As Boolean)

On Error GoTo errMsgBox

Dim p As Outlook.UserProperty
Set p = Item.UserProperties("Body")

If p Is Nothing Then
Set p = Item.UserProperties.Add("Body")
End If

p.Value = "huhu"

errMsgBox:

MsgBox Err.Description

End Sub

thanks in advance.

"Michael Bauer" a écrit dans le message de news:
...
Am Tue, 2 May 2006 18:50:47 +0200 schrieb Nader:

That´s VBA, not VBScript for custom forms. Yes, you could also create
Add-Ins and use that code.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Is this the vbscript code that should go into the form ? Or is it
possible
to create an addin that will caputre the send event and the text to the
body
of the message I'm sending.

thanks.

"Michael Bauer" a écrit dans le message de news:
...
Am Mon, 1 May 2006 13:23:17 +0200 schrieb Nader:

Sample:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)
On Error Resume Next
Dim p as Outlook.UserProperty
Set p=Item.UserProperties("property_name")
If p Is Nothing Then
Set p=Item.UserProperties.Add("property_name")
Endif
p.value="huhu"
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Thanks. So what would be the best way then to do what I want ?

thanks.

"Michael Bauer" a écrit dans le message de news:
...
Am Fri, 28 Apr 2006 11:00:35 +0200 schrieb Nader:

I wouldn´t modify the form for that, but in the ItemSend event add a
field
to the UserProperties collection.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --

Hello,

I'd like to modifiy the default e-mail form (outlook 2002) so
whenever
I
send an e-mail I can add some text automatically without user being
able
to
see it.

thanks in advance.

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Change default mailbox	Hlewis	Outlook and VBA	3	March 5th 06 03:52 PM
How do you change the default display form?	Spike9458	Outlook - Using Contacts	1	January 30th 06 05:31 PM
Change Default Send email form to Custom Send email Form	Sue Mosher [MVP-Outlook]	Outlook - Using Forms	0	January 20th 06 06:33 PM
Why does Outlook 2003 Contact Form change with regional Unicode change	[email protected]	Outlook - General Queries	0	January 19th 06 04:50 AM
How do I change the default Office Mail form?	pbusardo	Outlook - Installation	1	January 14th 06 07:40 PM