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""
<NotReal@citb.co.uk>"
objMessage.To = "grant.claimforms@citb.co.uk"
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