Link to send file to an e-mail address

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How do I create a link within a workbook to send that workbook to an
indicated email address? Thanks.
 
PJ,

The following code will create an Outlook MailItem with the current workbook
as the attachment

Set myOlApp = CreateObject("Outlook.Application")
'Dim myOlApp As New Outlook.Application
Set myitem = myOlApp.CreateItem(olMailItem)
myitem.Display
myitem.Recipients.Add Sheet1.Range("a2").Value
myitem.Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name

http://HelpExcel.com
 
Thanks galimi. Unfortunately I'm not very good with the advanced part of
Excel so I'm not really sure where I should be entering this information.
Also, my work only allows me access to certain sites and http://helpexcel.com
is not one of them. Can you please elaborate on your response? Thanks!

-PJ
 
You must log in or register to reply here.

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

Similar Threads

Removing file extensions on e-mail 1
How to create absolue path link to another workbook (Excel 2003) 1
e-mailing a single Sheet 1
excel links 2
e-mail individual worksheet/tab w/out e-mailing entire workbook? 1
How to extract email addresses from 1 worksheet to another workbook 11
GAL does not show up when e-mailing from Excel 2003 4
How To Embed Link That Mails My Workbook 1

Back
Top