Sign in to follow this  
Followers 0
gp25

Issue using _datetimeformat to add date to filename and email@!

19 posts in this topic

#1 ·  Posted (edited)

Hello Everyone,

I could really use your help; I have been working on this for a couple of weeks and have been stuck. First off I am on a Windows 7 machine 64 bit and am trying to accomplish the following:

>Open up excel file from network drive....then update all (roughly 29) Sql queries in the workbook.

>Save the workbook as ("NewDashboard 1/2/2012.xlsx) with the date in short format

>and email it to the necessary people within the company

>I have gotten it to work with the _DateTimeFormat however it doesnt seem to want to output in the short format and I have checked my regional settings and all of that however no luck. When I change the $type from a 1 (which is the only thing that currently works to a 2 for short format it gives me an error stating," The requested action with this object has failed."

Here is my code: Please please help me out guys!

#Include<file.au3>
#include <Excel.au3>
#include <date.au3>

_DateTimeFormat("YYYY/MM/DD",1)
$oExcel = _ExcelBookOpen("C:\Users\gpreston.corporate\Desktop\Luminance Dashboard.xlsx");open desired excel file containing macro
$oExcel.ActiveWorkbook.RefreshAll
sleep (65000)
$oExcel.ActiveWorkbook.SaveAs ("C:\Users\gpreston.corporate\Desktop\New Dashboard " & _DateTimeFormat(_NowCalc(), 1)) & ".xlsx")
$oExcel.Application.Quit
$sfile = ("C:\Users\gpreston.corporate\Desktop\New Dashboard " & _DateTimeFormat(_NowCalc(), 1) & ".xlsx")

$SmtpServer = "uslaxmail02.corp.lamparts.com"             ; address for the smtp-server to use - REQUIRED
$FromName = "M.I.S"                   ; name from who the email was sent
$FromAddress = "mis@lamparts.com" ; address from where the mail should come
$ToAddress = "gpreston@luminance.us.com"   ; destination address of the email - REQUIRED
$Subject = "Luminance Dashboard"                   ; subject from the email - can be anything you want it to be
$Body = ""                            ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = ($sfile)                    ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
$CcAddress = ""    ; address for cc - leave blank if not needed
$BccAddress = ""     ; address for bcc - leave blank if not needed
$Importance = "Normal"                ; Send message priority: "High", "Normal", "Low"
$Username = ""                  ; username for the account used from where the mail gets sent - REQUIRED
$Password = ""                ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25                            ; port used for sending the mail
$ssl = 0                                ; enables/disables secure socket layer sending - put to 1 if using httpS

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
EndIf
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
;~        ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/sendusing"]http://schemas.microsoft.com/cdo/configuration/sendusing"[/url]) = 2
    $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/smtpserver"]http://schemas.microsoft.com/cdo/configuration/smtpserver"[/url]) = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/smtpserverport"]http://schemas.microsoft.com/cdo/configuration/smtpserverport"[/url]) = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"]http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"[/url]) = 1
        $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/sendusername"]http://schemas.microsoft.com/cdo/configuration/sendusername"[/url]) = $s_Username
        $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/sendpassword"]http://schemas.microsoft.com/cdo/configuration/sendpassword"[/url]) = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/smtpusessl"]http://schemas.microsoft.com/cdo/configuration/smtpusessl"[/url]) = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
EndFunc   ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc   ;==>MyErrFunc
Edited by Jos
added [code] tags

Share this post


Link to post
Share on other sites



Run this in SciTE and see if that is close:

#include <date.au3>
$Filename = _DateTimeFormat(_NowCalc(), 2) & ".xlsx"
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Filename = ' & $Filename & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
$filename = StringReplace($filename,"/","_")
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Filename = ' & $Filename & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
Exit

Jos


Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

File names can't contain a forward or back slash in it.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

Danwili,

I changed the to reflect this:

; Include

;##################################

#Include<file.au3>

#include <Excel.au3>

#include <date.au3>

_DateTimeFormat("YYYY-MM-DD",2)

$oExcel = _ExcelBookOpen("C:Usersgpreston.corporateDesktopLuminance Dashboard.xlsx");open desired excel file containing macro

;$oExcel.ActiveWorkbook.RefreshAll

;sleep (65000)

$oExcel.ActiveWorkbookSaveAs ("C:Usersgpreston.corporateDesktopNew Dashboard " & _DateTimeFormat(_NowCalc(), 2) & ".xlsx")

$oExcel.Application.Quit

$sfile = ("C:Usersgpreston.corporateDesktopNew Dashboard " & _DateTimeFormat(_NowCalc(), 2) & ".xlsx")

Still giving me error. I dont mind any other way of adding the "short date" to the filename but ive been having trouble with _DateNow() and all the other date functions...I tried to do a FileMove I just need a lil help. Thanks for the quick reply!

Share this post


Link to post
Share on other sites

Danwili,

I changed the to reflect this:

_DateTimeFormat("YYYY-MM-DD",2)

Please use code tags when posting like I did changing your first post :)

You cannot update the format that way... the first param needs just the input dat and doesn't describe the output format.

See my first reply for an example.

Jos


Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

@ Jos

I put that lil debugger into the script and still got the same error as before. I dont understand.

Share this post


Link to post
Share on other sites

@ Jos

I put that lil debugger into the script and still got the same error as before. I dont understand.

Sorry Jos>>>i am learning for next time :)

Share this post


Link to post
Share on other sites

@ Jos

I put that lil debugger into the script and still got the same error as before. I dont understand.

Just copy and past the script I wrote, run it and see what it does.

Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

Just copy and past the script I wrote, run it and see what it does.

Same error as before. This is my last post i guess till tomrrow at 12:09pm which really sucks. Please email me if you have any advice, gpreston@luminance.us.com

Also, I would love any other way to do this...whether its adding the date to the filename differently but I have been trying to work on it with quite a few with now sucesss. It seems like such a simple task but yet it really doesn't seem anybody has had to save it and then email it.

Please let me know>>> Thanks guys and girls in advance!

Share this post


Link to post
Share on other sites

I can't see how Jos' script could give you an object error, seeing as how they're aren't any objects being referenced in it.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

Fixed your posting limit.

I think you misunderstand me. When you only cut&paste my posted script it should return:

@@ Debug(3) : $Filename = 1/2/2013.xlsx
>Error code: 0
@@ Debug(5) : $Filename = 1_2_2013.xlsx
>Error code: 0

Is that last date something you can work with?


Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

I can't see how Jos' script could give you an object error, seeing as how they're aren't any objects being referenced in it.

BrewmanNH: I copied just his script and ran it and nothing happned.

Share this post


Link to post
Share on other sites

Fixed your posting limit.

I think you misunderstand me. When you only cut&paste my posted script it should return:

@@ Debug(3) : $Filename = 1/2/2013.xlsx
>Error code: 0
@@ Debug(5) : $Filename = 1_2_2013.xlsx
>Error code: 0

Is that last date something you can work with?

Yes....and I copied your code and pasted it then ran it and nothing happend. No output or anything.

Share this post


Link to post
Share on other sites

Run it from SciTE by pressing F5 ... preferably use the full version which is a separate installer .

Jos

Ok! Gotcha! I did that! ewwwww...sorry

Share this post


Link to post
Share on other sites

Run it from SciTE by pressing F5 ... preferably use the full version which is a separate installer .

Jos

Jos I did that and it worked without any errors. Now the problem is going to be changing the long form to short form in my script becuase it prints out the day of the week like "Thursday" or "Wednesday". thanks you so much

Share this post


Link to post
Share on other sites

You cannot have a slash in the file name.

I Now have this>

$oExcel = _ExcelBookOpen("C:Usersgpreston.corporateDesktopLuminance Dashboard.xlsx")

$file2 = ("C:Usersgpreston.corporateDesktopLuminance Dashboard.xlsx")

$oExcel.ActiveWorkbook.SaveAs

$Filename = _DateTimeFormat(_NowCalc(), 2) & ".xlsx"

ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Filename = ' & $Filename & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

$filename = StringReplace($filename,"/","_")

ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Filename = ' & $Filename & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

Filemove ("C:Usersgpreston.corporateDesktopLuminance Dashboard.xlsx", "C:Usersgpreston.corporateDesktopLuminance Dashboard " & $filename & ".xlsx")

$oExcel.ActiveWorkbook.SaveAs ($file2 & " " & $filename)

Exit

But I need to save it with the date in it and im confused...also after saving it I need to email the file variable :(

Share this post


Link to post
Share on other sites

I Now have this>

$oExcel = _ExcelBookOpen("C:Usersgpreston.corporateDesktopLuminance Dashboard.xlsx")

$file2 = ("C:Usersgpreston.corporateDesktopLuminance Dashboard.xlsx")

$oExcel.ActiveWorkbook.SaveAs

$Filename = _DateTimeFormat(_NowCalc(), 2) & ".xlsx"

ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Filename = ' & $Filename & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

$filename = StringReplace($filename,"/","_")

ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Filename = ' & $Filename & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

Filemove ("C:Usersgpreston.corporateDesktopLuminance Dashboard.xlsx", "C:Usersgpreston.corporateDesktopLuminance Dashboard " & $filename & ".xlsx")

$oExcel.ActiveWorkbook.SaveAs ($file2 & " " & $filename)

Exit

But I need to save it with the date in it and im confused...also after saving it I need to email the file variable :(

I got it working!!! All on my own.. So here is the code I created for Opening Up an Excel file from a mapped drive location...Updating all of the SQL queries....then saving as a different name including a date stamp and emailing accordingling....NICE!!! Thanks JOS for pointing me in the right direction!

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.8.1

Author: myName

Script Function:

Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <date.au3>

#include <Excel.au3>

#include<file.au3>

$oExcel = _ExcelBookOpen("I:Luminance DatabaseLuminance Dashboard.xlsx")

$oExcel.ActiveWorkbook.RefreshAll

sleep (130000)

$Filename = _DateTimeFormat(_NowCalc(), 2) & ".xlsx"

ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Filename = ' & $Filename & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

$filename = StringReplace($filename,"/","-")

ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Filename = ' & $Filename & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

$oExcel.ActiveWorkbook.SaveAs ("I:Luminance DatabaseLuminance Dashboard " & $filename)

$oExcel.Application.Quit

$filename2 = ("I:Luminance DatabaseLuminance Dashboard " & $filename)

sleep (25000)

$SmtpServer = "uslaxmail02.corp.lamparts.com" ; address for the smtp-server to use - REQUIRED

$FromName = "M.I.S" ; name from who the email was sent

$FromAddress = "mis@lamparts.com" ; address from where the mail should come

$ToAddress = "gpreston@luminance.us.com; amarosi@luminance.us.com" ; destination address of the email - REQUIRED

$Subject = "Luminance Dashboard" ; subject from the email - can be anything you want it to be

$Body = "" ; the messagebody from the mail - can be left blank but then you get a blank mail

$AttachFiles = ($filename2) ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed

$CcAddress = "" ; address for cc - leave blank if not needed

$BccAddress = "" ; address for bcc - leave blank if not needed

$Importance = "Normal" ; Send message priority: "High", "Normal", "Low"

$Username = "" ; username for the account used from where the mail gets sent - REQUIRED

$Password = "" ; password for the account used from where the mail gets sent - REQUIRED

$IPPort = 25 ; port used for sending the mail

$ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS

;~ $IPPort=465 ; GMAIL port used for sending the mail

;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

;##################################

; Script

;##################################

Global $oMyRet[2]

Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)

If @error Then

MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)

EndIf

;

; The UDF

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)

Local $objEmail = ObjCreate("CDO.Message")

$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'

$objEmail.To = $s_ToAddress

Local $i_Error = 0

Local $i_Error_desciption = ""

If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress

If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress

$objEmail.Subject = $s_Subject

If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then

$objEmail.HTMLBody = $as_Body

Else

$objEmail.Textbody = $as_Body & @CRLF

EndIf

If $s_AttachFiles <> "" Then

Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")

For $x = 1 To $S_Files2Attach[0]

$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])

;~ ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console

If FileExists($S_Files2Attach[$x]) Then

ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)

$objEmail.AddAttachment($S_Files2Attach[$x])

Else

ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)

SetError(1)

Return 0

EndIf

Next

EndIf

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer

If Number($IPPort) = 0 then $IPPort = 25

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort

;Authenticated SMTP

If $s_Username <> "" Then

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password

EndIf

If $ssl Then

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

EndIf

;Update settings

$objEmail.Configuration.Fields.Update

; Set Email Importance

Switch $s_Importance

Case "High"

$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"

Case "Normal"

$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"

Case "Low"

$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"

EndSwitch

$objEmail.Fields.Update

; Sent the Message

$objEmail.Send

If @error Then

SetError(2)

Return $oMyRet[1]

EndIf

$objEmail=""

EndFunc ;==>_INetSmtpMailCom

;

;

; Com Error Handler

Func MyErrFunc()

$HexNumber = Hex($oMyError.number, 8)

$oMyRet[0] = $HexNumber

$oMyRet[1] = StringStripWS($oMyError.description, 3)

ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)

SetError(1); something to check for when this function returns

Return

EndFunc ;==>MyErrFunc

Exit

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0