Email icon in spreadsheet as per email icon in Quick Access Toolbar

Hi everyone,

I need to send out an order form (spreadsheet) to 100's of people that need to complete the form and email back to me as an attachment. If I was completing the order form myself I would use the "email" icon that I have pinned to my Quick Access Toolbar (QAT). However, most of the recipients don't even know the Toolbar exists.

Is there a way I can insert an icon / hyperlink in the spreadsheet that does the same thing as the QAT icon. I can insert text to say "click here to email your order" (or similar).

I need to keep it in an excel format and an icon is so much better that asking them to save to their hard-drive and attach to an email, etc.

Any ideas ??? The QAT icon is exactly what is needed but I need to provide a spreadsheet that works for folk who haven't got the icon.

Thanks

Mike_100

I think you're trying to do:

Please Login or Register  to view this content.

Create a module with that code in it, and make a little icon object that looks however you want.
Right click > Assign Macro > select the module.

Hi Jamie
Thanks very much - so far so good. How do I pre-address the email in the macro (to save these folk typing in the wrong address). Similarly, I should be able to add a "SUBJECT" line ... what would be the correct code for that ?
Many thanks so far.
Mike

Using a completely different method, and assuming you're using MS Outlook:

Please Login or Register  to view this content.

Hi Jamie

The module below (from your reply) does nothing !! Have inserted as a Macro in the spreadsheet but when I run the Macro (or F5 from Visual Basic) nothing happens.

Mike

Sub MailWorkbook()
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail
.to = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "Our Order"
.Body = ""

.Attachments.Add ActiveWorkbook.FullName


End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub