Jump to content

kdyer

Member
  • Posts

    21
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    United States

Posts posted by kdyer

  1. I'm using v4.20.8 - HyperWRT 2.1b1+tofu6.2 version for my WRT54G, and when I saw that post I tried to find the site and community dedicated to this router, but was unlucky. I can't find it in my favorite list anywhere.

    Now that you've mentioned it, I'd like to update my firmware although I very satisfied with this version.

    HyperWRT is available from - http://www.thibor.co.uk/

    Thanks for all of the posts in response to my question!

    Kent

  2. I have an older Linksys WRT54G (Version 2) and I have recently applied the "Tomato" firmware to it. It seems better than the stock Firmware that comes from Linksys?

    What is the consensus of the firmwares that are available for the WRT54G?

    • DD-WRT
    • FreeWRT
    • HyperWRT (official)
    • HyperWRT Thibor
    • OpenWRT
    • Tarifa
    • X-Wrt

    Thanks,

    Kent

  3. if you want the active window only, press Ctrl+Alt+Print Scrn :) ... you can use your favorite picture editing app as the recepient app where you paste it and name & save the file as any pic extension supported by your app ...

    CTRL+ALT+Print Scrn is not necessary.. Actually, just ALT+Print Scrn is all you need.

    Kent

  4. For XP SP-2 to run rjhExtensions:

    Change DEP (Data Execution Prevention) to allow:

    C:\Program Files\rjhExtensions\rjhExtensions.exe

    It will be listed as: "Organizer for rjhExtensions context menu addons".

    Windows will prompt you to restart the computer. Once restarted, rjhExtensions should work fine.

    Thanks,

    Kent

  5. Here is how we do this for #1:

    If DLookup("[ID]", "Errorlog", "[ID] = 1") Then
    objEmail.Textbody = "Report Log and Errorlog Attached for Report: " & MailBody 'Message body
    objEmail.AddAttachment (stFileName) 'Attach Excel File
    Else
    objEmail.Textbody = "Update Report Log for: " & MailBody 'Message body
    End If

    For #2, you can use a IF..ELSE statement with an EXIST?

    IF object.FileExists("C:\file1.bmp") Then
    ELSE object.FileExists("C:\temp\file1.bmp")
    END IF

    Hope this helps.

    Kent

  6. Can you show us what you have for code?

    I have a mailer that we use and it references CDO..

    Here is a snip of code we use:

    Public Function Mailer(MailSubject)
    Dim objEmail, stDocName, stFileName
    'Dim msweb As String, smtp As String
    Dim msweb, smtp, Subject, Stime, Etime, TimeTaken, Records, Rate, MailBody, MyStr As String
    Dim varX As Variant
    Set objEmail = CreateObject("CDO.Message")
    objEmail.From = """Your Name"" <user1@company.com>"
    objEmail.To = "user1@company.com;user2@company.com"
    'objEmail.BCC = "5555551212@messaging.sprintpcs.com"
    'objEmail.Subject = "your subject"
    msweb = "http://schemas.microsoft.com/cdo/configuration/"
    smtp = "smtp.yourcompany.com"

    'Define the Error Table we want to work with
    stDocName = "ErrorLog"

    stFileName = "c:\sec\Errorlog.xls"

    'Transfer the data from the table to the spreadsheet defined in the previous line
    If IsNull(DLookup("[ID]", "Errorlog", "[ID] = 1")) Then 'Check to see if there are any errors
    objEmail.Subject = "Report Info generated: " & Format(Now(), "dd mmm yyyy hh:mm") & " " 'Subject line
    Else
    objEmail.Subject = "Report and Error Info generated: " & Format(Now(), "dd mmm yyyy hh:mm") & " " 'Subject line
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, stDocName, stFileName
    End If

    'Output the report for e-mailing
    varX = DLookup("[ID]", "TimeStamps", "[ID] = 1")
    Stime = DLookup("[Stime]", "TimeStamps", "[ID] = 1")
    Etime = DLookup("[Etime]", "TimeStamps", "[ID] = 1")
    TimeTaken = DLookup("[TimeTaken]", "TimeStamps", "[ID] = 1")
    Records = DLookup("[Records]", "TimeStamps", "[ID] = 1")
    'Rate = Records / (Etime - Stime)
    Rate = DLookup("[Rate]", "TimeStamps", "[ID] = 1")
    MyStr = Format(Rate, "###0.00")
    'objEmail.Subject = "Process is complete"
    objEmail.Subject = objEmail.Subject & MailSubject
    If DLookup("[ID]", "Errorlog", "[ID] = 1") Then
    objEmail.Textbody = "Report Log and Errorlog Attached for Report: " & MailBody 'Message body
    objEmail.AddAttachment (stFileName) 'Attach Excel File
    Else
    objEmail.Textbody = "Update Report Log for: " & MailBody 'Message body
    End If

    objEmail.Textbody = "Start Time: " & Stime & vbCrLf & "End Time: " & Etime
    objEmail.Textbody = objEmail.Textbody & vbCrLf & "Time Taken: " & TimeTaken & " minutes" & vbCrLf & "Count: "
    objEmail.Textbody = objEmail.Textbody & Records & " Records" & vbCrLf & "Rate: " & MyStr & " (records/minute)" & vbCrLf

    objEmail.Configuration.Fields.Item(msweb & "sendusing").Value = 2
    objEmail.Configuration.Fields.Item(msweb & "smtpserver").Value = smtp
    objEmail.Configuration.Fields.Item(msweb & "smtpserverport").Value = 25
    objEmail.Configuration.Fields.Update

    If DLookup("[ID]", "Errorlog", "[ID] = 1") Then
    Kill stFileName 'Remove the spreadsheet
    End If

    objEmail.Send
    End Function

    I used to use Outlook for e-mailing and it became a big pain as I had to use the "ClickYes" software for it.

    Thanks,

    Kent

×
×
  • Create New...