Dim objEmail
	dim sCurrentMail
	
	
	Const cdoSendUsingPort = 2 	' Send the message using SMTP

	Const cdoAnonymous = 0 	'Do not authenticate
	Const cdoBasic = 1 		'basic (clear-text) authentication
	Const cdoNTLM = 2 		'NTLM

	
	'define local var
	SMTPServer = "sbs2008" 
	Const SMTPPort = 25         		' Port number for SMTP
	Const SMTPTimeout = 60      		' Timeout for SMTP in seconds
	
		
			'Sending mail
			Set objEmail = CreateObject("CDO.Message")
			Set objConf = objEmail.Configuration
			Set objFlds = objConf.Fields
			With objFlds
				'---------------------------------------------------------------------
			   	' SMTP server details
			   	.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
			   	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
			   	.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous 
				.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort
				.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
			  	.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = SMTPTimeout
			   	.Update
				'---------------------------------------------------------------------
			End With
			
				
		     '''''''''''''''''''''''''''''''''
		    objEmail.To ="yosi@test.com"

			objEmail.From = "yosi@test.com"

			objEmail.Subject = "BillingPivot"		
			objEmail.AddAttachment   "J:\users\QVDev\odelya QV Dev 5.2012\Billing Model\SendReportsToMail\BillingPivot_טיפול משפטי_TEST.xls"
						
			objEmail.Send	
		        Set objFlds = Nothing
			Set objConf = Nothing
			Set objEmail = Nothing