Send Mail

[aguynamedray]

Hello Gurus,

I have an AutoIt script here to send email with GUI (from Victor) which is working fine. But I need to have an attachment with browsing functionality. Below is the code.

expandcollapse popup

#NoTrayIcon
#AutoIt3Wrapper_icon=alert.ico

#include 
#include 
#include 
#include 

;~ Email Subject
Global $VAR_SUBJECTX = "Alert - Emergency"
;~ Email Body (default)
Global $VAR_BODYMAIL = "Attention all employees. An emergency has taken place that requires evacuation of the building," & @CRLF & @CRLF
$VAR_BODYMAIL &= "please proceed in an orderly fashion to the safest exit." & @CRLF & @CRLF & "Thank you"
;~ Email SMTP Mail Server
Global $VAR_SMTPMAIL = "mail1"

$begin=MsgBox(0x4, "Emergency", "Are you sure you want to proceed?")
if $begin = 7 then exit

FNC_GUIEMAIL()

Func FNC_GUIEMAIL()
Local $CHK_BODYMAIL, $CHK_FROMMAIL, $CHK_SENDMAIL
Local $GUI_BODYMAIL, $GUI_FROMMAIL, $GUI_SENDMAIL
Local $MSG_FROMNAME, $MSG_FROMMAIL, $MSG_RESPONSE

GUICreate($VAR_SUBJECTX, 600, 215)

;~ Begin "From:" Gui Information
GUICtrlCreateLabel('From:', 10, 12, 50, 20)
$GUI_FROMMAIL = GUICtrlCreateCombo('', 65, 10, 525, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData($GUI_FROMMAIL, 'Emergency|Emergency1|Emergency2', 'Emergency')
;~ End "From:" Gui Information

;~ Begin "To:" Gui Information
GUICtrlCreateLabel('To:', 10, 37, 50, 20)
$GUI_SENDMAIL = GUICtrlCreateCombo('', 65, 35, 525, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData($GUI_SENDMAIL, 'alert@domain.com|alert1@domain.com|alert2@domain.com', 'alert@domain.com')
;~ End "To:" Gui Information

;~ Begin "Body:" Gui Information
GUICtrlCreateLabel('Body', 10, 62, 50, 20)
$GUI_BODYMAIL = GUICtrlCreateEdit($VAR_BODYMAIL, 65, 62, 525, 100, $WS_VSCROLL)
;~ End "Body:" Gui Information

$GUI_CLOSEMSG = GUICtrlCreateButton('Cancel', 490, 167, 100, 40)
$GUI_EMAILMSG = GUICtrlCreateButton('Send', 390, 167, 100, 40)

GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_CLOSEMSG
Exit
Case $GUI_EMAILMSG
$CHK_FROMMAIL = GUICtrlRead($GUI_FROMMAIL)
Select
Case $CHK_FROMMAIL = 'Emergency'
$MSG_FROMNAME = 'Emergency'
$MSG_FROMMAIL = 'alert@domain.com'
Case $CHK_FROMMAIL = 'Emergency1'
$MSG_FROMNAME = 'Emergency1'
$MSG_FROMMAIL = 'alert1@domain.com'
Case $CHK_FROMMAIL = 'Emergency2'
$MSG_FROMNAME = 'Emergency2'
$MSG_FROMMAIL = 'alert2@domain.com'
Case Else
$MSG_FROMNAME = 'Emergency'
$MSG_FROMMAIL = 'alert@domain.com'
EndSelect
$MSG_SENDMAIL = GUICtrlRead($GUI_SENDMAIL)
$MSG_BODYMAIL = GUICtrlRead($GUI_BODYMAIL)
$Response = _INetSmtpMail ($VAR_SMTPMAIL, $MSG_FROMNAME, $MSG_FROMMAIL, $MSG_SENDMAIL, $VAR_SUBJECTX, $MSG_BODYMAIL, @ComputerName, -1)
Switch @error
Case 1
$MSG_RESPONSE = 'Error: Invalid Parameters'
Case 2
$MSG_RESPONSE = 'Error: Unable to start TCP'
Case 3
$MSG_RESPONSE = 'Error: Unable to resolve IP'
Case 4
$MSG_RESPONSE = 'Error: Unable to create socket'
Case Else
$MSG_RESPONSE = 'Error: Unknown'
EndSwitch
If $Response = 1 Then $MSG_RESPONSE = 'Success: Message sent successfully'
MsgBox(0,$VAR_SUBJECTX, $MSG_RESPONSE)
EndSwitch
WEnd
EndFunc

Any help will be appreciated. Thanks in advance.

[PhoenixXL]

You should redirect

[aguynamedray]

I don't see in the link using the GUI.

[PhoenixXL]

search the forum for

Smtp Mailer That Supports Html And Attachments.

or simply

go to

[Mechaflash]

May I recommend a loud speaker for a life threatening emergency as opposed to an email for one? XD