Link to send file to an e-mail address

P

-PJ

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

galimi

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
 
P

-PJ

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
 
Top