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.

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

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