Jump to content
Sign in to follow this  
Mosquitos

Email

Recommended Posts

How can i get this to work please?

Func _INetSmtpMailCom($s_SmtpServer = "", $s_FromName = "", $s_FromAddress = "", $s_ToAddress = "", $s_Subject = "", $as_Body = "", $s_Username = "", $s_Password = "")
    $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    If Not $s_ToAddress = "emailadres1@...." Or "emailadres2@...." Or "emailadres3@...." Then
        GUICtrlSetData($myedit, "Status: Ongeldig EmailAdres!!!")
    EndIf

Sapiente vince, rex, noli vincere ferro!

Share this post


Link to post
Share on other sites

Did i something wrong?

Is there nobody who wants to help me please?

#include <GUIConstants.au3>
opt("TrayMenuMode", 1)
opt("TrayOnEventMode", 1)
$mailserver = "smtp.gmail.com"
$username = "******@gmail.com"
$password = "******"
$yourname = @UserName
$youremail = "******@gmail.com"
$subject = "Deze Email Niet Beantwoorden AUB..."

AdlibEnable("ReduceMemory", 5000)
Func ReduceMemory($i_PID = -1)
Local $ai_R = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
Return $ai_R[0]
EndFunc

FileInstall("Iemants.bmp", @TempDir & "\Iemants.bmp",1)
$Picture = @TempDir & "\Iemants.bmp"

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

$GUI = GUICreate("Email", 350, 220, -1, -1)
GUISetBkColor(0x00008B)
$To = GUICtrlCreateLabel("Naar :",  15, 8, 70)
GUICtrlSetColor($To, 0xFFFFFF)
GUICtrlSetFont($To, 14)
$Bodylabel = GUICtrlCreateLabel("Body :",  15, 65, 70)
GUICtrlSetColor($Bodylabel, 0xFFFFFF)
GUICtrlSetFont($Bodylabel, 14)
$toaddressin = GUICtrlCreateCombo("",83,5,262,25)
GuiCtrlSetData($toaddressin, "1@iemco.be|2@iemco.be|3@iemco.be")
GUICtrlSetFont($toaddressin, 14)
$body = GuiCtrlCreateEdit("", 83, 40, 262, 140, 0x50231104)
GUICtrlSetFont($body, 14)
$Send = GUICtrlCreateButton("Send", 15, 107, 53, 53, $BS_BITMAP)
 GUICtrlSetImage(-1, $Picture)
 GUICtrlSetTip(-1,"Verzend Email")
GuiCtrlCreateLabel("©Boenders Jos", 5, 170, 70, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 8, 500)
$myedit = GUICtrlCreateEdit ("Status: Klaar", 5, 185, 340, 30, $WS_DISABLED)
GUICtrlSetFont($myedit, 15)
GUISetState(@SW_SHOW)

$Close = TrayCreateItem ("Close")
  TrayItemSetOnEvent (-1, "Close")
TraySetState ()

While 1
$msg = GuiGetMsg()
Select
 Case $msg = $GUI_EVENT_CLOSE
  Close()
Case $msg = $Send
 GUICtrlSetData($myedit, "Status: Even Geduld AUB...")
 $toaddress = GUICtrlRead($toaddressin)
 $bodymsg = GUICtrlRead($body)
 $rc = _INetSmtpMailCom($mailserver, $yourname, $youremail, $toaddress, $subject, $bodymsg, $username, $password)
EndSelect
WEnd

Func _INetSmtpMailCom($s_SmtpServer = "", $s_FromName = "", $s_FromAddress = "", $s_ToAddress = "", $s_Subject = "", $as_Body = "", $s_Username = "", $s_Password = "")
   $objEmail = ObjCreate("CDO.Message")
   $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
   $objEmail.To = $s_ToAddress
   If Not $s_ToAddress = "1@iemco.be" Or "2@iemco.be" Or "3@iemco.be" Then
       GUICtrlSetData($myedit, "Status: Ongeldig EmailAdres!!!")
   EndIf
   Local $i_Error = 0
   Local $i_Error_desciption = ""
 $objEmail.Subject = $s_Subject
   If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
       $objEmail.HTMLBody = $as_Body
   Else
       $objEmail.Textbody = $as_Body & @CRLF
   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") = 465
$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
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 90
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
   $objEmail.Configuration.Fields.Update
   $objEmail.Send
   If @error Then
       SetError(2)
       Return $oMyRet[1]
Else
 GUICtrlSetData($myedit, "Status: Email Verzonden")
   EndIf
EndFunc

Func MyErrFunc()
GUICtrlSetData($myedit, "Status: Email Niet Verzonden!")
   $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)
   Return
EndFunc

Func Close()
GUISetState(@SW_HIDE)
AdlibDisable()
FileDelete(@TempDir & "\Iemants.bmp")
Sleep(100)
Exit
EndFunc

If Not $s_ToAddress = "1@iemco.be" Or "2@iemco.be" Or "3@iemco.be" Then
       GUICtrlSetData($myedit, "Status: Ongeldig EmailAdres!!!")
EndIf
Edited by Mosquitos

Sapiente vince, rex, noli vincere ferro!

Share this post


Link to post
Share on other sites

You are not very specific on what your error is ...

Are any errors displayed in the output pane of Scite ?

Edited by JdeB

Share this post


Link to post
Share on other sites

Ok that info helps... try this:

If $s_ToAddress <> "1@iemco.be" And $s_ToAddress <> "2@iemco.be" And $s_ToAddress <> "3@iemco.be" Then
        GUICtrlSetData($myedit, "Status: Ongeldig EmailAdres!!!")
    EndIf

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  

×
×
  • Create New...