Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Answer an Outlook Express message box
I have some VBL code that copies a specific worksheet from a workbook then
emails it. Is it possible to alter the code to answer an Outlook Express message box that asks if I want to send the message This the code that works well, except for the box that comes up Kill "C:\Documents and Settings\Compaq_Administrator\My Documents\Pay Slips\Book2.xls" Sheets("Pay Slip").Visible = True Sheets("Pay Slip").Select Sheets("Pay Slip").Copy Range("A1:G17").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("a1").Select ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\Compaq_Administrator\My Documents\Pay Slips\Book2.xls", _ FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.SendMail ", Subject:="Hi" ActiveWorkbook.Close SaveChanges:=False Sheets("Pay Slip").Select Sheets("Pay Slip").Visible = False |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Answer an Outlook Express message box
Hi ozhunter
See http://www.rondebruin.nl/mail/prevent.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "ozhunter" wrote in message ... I have some VBL code that copies a specific worksheet from a workbook then emails it. Is it possible to alter the code to answer an Outlook Express message box that asks if I want to send the message This the code that works well, except for the box that comes up Kill "C:\Documents and Settings\Compaq_Administrator\My Documents\Pay Slips\Book2.xls" Sheets("Pay Slip").Visible = True Sheets("Pay Slip").Select Sheets("Pay Slip").Copy Range("A1:G17").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("a1").Select ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\Compaq_Administrator\My Documents\Pay Slips\Book2.xls", _ FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.SendMail ", Subject:="Hi" ActiveWorkbook.Close SaveChanges:=False Sheets("Pay Slip").Select Sheets("Pay Slip").Visible = False |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Inclusion in Outlook Express | Excel Discussion (Misc queries) | |||
Outlook Express | Excel Discussion (Misc queries) | |||
outlook express 6 | Setting up and Configuration of Excel | |||
Outlook Express | Excel Discussion (Misc queries) | |||
Send to Outlook 2000 not Outlook Express | Excel Discussion (Misc queries) |