Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Link to send file to an e-mail address
How do I create a link within a workbook to send that workbook to an
indicated email address? Thanks. |
#2
|
|||
|
|||
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 "-PJ" wrote: How do I create a link within a workbook to send that workbook to an indicated email address? Thanks. |
#3
|
|||
|
|||
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 "galimi" wrote: 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 "-PJ" wrote: How do I create a link within a workbook to send that workbook to an indicated email address? Thanks. |
#4
|
|||
|
|||
I will post an example to http://www.Galimi.com/Examples by tomorrow
"-PJ" wrote: 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 "galimi" wrote: 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 "-PJ" wrote: How do I create a link within a workbook to send that workbook to an indicated email address? Thanks. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
use File Send with Office and Lotus Notes | Excel Discussion (Misc queries) | |||
use File Send with Office and Lotus Notes | Excel Discussion (Misc queries) | |||
Weekly Transaction Processing | Excel Worksheet Functions | |||
Read Text File into Excel Using VBA | Excel Discussion (Misc queries) | |||
Cannot "Send to -> mail recipient (as attachment)" | Excel Discussion (Misc queries) |