eMail a sheet
 

I think you'll have to use the MAPI add-in if you can't assume on the users
having Outlook.I have some code at work I'll dig it out tomorrow.
It's something like:
Set objSession = CreateObject("MAPI.Session")
objSession.Logon "", "", False, False, 0

Set objMessage = objSession.Outbox.Messages.Add

With objMessage
.Subject = Subject$
.Text = MessageText$ + Chr$(10)
Set objAttach = .Attachments.Add
With objAttach
.Type = 1
.Position = 0
.Source = Attachment$
.Name = "xxx.txt"
End With
End With

Set objOneRecip = objMessage.Recipients.Add
objOneRecip.Name = Recipient$
objOneRecip.Resolve

objMessage.Update
objMessage.Send showDialog:=False
objSession.Logoff
SendMessage = True


--
If I've mis-understood the question please tell me.

HTH

ijb

Remove nospam from my e-mail address to talk direct

Not MCSD, MVP, TLA, P&P, PCMCIA, etc just trying to help


"Ren" wrote in message
...
Salutation To All

I would like to be able to use a button, and by clicking on this button,
would result on my Sheet6 being eMail to some one.

Those using this application might not be using Outlook Express or Outlook
for emailing.

Thanks to all

Ren