Send Email from Class Object 1

[Brycspain]

I found this log file object class snippet and wanted to know how I could modify it to send the log it creates through email. I tried to add the sendmail sub within the Class object however I received no errors. Any help would be appreciated...thank you in advance.

 Class CLogFile
    Dim fso, ofile, sFileName, bLocal
    Sub Open( sLogPath )        
    sLogPath = "c:\adgroupadd\Logs"
    if sLogPath = "" Then             
    bLocal = True             
    Exit Sub        
    End If        
    sFileName = sLogPath & "\" _        
    & Right("0" & Month(Date),2) & "-" & Right("0" & Day(Date),2) & "-" & _        
    Right(Year(Date),2) & "-" & DatePart("h", Now) & DatePart("n", Now) & ".txt"
        Set fso = CreateObject("Scripting.FileSystemObject")        
        Set ofile = fso.OpenTextFile(sFileName , 8,True)        
        Write "Log file being opened"             
    End Sub
    
    Sub Write( sMessage )         
    If Not bLocal Then              
    ofile.WriteLine "[" & Now & "] " & sMessage          
    Else              
    WScript.Echo "[" & Now & "] " & sMessage          
    End If    
    End Sub        
    
    Sub Close        
    Write "Log file being closed"     
    End Sub 
     
End Class

I added the email snippet in like this:

Class CLogFile
    Dim fso, ofile, sFileName, bLocal
    Sub Open( sLogPath )        
    sLogPath = "c:\adgroupadd\Logs"
    if sLogPath = "" Then             
    bLocal = True             
    Exit Sub        
    End If        
    sFileName = sLogPath & "\" _        
    & Right("0" & Month(Date),2) & "-" & Right("0" & Day(Date),2) & "-" & _        
    Right(Year(Date),2) & "-" & DatePart("h", Now) & DatePart("n", Now) & ".txt"
        Set fso = CreateObject("Scripting.FileSystemObject")        
        Set ofile = fso.OpenTextFile(sFileName , 8,True)        
        Write "Log file being opened"             
    End Sub
    
    Sub Write( sMessage )         
    If Not bLocal Then              
    ofile.WriteLine "[" & Now & "] " & sMessage          
    Else              
    WScript.Echo "[" & Now & "] " & sMessage          
    End If    
    End Sub        
    
    Sub Close        
    Write "Log file being closed"     
    End Sub 
    
    [b]Sub SendMail(sFileName)
    Set objMessage = CreateObject("CDO.Message") 
	objMessage.Subject = "Distribution Groups Script" 
	objMessage.Sender = "Server@yourdomain.com" 
	objMessage.To = "John.Doe@yourdomain.com" 
	objMessage.TextBody = "This is the daily script that adds users to different distribution groups." 
	objMessage.AddAttachment (sLogFile)
	
	objMessage.Configuration.Fields.Item _ 
	("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 2 
	'Name or IP of Remote SMTP Server 
	objMessage.Configuration.Fields.Item _ 
	("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] = "smtpserver.yourdomain.com" 
	'Server port (typically 25) 
	objMessage.Configuration.Fields.Item _ 
	("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverport")[/URL] = 25 
	objMessage.Configuration.Fields.Update 
	'==End remote SMTP server configuration section== 
	objMessage.Send 
    End Sub [/b]
    
End Class

Just wondering if I'm passing the right variable to the sendmail sub and attachment portion or if all the syntax is completely wrong.

I even added some error checking in different parts of the class object to see if anything was kicking out errors using this snippet:

If Error <> 0 Then
    WScript.Echo "Error Description: " & Err.Description & "  Error Number: " & Err.Number
    Else
    Error.clear
    End If

Nothing echoed out. If you need the entire script let me know and I will post it.

 

[markdmac]

Hey Bryc, I'm taking this offline. Will send you code.

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[Brycspain]

Thanks Mark..unfortunately, I want to use the class object and not retool the script for a different solution.

Anyone have any other suggestions?

 

[markdmac]

You seem to be using sFileName and sLogFile in your send mail sub. The attachment needs to be a valid file path.

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[Brycspain]

Thanks Mark, your method was much easier. I also added some logic to delete the logs after they are sent.

Muchos Gracias!