Hello,

can anyone help me how to insert an email adress into a new message
via a "macro button"?

I would like to set up 5 different macro buttons for 5 most frequent
people. These macro buttons should be assigned with the respective
email address and by pressing the button, an email address should be
inserted in the message line.

Thank you very much.

Martin

This creates a new e-mail with one recipient:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am 25 Feb 2007 02:04:35 -0800 schrieb dadopodsem:

Hello,

can anyone help me how to insert an email adress into a new message
via a "macro button"?

I would like to set up 5 different macro buttons for 5 most frequent
people. These macro buttons should be assigned with the respective
email address and by pressing the button, an email address should be
inserted in the message line.

Thank you very much.

Martin

Mr Bauer, thank you very much. It really works!!! I have already made
some macro buttons with the script you specified below.

I wanted to change a little bit this way.
1) I would open a new message.
2) Into this one message into the "To:" address line I would like to
insert five different email addresses. I mean that there is no need to
open a new message each time I press the button. Only five different
email addresses would be inserted into the same line.
Say, I would have 20 users and I do not want to create mailing list
because there is a lot of combinations. I also do not want to use
aliases for so many users since I cannot remember them all.

So here the solution would be very fine through the macro buttons (as
described above).

Let me thank you once again for your kind and excellent assistance.

Best regards,

Martin -- Slovak Republic


On Feb 26, 6:34 am, "Michael Bauer [MVP - Outlook]"
wrote:
This creates a new e-mail with one recipient:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 25 Feb 2007 02:04:35 -0800 schrieb dadopodsem:



Hello,

can anyone help me how to insert an email adress into a new message
via a "macro button"?

I would like to set up 5 different macro buttons for 5 most frequent
people. These macro buttons should be assigned with the respective
email address and by pressing the button, an email address should be
inserted in the message line.

Thank you very much.

Martin- Hide quoted text -

- Show quoted text -

Martin, no prob at all - simply call Recipients.Add for each address.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 02:58:42 -0800 schrieb dadopodsem:

Mr Bauer, thank you very much. It really works!!! I have already made
some macro buttons with the script you specified below.

I wanted to change a little bit this way.
1) I would open a new message.
2) Into this one message into the "To:" address line I would like to
insert five different email addresses. I mean that there is no need to
open a new message each time I press the button. Only five different
email addresses would be inserted into the same line.
Say, I would have 20 users and I do not want to create mailing list
because there is a lot of combinations. I also do not want to use
aliases for so many users since I cannot remember them all.

So here the solution would be very fine through the macro buttons (as
described above).

Let me thank you once again for your kind and excellent assistance.

Best regards,

Martin -- Slovak Republic


On Feb 26, 6:34 am, "Michael Bauer [MVP - Outlook]"
wrote:
This creates a new e-mail with one recipient:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 25 Feb 2007 02:04:35 -0800 schrieb dadopodsem:



Hello,

can anyone help me how to insert an email adress into a new message
via a "macro button"?

I would like to set up 5 different macro buttons for 5 most frequent
people. These macro buttons should be assigned with the respective
email address and by pressing the button, an email address should be
inserted in the message line.

Thank you very much.

Martin- Hide quoted text -

- Show quoted text -

Michael, it does not work. I am dupe.

It should look like this?

Public Sub EMail1()
Recipients.Add "
End Sub

Public Sub EMail2()
Recipients.Add "
End Sub


On Feb 26, 12:40 pm, "Michael Bauer [MVP - Outlook]"
wrote:
Martin, no prob at all - simply call Recipients.Add for each address.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 02:58:42 -0800 schrieb dadopodsem:

Mr Bauer, thank you very much. It really works!!! I have already made
some macro buttons with the script you specified below.

I wanted to change a little bit this way.
1) I would open a new message.
2) Into this one message into the "To:" address line I would like to
insert five different email addresses. I mean that there is no need to
open a new message each time I press the button. Only five different
email addresses would be inserted into the same line.
Say, I would have 20 users and I do not want to create mailing list
because there is a lot of combinations. I also do not want to use
aliases for so many users since I cannot remember them all.

So here the solution would be very fine through the macro buttons (as
described above).

Let me thank you once again for your kind and excellent assistance.

Best regards,

Martin -- Slovak Republic

On Feb 26, 6:34 am, "Michael Bauer [MVP - Outlook]"
wrote:
This creates a new e-mail with one recipient:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 25 Feb 2007 02:04:35 -0800 schrieb dadopodsem:

Hello,

can anyone help me how to insert an email adress into a new message
via a "macro button"?

I would like to set up 5 different macro buttons for 5 most frequent
people. These macro buttons should be assigned with the respective
email address and by pressing the button, an email address should be
inserted in the message line.

Thank you very much.

Martin- Hide quoted text -

- Show quoted text -

As I understand, you want one button for one e-mail with five addresses.
That would be:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Display
End Sub


--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 13:49:16 -0800 schrieb dadopodsem:

Michael, it does not work. I am dupe.

It should look like this?

Public Sub EMail1()
Recipients.Add "
End Sub

Public Sub EMail2()
Recipients.Add "
End Sub


On Feb 26, 12:40 pm, "Michael Bauer [MVP - Outlook]"
wrote:
Martin, no prob at all - simply call Recipients.Add for each address.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 02:58:42 -0800 schrieb dadopodsem:

Mr Bauer, thank you very much. It really works!!! I have already made
some macro buttons with the script you specified below.

I wanted to change a little bit this way.
1) I would open a new message.
2) Into this one message into the "To:" address line I would like to
insert five different email addresses. I mean that there is no need to
open a new message each time I press the button. Only five different
email addresses would be inserted into the same line.
Say, I would have 20 users and I do not want to create mailing list
because there is a lot of combinations. I also do not want to use
aliases for so many users since I cannot remember them all.

So here the solution would be very fine through the macro buttons (as
described above).

Let me thank you once again for your kind and excellent assistance.

Best regards,

Martin -- Slovak Republic

On Feb 26, 6:34 am, "Michael Bauer [MVP - Outlook]"
wrote:
This creates a new e-mail with one recipient:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 25 Feb 2007 02:04:35 -0800 schrieb dadopodsem:

Hello,

can anyone help me how to insert an email adress into a new message
via a "macro button"?

I would like to set up 5 different macro buttons for 5 most frequent
people. These macro buttons should be assigned with the respective
email address and by pressing the button, an email address should be
inserted in the message line.

Thank you very much.

Martin- Hide quoted text -

- Show quoted text -

On Feb 27, 7:25 am, "Michael Bauer [MVP - Outlook]"
wrote:
As I understand, you want one button for one e-mail with five addresses.
That would be:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 13:49:16 -0800 schrieb dadopodsem:



Michael, it does not work. I am dupe.

It should look like this?

Public Sub EMail1()
Recipients.Add "
End Sub

Public Sub EMail2()
Recipients.Add "
End Sub

On Feb 26, 12:40 pm, "Michael Bauer [MVP - Outlook]"
wrote:
Martin, no prob at all - simply call Recipients.Add for each address.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 02:58:42 -0800 schrieb dadopodsem:

Mr Bauer, thank you very much. It really works!!! I have already made
some macro buttons with the script you specified below.

I wanted to change a little bit this way.
1) I would open a new message.
2) Into this one message into the "To:" address line I would like to
insert five different email addresses. I mean that there is no need to
open a new message each time I press the button. Only five different
email addresses would be inserted into the same line.
Say, I would have 20 users and I do not want to create mailing list
because there is a lot of combinations. I also do not want to use
aliases for so many users since I cannot remember them all.

So here the solution would be very fine through the macro buttons (as
described above).

Let me thank you once again for your kind and excellent assistance.

Best regards,

Martin -- Slovak Republic

On Feb 26, 6:34 am, "Michael Bauer [MVP - Outlook]"
wrote:
This creates a new e-mail with one recipient:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 25 Feb 2007 02:04:35 -0800 schrieb dadopodsem:

Hello,

can anyone help me how to insert an email adress into a new message
via a "macro button"?

I would like to set up 5 different macro buttons for 5 most frequent
people. These macro buttons should be assigned with the respective
email address and by pressing the button, an email address should be
inserted in the message line.

Thank you very much.

Martin- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -

Hi Michael,

no.

I want one button for one e-mail address. I do not want a button for
creating an email message.

1) I will open a new message.
2) I will have 20 macro buttons created at the tools panel.
3) I would like to freely combine email recipients by pressing the
buttons. So this is not so about the creating a message by button but
about creating the macro buttons for email addreses.
I just want to press button 1 and the email address of Mrs Robinson
(not email message) will appear in the To: line
).
Then I press button 2 and the email address of Mr Robinson (next to
Mrs Robinson) will appear )
So the result should look like this: ONe email message: To:
;

Thank you.

If the mail is already opened then it could look like this:

Public Sub Button1()
Dim Mail as Outlook.MailItem
Set Mail=Application.ActiveInspector.CurrentItem
Mail.Recipients.Add "adr1"
End Sub

You may add as much buttons as you like.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am 27 Feb 2007 00:18:44 -0800 schrieb dadopodsem:

On Feb 27, 7:25 am, "Michael Bauer [MVP - Outlook]"
wrote:
As I understand, you want one button for one e-mail with five addresses.
That would be:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 13:49:16 -0800 schrieb dadopodsem:



Michael, it does not work. I am dupe.

It should look like this?

Public Sub EMail1()
Recipients.Add "
End Sub

Public Sub EMail2()
Recipients.Add "
End Sub

On Feb 26, 12:40 pm, "Michael Bauer [MVP - Outlook]"
wrote:
Martin, no prob at all - simply call Recipients.Add for each address.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 02:58:42 -0800 schrieb dadopodsem:

Mr Bauer, thank you very much. It really works!!! I have already made
some macro buttons with the script you specified below.

I wanted to change a little bit this way.
1) I would open a new message.
2) Into this one message into the "To:" address line I would like to
insert five different email addresses. I mean that there is no need to
open a new message each time I press the button. Only five different
email addresses would be inserted into the same line.
Say, I would have 20 users and I do not want to create mailing list
because there is a lot of combinations. I also do not want to use
aliases for so many users since I cannot remember them all.

So here the solution would be very fine through the macro buttons (as
described above).

Let me thank you once again for your kind and excellent assistance.

Best regards,

Martin -- Slovak Republic

On Feb 26, 6:34 am, "Michael Bauer [MVP - Outlook]"
wrote:
This creates a new e-mail with one recipient:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 25 Feb 2007 02:04:35 -0800 schrieb dadopodsem:

Hello,

can anyone help me how to insert an email adress into a new message
via a "macro button"?

I would like to set up 5 different macro buttons for 5 most frequent
people. These macro buttons should be assigned with the respective
email address and by pressing the button, an email address should be
inserted in the message line.

Thank you very much.

Martin- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -

Hi Michael,

no.

I want one button for one e-mail address. I do not want a button for
creating an email message.

1) I will open a new message.
2) I will have 20 macro buttons created at the tools panel.
3) I would like to freely combine email recipients by pressing the
buttons. So this is not so about the creating a message by button but
about creating the macro buttons for email addreses.
I just want to press button 1 and the email address of Mrs Robinson
(not email message) will appear in the To: line
).
Then I press button 2 and the email address of Mr Robinson (next to
Mrs Robinson) will appear )
So the result should look like this: ONe email message: To:
;

Thank you.

How about c.c. field ?
Also how to make it a buttom on the outlook bar ?

"Michael Bauer [MVP - Outlook]" wrote:



If the mail is already opened then it could look like this:

Public Sub Button1()
Dim Mail as Outlook.MailItem
Set Mail=Application.ActiveInspector.CurrentItem
Mail.Recipients.Add "adr1"
End Sub

You may add as much buttons as you like.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am 27 Feb 2007 00:18:44 -0800 schrieb dadopodsem:

On Feb 27, 7:25 am, "Michael Bauer [MVP - Outlook]"
wrote:
As I understand, you want one button for one e-mail with five addresses.
That would be:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 13:49:16 -0800 schrieb dadopodsem:



Michael, it does not work. I am dupe.

It should look like this?

Public Sub EMail1()
Recipients.Add "
End Sub

Public Sub EMail2()
Recipients.Add "
End Sub

On Feb 26, 12:40 pm, "Michael Bauer [MVP - Outlook]"
wrote:
Martin, no prob at all - simply call Recipients.Add for each address.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 02:58:42 -0800 schrieb dadopodsem:

Mr Bauer, thank you very much. It really works!!! I have already made
some macro buttons with the script you specified below.

I wanted to change a little bit this way.
1) I would open a new message.
2) Into this one message into the "To:" address line I would like to
insert five different email addresses. I mean that there is no need to
open a new message each time I press the button. Only five different
email addresses would be inserted into the same line.
Say, I would have 20 users and I do not want to create mailing list
because there is a lot of combinations. I also do not want to use
aliases for so many users since I cannot remember them all.

So here the solution would be very fine through the macro buttons (as
described above).

Let me thank you once again for your kind and excellent assistance.

Best regards,

Martin -- Slovak Republic

On Feb 26, 6:34 am, "Michael Bauer [MVP - Outlook]"
wrote:
This creates a new e-mail with one recipient:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 25 Feb 2007 02:04:35 -0800 schrieb dadopodsem:

Hello,

can anyone help me how to insert an email adress into a new message
via a "macro button"?

I would like to set up 5 different macro buttons for 5 most frequent
people. These macro buttons should be assigned with the respective
email address and by pressing the button, an email address should be
inserted in the message line.

Thank you very much.

Martin- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -

Hi Michael,

no.

I want one button for one e-mail address. I do not want a button for
creating an email message.

1) I will open a new message.
2) I will have 20 macro buttons created at the tools panel.
3) I would like to freely combine email recipients by pressing the
buttons. So this is not so about the creating a message by button but
about creating the macro buttons for email addreses.
I just want to press button 1 and the email address of Mrs Robinson
(not email message) will appear in the To: line
).
Then I press button 2 and the email address of Mr Robinson (next to
Mrs Robinson) will appear )
So the result should look like this: ONe email message: To:
;

Thank you.

The Add function returns a Recipient object. You can set its Type property
to olCC.

If it's for yourself, easiest way for the button is to customize the toolbar
manually (righ click, customize, macros, drag the macro's name onto the
toolbar).

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am Fri, 2 Mar 2007 05:14:03 -0800 schrieb John Wong:

How about c.c. field ?
Also how to make it a buttom on the outlook bar ?

"Michael Bauer [MVP - Outlook]" wrote:



If the mail is already opened then it could look like this:

Public Sub Button1()
Dim Mail as Outlook.MailItem
Set Mail=Application.ActiveInspector.CurrentItem
Mail.Recipients.Add "adr1"
End Sub

You may add as much buttons as you like.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am 27 Feb 2007 00:18:44 -0800 schrieb dadopodsem:

On Feb 27, 7:25 am, "Michael Bauer [MVP - Outlook]"
wrote:
As I understand, you want one button for one e-mail with five
addresses.
That would be:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Recipients.Add "...."
Mail.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 13:49:16 -0800 schrieb dadopodsem:



Michael, it does not work. I am dupe.

It should look like this?

Public Sub EMail1()
Recipients.Add "
End Sub

Public Sub EMail2()
Recipients.Add "
End Sub

On Feb 26, 12:40 pm, "Michael Bauer [MVP - Outlook]"
wrote:
Martin, no prob at all - simply call Recipients.Add for each address.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 26 Feb 2007 02:58:42 -0800 schrieb dadopodsem:

Mr Bauer, thank you very much. It really works!!! I have already
made
some macro buttons with the script you specified below.

I wanted to change a little bit this way.
1) I would open a new message.
2) Into this one message into the "To:" address line I would like to
insert five different email addresses. I mean that there is no need
to
open a new message each time I press the button. Only five different
email addresses would be inserted into the same line.
Say, I would have 20 users and I do not want to create mailing list
because there is a lot of combinations. I also do not want to use
aliases for so many users since I cannot remember them all.

So here the solution would be very fine through the macro buttons
(as
described above).

Let me thank you once again for your kind and excellent assistance.

Best regards,

Martin -- Slovak Republic

On Feb 26, 6:34 am, "Michael Bauer [MVP - Outlook]"
wrote:
This creates a new e-mail with one recipient:

Public Sub EMail1()
Dim Mail as Outlook.MailItem

Set Mail=Application.CreateItem(olMailItem)
Mail.Recipients.Add "...."
Mail.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!

http://www.shareit.com/product.html?...4&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 25 Feb 2007 02:04:35 -0800 schrieb dadopodsem:

Hello,

can anyone help me how to insert an email adress into a new
message
via a "macro button"?

I would like to set up 5 different macro buttons for 5 most
frequent
people. These macro buttons should be assigned with the respective
email address and by pressing the button, an email address should
be
inserted in the message line.

Thank you very much.

Martin- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -

Hi Michael,

no.

I want one button for one e-mail address. I do not want a button for
creating an email message.

1) I will open a new message.
2) I will have 20 macro buttons created at the tools panel.
3) I would like to freely combine email recipients by pressing the
buttons. So this is not so about the creating a message by button but
about creating the macro buttons for email addreses.
I just want to press button 1 and the email address of Mrs Robinson
(not email message) will appear in the To: line
).
Then I press button 2 and the email address of Mr Robinson (next to
Mrs Robinson) will appear )
So the result should look like this: ONe email message: To:
;

Thank you.