How to insert an email adress into a new message

D

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
 
M

Michael Bauer [MVP - Outlook]

D

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
 
D

dadopodsem

Michael, it does not work. I am dupe.

It should look like this?

Public Sub EMail1()
Recipients.Add "(e-mail address removed)"
End Sub

Public Sub EMail2()
Recipients.Add "(e-mail address removed)"
End Sub
 
M

Michael Bauer [MVP - Outlook]

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?productid=300120654&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 "(e-mail address removed)"
End Sub

Public Sub EMail2()
Recipients.Add "(e-mail address removed)"
End Sub


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?productid=300120654&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]" <[email protected]>
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?productid=300120654&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)
Am 25 Feb 2007 02:04:35 -0800 schrieb dadopodsem:

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 -
 
D

dadopodsem

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?productid=300120654&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 "(e-mail address removed)"
End Sub
Public Sub EMail2()
Recipients.Add "(e-mail address removed)"
End Sub
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?productid=300120654&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]" <[email protected]>
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?productid=300120654&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
([email protected]).
Then I press button 2 and the email address of Mr Robinson (next to
Mrs Robinson) will appear ([email protected])
So the result should look like this: ONe email message: To:
(e-mail address removed); (e-mail address removed)

Thank you.
 
M

Michael Bauer [MVP - Outlook]

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?productid=300120654&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am 27 Feb 2007 00:18:44 -0800 schrieb dadopodsem:
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?productid=300120654&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 "(e-mail address removed)"
End Sub
Public Sub EMail2()
Recipients.Add "(e-mail address removed)"
End Sub
On Feb 26, 12:40 pm, "Michael Bauer [MVP - Outlook]" <[email protected]>
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?productid=300120654&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]" <[email protected]>
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?productid=300120654&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)
Am 25 Feb 2007 02:04:35 -0800 schrieb dadopodsem:

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
([email protected]).
Then I press button 2 and the email address of Mr Robinson (next to
Mrs Robinson) will appear ([email protected])
So the result should look like this: ONe email message: To:
(e-mail address removed); (e-mail address removed)

Thank you.
 
J

John Wong

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

Michael Bauer said:
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?productid=300120654&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am 27 Feb 2007 00:18:44 -0800 schrieb dadopodsem:
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?productid=300120654&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 "(e-mail address removed)"
End Sub

Public Sub EMail2()
Recipients.Add "(e-mail address removed)"
End Sub

On Feb 26, 12:40 pm, "Michael Bauer [MVP - Outlook]" <[email protected]>
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?productid=300120654&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]" <[email protected]>
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?productid=300120654&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
([email protected]).
Then I press button 2 and the email address of Mr Robinson (next to
Mrs Robinson) will appear ([email protected])
So the result should look like this: ONe email message: To:
(e-mail address removed); (e-mail address removed)

Thank you.
 
M

Michael Bauer [MVP - Outlook]

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?productid=300120654&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 said:
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?productid=300120654&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]" <[email protected]>
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?productid=300120654&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 "(e-mail address removed)"
End Sub

Public Sub EMail2()
Recipients.Add "(e-mail address removed)"
End Sub

On Feb 26, 12:40 pm, "Michael Bauer [MVP - Outlook]" <[email protected]>
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?productid=300120654&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]" <[email protected]>
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?productid=300120654&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
([email protected]).
Then I press button 2 and the email address of Mr Robinson (next to
Mrs Robinson) will appear ([email protected])
So the result should look like this: ONe email message: To:
(e-mail address removed); (e-mail address removed)

Thank you.
 
D

dadopodsem

Thank you Michael. Yes, this one works excellent.
But I also wondered how to insert a Carbon Copy.
This macro also inserts an email address to the already open messages.

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?productid=300120654&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)

Am 27 Feb 2007 00:18:44 -0800 schrieb dadopodsem:
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?productid=300120654&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 "(e-mail address removed)"
End Sub
Public Sub EMail2()
Recipients.Add "(e-mail address removed)"
End Sub
On Feb 26, 12:40 pm, "Michael Bauer [MVP - Outlook]" <[email protected]>
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?productid=300120654&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]" <[email protected]>
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?productid=300120654&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,

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
([email protected]).
Then I press button 2 and the email address of Mr Robinson (next to
Mrs Robinson) will appear ([email protected])
So the result should look like this: ONe email message: To:
(e-mail address removed); (e-mail address removed)
Thank you.
 
M

Michael Bauer [MVP - Outlook]

Now you know how to do that, don't you?

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


Am 4 Mar 2007 03:33:59 -0800 schrieb dadopodsem:
Thank you Michael. Yes, this one works excellent.
But I also wondered how to insert a Carbon Copy.
This macro also inserts an email address to the already open messages.

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?productid=300120654&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]" <[email protected]>
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?productid=300120654&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 "(e-mail address removed)"
End Sub
Public Sub EMail2()
Recipients.Add "(e-mail address removed)"
End Sub
On Feb 26, 12:40 pm, "Michael Bauer [MVP - Outlook]" <[email protected]>
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?productid=300120654&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]" <[email protected]>
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?productid=300120654&languageid=1
(German:http://www.VBOffice.net/product.html?pub=6)
Am 25 Feb 2007 02:04:35 -0800 schrieb dadopodsem:

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,

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
([email protected]).
Then I press button 2 and the email address of Mr Robinson (next to
Mrs Robinson) will appear ([email protected])
So the result should look like this: ONe email message: To:
(e-mail address removed); (e-mail address removed)
Thank you.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top