Sub CreateMail()
Dim objOutlook As Object

Dim objMail As Object

Dim rngTo As Range

Dim rngSub As Range

'Dim rngMessage As Range

Dim rngCc As Range
 
Dim RngCopied As Range
 

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)



With ActiveSheet

Set rngTo = .Range("B1")

Set rngCc = .Range("B2")

Set rngSub = .Range("B3")

'Set rngMessage = RangetoHTML(RngCopied)

'rngMessage.Copy


End With

With objMail

.To = rngTo.Value

.Cc = rngCc.Value

.Subject = rngSub.Value

.Body = RangetoHTML(RngCopied)

.Display 'Instead of .Display, you can use .Send to send the email _

End With

On Error GoTo 0

Set objOutlook = Nothing

Set objMail = Nothing

Set rngTo = Nothing

Set rngCc = Nothing

Set rngSub = Nothing

'Set rngMessage = Nothing

'Set RngCopied = Nothing

End Sub

Function RangetoHTML(rng As Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2010
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook
 
    TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
 
    'Copy the range and create a new workbook to past the data in
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial 

Select all Open in new window

Set rs = cn.Execute("Select Proname from Stock where TheDate Between '" & sdate & "' And '" & edate & "' And PROCODE='" & code & "' Order by icount")

Select all Open in new window

function printData(id){
   var divToPrint = document.getElementById('Prolist-A34');
   newWin= window.open();
   newWin.document.write(divToPrint.outerHTML);
   newWin.print();
   newWin.close();  
}

Select all Open in new window

strComputer = "." 
const intOK = 0
const intWarning = 1	
const intCritical = 2
const intUnknown = 3	
GroupName = Replace(WScript.Arguments.Item(0),"_"," ")
Warn = CInt(WScript.Arguments.Item(1))
Crit = CInt(WScript.Arguments.Item(2))
sTarget = "localhost"
set oPing = _
GetObject("winmgmts:{impersonationLevel=impersonate}"). _
ExecQuery ("select * from Win32_PingStatus where address = '" _
& sTarget & "'")

For Each o In oPing
  sResp = o.StatusCode : exit for
Next

if sResp = 0 Then

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftDfs") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM 

Select all Open in new window

@echo off (need to change the below to the locations needed and file types)

call :delolder 150 "E:\ms\Output_On_08-10-2017__Time_17-12-31PM" "etl"
exit /b

:delolder
set type=%~3
set thedir=%~2
set keep=%~1
for /f "delims=" %%D in ('dir "%thedir%" /ad /b /s') do (
  echo Working on dir %%~fD
  for /F "skip=%keep% delims=" %%a in ('dir "%%~fD\*.%type%" /a-d /o-d /b 2^>NUL') do DEL "%%~D\%%~a"
)
echo Working on root dir %thedir%
for /F "skip=%keep% tokens=* delims=" %%a in ('dir "%thedir%\*.%type%" /a-d /o-d /b 2^>NUL') do if "%%~nxa" NEQ "%~nx0" DEL "%thedir%\%%~a"
exit /b

Select all Open in new window