Jump to content

Smtp Mailer That Supports Html And Attachments.


Recommended Posts

  • 2 weeks later...
  • Replies 758
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

; ;################################## ; Include ;################################## #Include<file.au3> ;################################## ; Variables ;#

Agree, but first needs to be properly tested to see if everything keeps working and I haven't done that yet.  So ...  input/feedback is welcome before doing so!   My preference is to do this wi

$Body = "one" & @CRLF & "two" & @CRLF & "three" ..... ..... $Body = StringReplace($Body,@CRLF,'<br>') ;~ And now you can send your body message....  

Posted Images

I keep this error I have tested the script with g-mail, but won't work with hotpop?

$s_SmtpServer = "smtp.hotpop.com"              ; address for the smtp-server to use - REQUIRED
$s_FromName = "gixen"                      ; name from who the email was sent
$s_FromAddress = "gixen@HotPOP.com" ;  address from where the mail should come
$s_ToAddress = "test@gmail.com"   ; destination address of the email - REQUIRED
$s_Subject = "Userinfo"                   ; subject from the email - can be anything you want it to be
$as_Body = ""                             ; the messagebody from the mail - can be left blank but then you get a blank mail
$s_AttachFiles = ""                       ; the file you want to attach- leave blank if not needed
$s_CcAddress = ""       ; address for cc - leave blank if not needed
$s_BccAddress = ""     ; address for bcc - leave blank if not needed
$s_Username = "gixen@hotpop.com"                    ; username for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$s_Password = "*****"                  ; password for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$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

### COM Error ! Number: 80020009 ScriptLine: 79 Description:The transport lost its connection to the server.

Here is all the information you should need to help you set up your mail client:

* Incoming/POP Server: pop.hotpop.com, port 110

* Alternate POP Server: pop.hotpop.com, port 1100

* Username: gixen@HotPOP.com

* Outgoing/SMTP Server: smtp.hotpop.com, port 25*

* Email Address: gixen@HotPOP.com

* Reply-To Address: gixen@HotPOP.com (or any other email address you have)

* Leave Messages on server: false (some clients will instead have a "Delete messages from server" option, which should be set to true).

* Maximum Message Size: 500 KB (512000 bytes)

* Mailbox Size: 10 MB

* Mailbox Usage: 0.0% (0.0 KB)

*HotPOP's outgoing (SMTP) mail server requires authentication. The username and password are the same as the POP Server and website. Do not select "secure" password authentication.

Edited by Kogmedia
[font="Verdana"]Keith (Kogmedia)[/font]My ScriptQuick Search - Internet / Hard Drive Search
Link to post
Share on other sites
  • Developers

Are you sure that hotpop.com uses a userid and password without using ssl ?

Edited by JdeB

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 post
Share on other sites

still cant get it to work properly, I keep getting the error:

Error code:2 Description:Access is denied.

and I only get that while trying to use an array to upload multiple files,

also, note I need to use this array _FileListToArray(@CommonFilesDir & "\" & "Randy\") because the contents in my folder change.

[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
Link to post
Share on other sites
  • Developers

still cant get it to work properly, I keep getting the error:

Error code:2 Description:Access is denied.

and I only get that while trying to use an array to upload multiple files,

also, note I need to use this array _FileListToArray(@CommonFilesDir & "\" & "Randy\") because the contents in my folder change.

The filelist provided should be in the format: File1;file2;files3

:)

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 post
Share on other sites

The filelist provided should be in the format: File1;file2;files3

:)

how would I do that?

$array[$x] & ";"

also, would I still need the stringsplit?

I have been working on this for 3 days, haha, I am horrible, lol

Edited by ReaImDown
[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
Link to post
Share on other sites
  • Developers

how would I do that?

$array[$x] & ";"

also, would I still need the stringsplit?

I have been working on this for 3 days, haha, I am horrible, lol

You need to loop through the Array and concatenate all entries separated by a semicolon .

Something like:

$array = _FileListToArray(@CommonFilesDir & "\" & "Randy\")
For $x = 1 to $array[0]
    $s_AttachFiles &= $array[$x]
    If $x <  $array[0] then $s_AttachFiles &= ";" 
Next

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 post
Share on other sites

You need to loop through the Array and concatenate all entries separated by a semicolon .

Something like:

$array = _FileListToArray(@CommonFilesDir & "\" & "Randy\")
For $x = 1 to $array[0]
    $s_AttachFiles &= $array[$x]
    If $x <  $array[0] then $s_AttachFiles &= ";" 
NextoÝ÷ Ûú®¢×¡ijkaɱ¦ëÉÛpDzËn¦'e¢!z·°¢é]"­¶­jëh×6#Include<file.au3>
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
;##################################
; Include
;##################################
#Include<file.au3>
#Include<array.au3>
;##################################
; Variables
;##################################
Dim $array
$s_SmtpServer = "smtp.gmail.com"                                         ; address for the smtp-server to use - REQUIRED
$s_FromName = "******@gmail.com"                                 ; name from who the email was sent
$s_FromAddress = "*****@gmail.com"                           ;  address from where the mail should come
$s_ToAddress = "*****@gmail.com"                             ; destination address of the email - REQUIRED
$s_Subject = ""                                                  ; subject from the email - can be anything you want it to be
$as_Body = ""                                                            ; the messagebody from the mail - can be left blank but then you get a blank mail
$array = _FileListToArray(@CommonFilesDir & "\" & "Randy\")   ; the file you want to attach- leave blank if not needed
$s_CcAddress = ""                                                        ; address for cc - leave blank if not needed
$s_BccAddress = ""                                                       ; address for bcc - leave blank if not needed
$s_Username = "*****@gmail.com"                              ; username for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$s_Password = "*****"                                                ; password for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$IPPort = 465                                                            ; port used for sending the mail
$ssl = 1                                                                 ; enables/disables secure socket layer sending - put to 1 if using httpS

;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $array, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
EndIf
;

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $array = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0)
    $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 $array <> "" Then
        ;Local $array = StringSplit($array, ";")
        For $x = 1 To $array[0]
            $array[$x] = _PathFull ($array[$x])
            If FileExists($array[$x]) Then
                $objEmail.AddAttachment ($array[$x])
            Else
                $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $array[$x]
                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
    $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
; Sent the Message
    $objEmail.Send
    if @error then
        SetError(2)
        return $oMyRet[1]
    EndIf
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
[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
Link to post
Share on other sites
  • Developers

hmmm, I am thick as a brick, and twice as stupid, lol, where would I put that?

Untested:

#Include<file.au3>
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
;##################################
; Include
;##################################
#Include<file.au3>
#Include<array.au3>
;##################################
; Variables
;##################################
Dim $array
$s_SmtpServer = "smtp.gmail.com"                                         ; address for the smtp-server to use - REQUIRED
$s_FromName = "******@gmail.com"                                 ; name from who the email was sent
$s_FromAddress = "*****@gmail.com"                           ;  address from where the mail should come
$s_ToAddress = "*****@gmail.com"                             ; destination address of the email - REQUIRED
$s_Subject = ""                                                  ; subject from the email - can be anything you want it to be
$as_Body = ""                                                            ; the messagebody from the mail - can be left blank but then you get a blank mail
$array = _FileListToArray(@CommonFilesDir & "\" & "Randy\")
$s_AttachFiles = ""
For $x = 1 to $array[0]
    $s_AttachFiles &= $array[$x]
    If $x <  $array[0] then $s_AttachFiles &= ";" 
Next
$s_CcAddress = ""                                                        ; address for cc - leave blank if not needed
$s_BccAddress = ""                                                       ; address for bcc - leave blank if not needed
$s_Username = "*****@gmail.com"                              ; username for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$s_Password = "*****"                                                ; password for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$IPPort = 465                                                            ; port used for sending the mail
$ssl = 1                                                                 ; enables/disables secure socket layer sending - put to 1 if using httpS

;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
EndIf

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 post
Share on other sites

Untested:

#Include<file.au3>
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
;##################################
; Include
;##################################
#Include<file.au3>
#Include<array.au3>
;##################################
; Variables
;##################################
Dim $array
$s_SmtpServer = "smtp.gmail.com"                                         ; address for the smtp-server to use - REQUIRED
$s_FromName = "******@gmail.com"                                 ; name from who the email was sent
$s_FromAddress = "*****@gmail.com"                           ;  address from where the mail should come
$s_ToAddress = "*****@gmail.com"                             ; destination address of the email - REQUIRED
$s_Subject = ""                                                  ; subject from the email - can be anything you want it to be
$as_Body = ""                                                            ; the messagebody from the mail - can be left blank but then you get a blank mail
$array = _FileListToArray(@CommonFilesDir & "\" & "Randy\")
$s_AttachFiles = ""
For $x = 1 to $array[0]
    $s_AttachFiles &= $array[$x]
    If $x <  $array[0] then $s_AttachFiles &= ";" 
Next
$s_CcAddress = ""                                                        ; address for cc - leave blank if not needed
$s_BccAddress = ""                                                       ; address for bcc - leave blank if not needed
$s_Username = "*****@gmail.com"                              ; username for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$s_Password = "*****"                                                ; password for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
$IPPort = 465                                                            ; port used for sending the mail
$ssl = 1                                                                 ; enables/disables secure socket layer sending - put to 1 if using httpS

;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
EndIf
no such luck...

Error code:1 Description:0

ty for trying though

Edited by ReaImDown
[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
Link to post
Share on other sites
  • Developers

you didn't copy the error handler as posted in the original....maybe that tell you more ?

; 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 JdeB

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 post
Share on other sites

you didn't copy the error handler as posted in the original....maybe that tell you more ?

; 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
I have it in my script, my error message is as follows,

Error Sending Message

Error Code: 1 Description: 0

[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
Link to post
Share on other sites
  • Developers

I have it in my script, my error message is as follows,

Error Sending Message

Error Code: 1 Description: 0

Doubt that is correct ... run the script from SciTE and look in the Outputpane for the console message i refer to.

Your msg is show in an msgbox?:

If @error Then

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

EndIf

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 post
Share on other sites

Doubt that is correct ... run the script from SciTE and look in the Outputpane for the console message i refer to.

Your msg is show in an msgbox?:

If @error Then

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

EndIf

yes, it shows in a msg box, if I go in scrite, Tools/Beta Run, I get the same msg

[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
Link to post
Share on other sites
  • Developers

yes, it shows in a msg box, if I go in scrite, Tools/Beta Run, I get the same msg

What is show in the SciTE Output pane ? (not the msgbox() !)

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 post
Share on other sites

What is show in the SciTE Output pane ? (not the msgbox() !)

>"C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /beta /ErrorStdOut /in "C:\Documents and Settings\Elizabeth\Desktop\email1.au3" /autoit3dir "C:\Program Files\AutoIt3\beta" /UserParams

+>18:33:19 Starting AutoIt3Wrapper v.1.9.0

! ***************************************************************************************************

! * Input file is UTF16 encoded, Au3Check/Tidy/Obfuscator do no support UNICODE and will be skipped.*

! ***************************************************************************************************

>Running:(3.2.4.9):C:\Program Files\AutoIt3\autoit3.exe "C:\Documents and Settings\Elizabeth\Desktop\email1.au3"

+>18:33:21 AutoIT3.exe ended.rc:0

+>18:33:22 AutoIt3Wrapper Finished

>Exit code: 0 Time: 3.845

[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
Link to post
Share on other sites
  • 2 weeks later...

Ok Im trying to make this into a gui and i get this

CODE
### COM Error ! Number: 80020009 ScriptLine: 153 Description:The server rejected the sender address. The server response was: 530 5.5.1 Authentication Required m1sm3924941nzf

What am i doing wrong

this is my Code

#Include<file.au3>
Global $oMyError = ObjEvent("AutoIt.Erro][ÝË  ][ÝÓ^Q[É][ÝÊBÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÂÈ[ÛYP£²2222222222222222222222222222222220¢4æ6ÇVFRfÇC¶fÆRæS2fwC°¢6æ6ÇVFRfÇCU%
½¹ÍѹÑ̹ÔÌÐì(ì(ìÕ¤(ì######################
GUICreate("Gmail Emailer")



$width=ÌÌÍÌLLÂÕRPÝÜX]SX[
    ][ÝÑÛH[YN][ÝË
K   ÌÍÌ  Ìc·vGFÂÓÂb33cµ55õ$tB¢b33c³#Òb33c³"³#0¤uT7G&Ä7&VFTÆ&VÂgV÷C´g&öÉÍÌèÅÕ½Ðì°´Ä°ÀÌØìÈ°ÀÌØíÝ¥Ñ °´Ä°ÀÌØíMM}I%!P¤(ÀÌØìÈôÀÌØì+23
GUICtrlCreateLabel ("To Address:",  -1,$2, $width,-K    ÌÍÔÔ×ÔQÒ
BÌÍÌIÌÍÌÌÂÕRPÝÜX]SX[
    ][ÝÐØÈYÜÎV÷C²ÂÓÂb33c³"Âb33c·vGFÂÓÂb33cµ55õ$tB¢b33c³#Òb33c³"³#0¤uT7G&
ÉÑ1° ÅÕ½Ðí  ÉÍÌèÅÕ½Ðì°´Ä°ÀÌØìÈ°ÀÌØíÝ¥Ñ °´Ä°ÀÌØíMMRIGHT)
$2=$2+23
GUICtrlCreateLabel ("Username:",  -1,&#ÍÌ ÌÍÝÚYLK ÌÍÔÔ×ÔQÒ
BÌÍÌIÌÍÌÌÂÕRPÝÜX]SX[gV÷Cµ77v÷&C¢gV÷C²ÂÓÂb33c³"Âb33c·vGFÂÓÂb33cµ55õ$tB¢b33c³#ÀÌØìȬÈÌ)U%
Ñɱ
ÉÑ1° ÅÕ½ÐíMÕ©ÐèÅÕ½Ðì°´Ä°ÀÌØìÈ°ÀÌØíÝ¥h,-1,$SS_RIGHT)
$2=$2+23
GUICtrlCreateLabel ("Body:&quoËLK  ÌÍÌLKLK  ÌÍÔÔ×ÔQÒ
BÌÍÌONÌÍÌLLÌÍÌÏLÌb33c³CÓ#¢b33c¶g&æÒuT7G&Ä7&VFTçWBgV÷C²gV÷C²Âb33c³Âb33c³"ÂÀÌØìÌ°ÀÌØìФ(ÀÌØìÈôÀÌØìȬÈÌ(ÀÌØíÉôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½Ðadmin@yahoo.com", $1, $2, $3, $4)
$2=$2+ÂÌÍÝØYHÕRPÝÜX]R[]
    ][ÝØ]ZXÛLLÍPÛXZ[ÛÛI][ÝË    Ìc³Âb33c³"Âb33c³2Âb33c³B¢b33c³#Òb33c³"³#0¢b33c¶66BÒuT7G&Ä7&V%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ðì°ÀÌØìÄ°ÀÌØìÈ°ÀÌØìÌ°ÀÌØìФ(ÀÌØìÈôÀÌØìȬÈ
$bcad = GUICtrlCreateInput ("", $1, $2, $3, ÌÍÍ
BÌÍÌIÌÍÌÌÂÌÍÝÙHÕRPÝÜX]R[]
    ][ÝØ]ZXÛL3cgV÷C²Âb33c³Âb33c³"Âb33c³2Âb33c³B¢b33c³#Òb33c³"³#0¢b33c·7ôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½Ð쨨¨¨¨¨¨¨¨ÅÕ½Ðì°ÀÌØìÄ°ÀÌØìÈ°ÀÌØìÌ°36;4)
$2=$2+23
$subj = GUICtrlCreateInput ("hey", ÌÍÌK  ÌÍÌ  ÌÍÌË    ÌÍÍ
BÌÍØÙHHÕRPÝÜX]R[]
    ][ÝÝW7BgV÷C²ÂÂ##Â3ÂC ¢b33c·6VæBÒuT7G&Ä7&VFT'WGFöâgV÷Cµ6VæBµ¥°ÅÕ½Ðì°ÜÀ°ÌØà°ÜÀ¤(ÀÌØíÑÑ ôU%
Ñɱ
ÉÑ    ÕÑѽ¸ ÅÕ½ÐíÑÑ ¥±",250,368,70)

GUISetState ()

$t = 0
$msg = 0
While 1
    &#03ÛÙÈHÕRQÙ]ÙÊ
BTÙ[XÝBPØÙH ÌÍÛÙÈH ÌÍÑÕRWÑUSÐÓÔÑBBBQ^] 66Rb33c¶×6rÒb33c·6Væ@ uTFVÆWFR WDÆö÷ 66Rb33c¶×6rÀÌØíÑÑ ($$$ÀÌØíÐôÄ($$$ÀÌØíÍ}ÑÑ¡¥±Ìô¥±=Á¹¥±½ ÅÕ½Ðíttachment", @ScriptDir & "\", "All (*.*)"JBQ[Ù[XÝÙ[ÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÂÈXXÂÈÈÈÈÈÈ2222222222222222222222222220¢b33c·5õ6×G6W'fW"ÒgV÷C·6×GævÖÂæ6öÒgV÷CìÉÍ̽Èѡ͵ÑÀµÍÉÙÈѼÕÍ´IEU%I(ÀÌØíÍ}ɽµ9µô""                      ; name from who the email was sent
$×ÑÛPYÜÈHÕRPÝXY
    ÌÍÙY
HÈYÜÈÛHÚHHXZ[ÚÝÆB6öÖP¢b33c·5õFôFG&W72ÒuT7G&Å&VBb33c·FöB²FW7FæFöâFG&W7½Ñ¡µ¥°´IEU%I(ÀÌØíÍ}MÕ©ÐôU%
ÑɱI ÀÌØíÍÕ¨¤        ; subject from the email - can be anything you want it to be
$×ÐÙHHÕRPÝXY
    ÌÍØÙJHÈHYÜØYÙ&öGg&öÒFRÖÂÒ6â&RÆVgB&Ææ²'WBFVâ÷RvWB&Ææ²ÖÀ¤bb3ØíÐôÀQ¡¸($ÀÌØíÍ}ÑÑ¡¥±ÌôÅÕ½ÐìÅÕ½ÐììÑ¡file you want to attach- leave blank if not needed
EndIf
$s_CcAddress H  ][ÝÉ][ÝÈÈYÜÈÜØÈHX]H[ÈYÝYYYÌÍÜ×Ð4FG&W72ÒgV÷C²gV÷C²²FG&W72f÷"&62ÒÆVfR&Ææ²bæ÷BæVVFV@¢ÀÌØíÍ}UÍɹµôU%
ÑɱI ÀÌØíÕÍȤìÕÍɹµ½ÈÑ¡ccount used from where the mail gets sent  - Optional (Needed for eg GMail)ÌÍÜ×ÔÜÝÛÜHÕRPÝXY
    ÌÍÜÜÊHÈÜÝÛÜ÷"FR66÷VçBW6VBg&öÒvW&RFRÖÂvWG26VçBÒ÷FöæÂæVVFVBf÷"V5¥°¤(ÀÌØí%AA½ÉÐôÐØÔìÁ½ÉÐÕͽÈ͹ng the mail
$ssl = 1                                  ; enables/disablÈÙXÝHÛØÚÙ]^YÙ[[ÈH]ÈHYÚ[ÈÂß  ÌÍÒTÜM
²tÔÂ÷'BW6VBf÷"6VæFærFRÖÀ£·âb33cÍÍ°ôÄì5%1¹±Ì½¥Í±ÌÍÕÉͽ­Ðlayer sending - put to 1 if using httpS

;#################################ÂÈØÜÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÂÛØ[   ÌÍÛÓ^T]ÌBÛØ[b33c¶ô×W'&÷"Òö&¤WfVçBgV÷C´WFôBäW'&÷"gV÷C²ÂgV÷C´×W'$gVæ2gV÷C²ÀÌØíÉô}%9ÑMµÑÁ5¥±
½´ ÀÌØíÍ}MµÑÁMÉÙÈ°ÀÌØíÍ}ɽµ9µ°ÀÌØíÍ}omAddress, $s_ToAddress, $s_Subject, $as_Body, $s_Attac[Ë ÌÍÜ×ÐØÐYÜË ÌÍÜ×ÐØÐYÜË ÌÍÜ×ÕÙ[YK ÌÍÜ×Ô7v÷&BÂb33c´÷'BÂb33c·76¤bW'&÷"FVà¢×6t&÷ÂgV÷C´W'&÷"6V¥¹µÍÍÅÕ½Ðì°ÅÕ½ÐíÉɽȽèÅÕ½ÐìµÀìÉɽȵÀìÅÕ½ÐìIèuot; & $rc)
EndIf

...

Other wise if i have the same thing just replace "GUICtrlRead(...)" with my info it works so thx

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
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...