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 -