A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

How to insert an email adress into a new message



 
 
Thread Tools Search this Thread Display Modes
  #11  
Old March 4th 07, 12:33 PM posted to microsoft.public.outlook.program_vba
dadopodsem
external usenet poster
 
Posts: 5
Default How to insert an email adress into a new message

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.




On Feb 27, 10:13 am, "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.




Ads
  #12  
Old March 5th 07, 07:45 AM posted to microsoft.public.outlook.program_vba
Michael Bauer [MVP - Outlook]
external usenet poster
 
Posts: 1,885
Default How to insert an email adress into a new message



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?...4&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.




On Feb 27, 10:13 am, "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.

 




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Add in Adress Book one adress received Fernando Ranito Outlook - Using Contacts 1 December 9th 06 09:40 PM
insert as text (to insert html into email body) Iona Outlook - General Queries 1 July 13th 06 01:10 PM
Insert BCC-adress [fixed] in each e-mail sent Miyahn Outlook Express 0 April 14th 06 11:20 PM
Insert BCC-adress [fixed] in each e-mail sent Touch Base Outlook Express 0 April 14th 06 04:38 PM
Insert BCC-adress [fixed] in each e-mail sent Bruce Hagen Outlook Express 0 April 14th 06 03:58 PM


All times are GMT +1. The time now is 12:34 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.