Sign in to follow this  
Followers 0
Daanny

help

6 posts in this topic

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 :)

Share this post


Link to post
Share on other sites



mayby something with

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

Further I dont know :)

Mayby you can do something with it :)


Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites

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...

Share this post


Link to post
Share on other sites

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

#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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

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  
Followers 0