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