Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
send excel by email
hi
I'm trying to send a sheet by email, but I want to send just a sheet. I'm using this code: ActiveWorkbook.SendMail " but with this code all file is send. how can I do for to send just a sheet?? thanks -- Sérgio Aires Lisboa Portugal |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
send excel by email
Hi,
A sheet is not a standalone object (otherwise, Microsoft would have provided objects at operating system level to recognise them). It exists within the workbook object, hence, you may not be able to send only worksheet in an e-mail. "Sérgio Aires" wrote: hi I'm trying to send a sheet by email, but I want to send just a sheet. I'm using this code: ActiveWorkbook.SendMail " but with this code all file is send. how can I do for to send just a sheet?? thanks -- Sérgio Aires Lisboa Portugal |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
send excel by email
Application.DisplayAlerts = False
Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm-ss") Application.ScreenUpdating = False Sheets("Sheet2").Copy Set wb = ActiveWorkbook With wb .SaveAs "onesheet.xls" .ChangeFileAccess xlReadOnly End With Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "A08 Processing Form" objMessage.From = """Automatic Spreadsheet Submission"" " objMessage.To = " objMessage.TextBody = "Please find attached an A08 Processing Form" objMessage.AddAttachment wb.FullName '==This section provides the configuration information for the remote SMTP server. objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "100.1.120.2" 'Type of authentication, NONE, Basic (Base64 encoded), NTLM objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic 'Your UserID on the SMTP server objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" 'Your password on the SMTP server objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" 'Server port (typically 25) objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Use SSL for the connection (False or True) objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== objMessage.Send wb.Close (False) Application.DisplayAlerts = True Application.ScreenUpdating = True Madhan wrote: Hi, A sheet is not a standalone object (otherwise, Microsoft would have provided objects at operating system level to recognise them). It exists within the workbook object, hence, you may not be able to send only worksheet in an e-mail. "Sérgio Aires" wrote: hi I'm trying to send a sheet by email, but I want to send just a sheet. I'm using this code: ActiveWorkbook.SendMail " but with this code all file is send. how can I do for to send just a sheet?? thanks -- Sérgio Aires Lisboa Portugal |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
send excel by email
Hi Madhan,
I didnt intend to post that code and tried to retract it, I apologise if you think I am undermining your answer I was merely going to offer a solution to the problem faced. Duncan Madhan wrote: Hi, the code written by Duncan, still does what I have specified, that is, he creates a workbook containing a single sheet and then sends it via e-mail. This is just an observation and Mr.Duncan is requested to treat it as such. Thanks. "Duncan" wrote: Application.DisplayAlerts = False Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm-ss") Application.ScreenUpdating = False Sheets("Sheet2").Copy Set wb = ActiveWorkbook With wb .SaveAs "onesheet.xls" .ChangeFileAccess xlReadOnly End With Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "A08 Processing Form" objMessage.From = """Automatic Spreadsheet Submission"" " objMessage.To = " objMessage.TextBody = "Please find attached an A08 Processing Form" objMessage.AddAttachment wb.FullName '==This section provides the configuration information for the remote SMTP server. objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "100.1.120.2" 'Type of authentication, NONE, Basic (Base64 encoded), NTLM objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic 'Your UserID on the SMTP server objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" 'Your password on the SMTP server objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" 'Server port (typically 25) objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Use SSL for the connection (False or True) objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== objMessage.Send wb.Close (False) Application.DisplayAlerts = True Application.ScreenUpdating = True Madhan wrote: Hi, A sheet is not a standalone object (otherwise, Microsoft would have provided objects at operating system level to recognise them). It exists within the workbook object, hence, you may not be able to send only worksheet in an e-mail. "Sérgio Aires" wrote: hi I'm trying to send a sheet by email, but I want to send just a sheet. I'm using this code: ActiveWorkbook.SendMail " but with this code all file is send. how can I do for to send just a sheet?? thanks -- Sérgio Aires Lisboa Portugal |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
send excel by email
P.s, just a suggestion:
Sergio says - "how can I do for to send just a sheet?? " Sergio asks for a way to do this, not an answer telling him how it isnt possible, I was only offering such so please try to be polite and not take it as a personal insult. Duncan Duncan wrote: Hi Madhan, I didnt intend to post that code and tried to retract it, I apologise if you think I am undermining your answer I was merely going to offer a solution to the problem faced. Duncan Madhan wrote: Hi, the code written by Duncan, still does what I have specified, that is, he creates a workbook containing a single sheet and then sends it via e-mail. This is just an observation and Mr.Duncan is requested to treat it as such. Thanks. "Duncan" wrote: Application.DisplayAlerts = False Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm-ss") Application.ScreenUpdating = False Sheets("Sheet2").Copy Set wb = ActiveWorkbook With wb .SaveAs "onesheet.xls" .ChangeFileAccess xlReadOnly End With Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "A08 Processing Form" objMessage.From = """Automatic Spreadsheet Submission"" " objMessage.To = " objMessage.TextBody = "Please find attached an A08 Processing Form" objMessage.AddAttachment wb.FullName '==This section provides the configuration information for the remote SMTP server. objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "100.1.120.2" 'Type of authentication, NONE, Basic (Base64 encoded), NTLM objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic 'Your UserID on the SMTP server objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" 'Your password on the SMTP server objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" 'Server port (typically 25) objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Use SSL for the connection (False or True) objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== objMessage.Send wb.Close (False) Application.DisplayAlerts = True Application.ScreenUpdating = True Madhan wrote: Hi, A sheet is not a standalone object (otherwise, Microsoft would have provided objects at operating system level to recognise them). It exists within the workbook object, hence, you may not be able to send only worksheet in an e-mail. "Sérgio Aires" wrote: hi I'm trying to send a sheet by email, but I want to send just a sheet. I'm using this code: ActiveWorkbook.SendMail " but with this code all file is send. how can I do for to send just a sheet?? thanks -- Sérgio Aires Lisboa Portugal |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
send excel by email
See this page for a code example
http://www.rondebruin.nl/sendmail.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Sérgio Aires" wrote in message ... hi I'm trying to send a sheet by email, but I want to send just a sheet. I'm using this code: ActiveWorkbook.SendMail " but with this code all file is send. how can I do for to send just a sheet?? thanks -- Sérgio Aires Lisboa Portugal |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
send email to each customer email in excel sheet. | Excel Discussion (Misc queries) | |||
send email from excel | Excel Discussion (Misc queries) | |||
Excel will not let me send via email | Excel Discussion (Misc queries) | |||
Send Email from Excel | Excel Programming | |||
body of email disappears when I send an email from Excel | Excel Discussion (Misc queries) |