Re: Saving a single worksheet

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Hate to seem stupid but where do I insert Call MacroName and do I replace
Name with something else?

"Ron de Bruin" wrote:

Use only this line in the click event

Call MacroName


Also, if I use display under the lines for OutMail will it stop at the point
where I will have to push the send button for the message to go?

Correct
Download the example workbook from my site and you will see it

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Shawn" <Shawn@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message news:AFC93654-73CD-4408-8CC4-AA175AEB1A29@xxxxxxxxxxxxxxxx
Ron,
I used the script for Mil one *** in Outlook object model (attachment). I
am trying to apply this macro to a command button in the ***. The command
button applies:
Private Sub CommandButton1_Click()
Which is expecting and End command. If I delete that nothing happens when I
try the button. What should I do?
Also, if I use display under the lines for OutMail will it stop at the point
where I will have to push the send button for the message to go?
With OutMail
.To = "mark.may***@xxxxxxxxxxxxxxx"
.CC = "Central Lab"
'.BCC = ""
.Subject = "Central Lab Weekly WIG Update"
.Body = "Weekly WIG Update"
.Attachments.Add Destwb.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
"Ron de Bruin" wrote:

Hi Shawn

See
http://www.rondebruin.nl/sendmail.htm




Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Shawn" <Shawn@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message news:B30EC482-1FED-4D84-A27C-E14C46BC0DF6@xxxxxxxxxxxxxxxx
I am trying to ise a command button to save a single work*** from a
workbook to export to outlook and mail it. So far I have the following which
works fine but mails the whole workbook. My code is not good so details are
appreciated.
Private Sub CommandButton1_Click()
'
'' Email ***
' Taken from Dustin's time*** macro
' 1/28/08
'

Dim Fname
Fname = Active***.Name

Range("A1:N41").Select
Selection.Copy
'Sheets.Add
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveWindow.DisplayGridlines = False 'added
Application.CutCopyMode = False 'added
Application.StandardFont = "Tahoma"
Application.StandardFontSize = "10"
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Active***.Paste
With Active***.PageSetup
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.25)
End With
ChDir "C:\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\SHD_current_week.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
Application.Dialogs(xlDialogSendMail).Show
End Sub




.

Quantcast