help

[Daanny]

Hello all...im new here and i have a litle problem...look here pls

CODE

CODE

#include <IE.au3>

#include <Inet.au3>

#include <GUIConstants.au3>

$Form1 = GUICreate("...", 633, 454, 193, 115)

$Edit = GUICtrlCreateEdit("", 160, 200, 621, 150)

$Button_1 = GUICtrlCreateButton ("Send", 100, 100, 80)

$Button_2 = GUICtrlCreateButton ( "Quit", 20, 100, 80)

$filemenu = GUICtrlCreateMenu ("&File")

$fileitem = GUICtrlCreateMenuitem ("Open",$filemenu)

GUICtrlSetState(-1,$GUI_DEFBUTTON)

$helpmenu = GUICtrlCreateMenu ("About")

$saveitem = GUICtrlCreateMenuitem ("Save",$filemenu)

GUICtrlSetState(-1,$GUI_DISABLE)

$infoitem = GUICtrlCreateMenuitem ("About",$helpmenu)

$exititem = GUICtrlCreateMenuitem ("Exit",$filemenu)

$recentfilesmenu = GUICtrlCreateMenu ("Recent Files",$filemenu,1)

GUISetState ()

While 1

$msg = GUIGetMsg()

If $msg = $fileitem Then

$file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)")

If @error <> 1 Then GUICtrlCreateMenuitem ($file,$recentfilesmenu)

EndIf

If $msg = $GUI_EVENT_CLOSE Or $msg = $Button_2 Or $msg = $exititem Then ExitLoop

If $msg = $infoitem Then Msgbox(0,"About","Only a test...")

WEnd

GUIDelete()

Exit

now ..how can i make when i pres the button Send to send my in e-mail all it is write in the editbox...and sorry if i write something wrong:)help me please

[AlmarM]

mayby something with

Select
Case $msg = $Button_1
GuiCtrlRead($Exit)

Further I dont know

Mayby you can do something with it

[Daanny]

im a beginer...please give me more information pls ...if someone can and have a little free time and can help me please thank you anyway almarm...

[DjDeep00]

Try this...Not really sure what you are trying to accomplish when the user presses the button "Send"? Send an email??

expandcollapse popup

#include <IE.au3> 
#include <Inet.au3> 
#include <GUIConstants.au3> 

$Form1 = GUICreate("...", 633, 454, 193, 115) 
$Edit = GUICtrlCreateEdit("", 100, 200, 500, 150) 
$Button_1 = GUICtrlCreateButton ("Send", 100, 100, 80)
$Button_2 = GUICtrlCreateButton ( "Quit", 20, 100, 80)
$filemenu = GUICtrlCreateMenu ("&File")
$fileitem = GUICtrlCreateMenuitem ("Open",$filemenu)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$helpmenu = GUICtrlCreateMenu ("About")
$saveitem = GUICtrlCreateMenuitem ("Save",$filemenu)
GUICtrlSetState(-1,$GUI_DISABLE)
$infoitem = GUICtrlCreateMenuitem ("About",$helpmenu)
$exititem = GUICtrlCreateMenuitem ("Exit",$filemenu)
$recentfilesmenu = GUICtrlCreateMenu ("Recent Files",$filemenu,1)
GUISetState ()


While 1
$msg = GUIGetMsg()

Select
    
    Case $msg = $fileitem
    $file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)")
    If @error <> 1 Then GUICtrlCreateMenuitem ($file,$recentfilesmenu)
    
    Case $msg = $GUI_EVENT_CLOSE Or $msg = $Button_2 Or $msg = $exititem 
    ExitLoop
    
    Case $msg = $infoitem
    Msgbox(0,"About","Only a test...")

    Case $msg = $Button_1
    Msgbox(0,"Pressed","Sending....")

EndSelect

WEnd

[Daanny]

I mean when i press the buton send.......to send a e-mail at a adress.......whith all its wrote in the edit box.....

[DjDeep00]

Search the help file for _INetSmtpMail and just use $as_Body=Guictrlread($Edit) for one of the parameters. Try it out. If you want to use Outlook then search the form, I think somebody already has implemented that.