gp25 Posted January 2, 2013 Share Posted January 2, 2013 (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! expandcollapse popup#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 January 2, 2013 by Jos added [code] tags Link to comment Share on other sites More sharing options...
DW1 Posted January 2, 2013 Share Posted January 2, 2013 You cannot have a slash in the file name. AutoIt3 Online Help Link to comment Share on other sites More sharing options...
Developers Jos Posted January 2, 2013 Developers Share Posted January 2, 2013 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 SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
BrewManNH Posted January 2, 2013 Share Posted January 2, 2013 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 GudeHow 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 Link to comment Share on other sites More sharing options...
gp25 Posted January 2, 2013 Author Share Posted January 2, 2013 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! Link to comment Share on other sites More sharing options...
Developers Jos Posted January 2, 2013 Developers Share Posted January 2, 2013 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 SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
gp25 Posted January 2, 2013 Author Share Posted January 2, 2013 @ Jos I put that lil debugger into the script and still got the same error as before. I dont understand. Link to comment Share on other sites More sharing options...
gp25 Posted January 2, 2013 Author Share Posted January 2, 2013 @ JosI 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 Link to comment Share on other sites More sharing options...
Developers Jos Posted January 2, 2013 Developers Share Posted January 2, 2013 @ JosI 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. SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
gp25 Posted January 2, 2013 Author Share Posted January 2, 2013 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.comAlso, 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! Link to comment Share on other sites More sharing options...
BrewManNH Posted January 2, 2013 Share Posted January 2, 2013 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 GudeHow 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 Link to comment Share on other sites More sharing options...
Developers Jos Posted January 2, 2013 Developers Share Posted January 2, 2013 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? SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
gp25 Posted January 2, 2013 Author Share Posted January 2, 2013 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. Link to comment Share on other sites More sharing options...
Developers Jos Posted January 2, 2013 Developers Share Posted January 2, 2013 Run it from SciTE by pressing F5 ... preferably use the full version which is a separate installer . Jos SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
gp25 Posted January 2, 2013 Author Share Posted January 2, 2013 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. Link to comment Share on other sites More sharing options...
gp25 Posted January 2, 2013 Author Share Posted January 2, 2013 Run it from SciTE by pressing F5 ... preferably use the full version which is a separate installer .JosOk! Gotcha! I did that! ewwwww...sorry Link to comment Share on other sites More sharing options...
gp25 Posted January 2, 2013 Author Share Posted January 2, 2013 Run it from SciTE by pressing F5 ... preferably use the full version which is a separate installer .JosJos 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 Link to comment Share on other sites More sharing options...
gp25 Posted January 2, 2013 Author Share Posted January 2, 2013 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 ConsoleFilemove ("C:Usersgpreston.corporateDesktopLuminance Dashboard.xlsx", "C:Usersgpreston.corporateDesktopLuminance Dashboard " & $filename & ".xlsx")$oExcel.ActiveWorkbook.SaveAs ($file2 & " " & $filename)ExitBut I need to save it with the date in it and im confused...also after saving it I need to email the file variable Link to comment Share on other sites More sharing options...
gp25 Posted January 3, 2013 Author Share Posted January 3, 2013 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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now