Sending a spreadsheet as an attachment
Hi Tracy
Try the examples on my site http://www.rondebruin.nl/sendmail.htm -- Regards Ron de Bruin http://www.rondebruin.nl "TracyNHoward" wrote in message ... I want to place a button on a spreadsheet that will automatically send the attachment to a specific set of email addresses and a specific subject line. Any help would be appreciated. |
Sending a spreadsheet as an attachment
This macro saves the file, then opens Outlook to mail. It puts the names in the TO: field (arg1) and the file/location name in the Subject (arg2). However it still attaches the file. I don't want the file attached. I'll change the Subject (arg2) to be a text message but I want the text are to say, "Please click on this link (insert file location here)" to view my request that needs your approval. How do I keep the file from being attached? Sub Approved() ' This macro will send the file to the Facilities and Accounting On Error Resume Next ActiveWorkbook.SaveAs Filename:="d:\downloads\" & Range("M14").Value & ".xls" Application.Dialogs(xlDialogSendMail).Show _ ; " & ", _ arg2:="d:\downloads\" & Range("M14").Value & ".xls" On Error GoTo 0 End Sub On Thu, 9 Sep 2004 17:08:48 +0200, "Ron de Bruin" wrote: Hi Tracy Try the examples on my site http://www.rondebruin.nl/sendmail.htm |
Sending a spreadsheet as an attachment
See your other thread
-- Regards Ron de Bruin http://www.rondebruin.nl "NO One" wrote in message ... This macro saves the file, then opens Outlook to mail. It puts the names in the TO: field (arg1) and the file/location name in the Subject (arg2). However it still attaches the file. I don't want the file attached. I'll change the Subject (arg2) to be a text message but I want the text are to say, "Please click on this link (insert file location here)" to view my request that needs your approval. How do I keep the file from being attached? Sub Approved() ' This macro will send the file to the Facilities and Accounting On Error Resume Next ActiveWorkbook.SaveAs Filename:="d:\downloads\" & Range("M14").Value & ".xls" Application.Dialogs(xlDialogSendMail).Show _ ; " & ", _ arg2:="d:\downloads\" & Range("M14").Value & ".xls" On Error GoTo 0 End Sub On Thu, 9 Sep 2004 17:08:48 +0200, "Ron de Bruin" wrote: Hi Tracy Try the examples on my site http://www.rondebruin.nl/sendmail.htm |
All times are GMT +1. The time now is 04:26 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com