WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Sample code
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Send Email with dialog.


Keywords: Send Email with HTML dialog text field edit box lines

Question:

I am trying to create a dialog that can emulate an email type dialog. Is it possible to add a multiple line editbox to a Dialog using the WIL dialog editor?

Answer:

Sorry no, the WIL dialog editor can only accept single line edit boxes, up to somewhere around approximately 80 characters long. However, You can use the HTML Dialog Editor for multiple line text input.

First, create the dialog using HTML. Save the following code as "email.html"


<html>
<body>
<html>
<head>
<title>email</title>
</head>
<body>
<form name="form1"  method="post" >
 

<BR><TABLE cellspacing=0 cellpadding=8 bgcolor="blue">
 

<TR><TD align=left>
Mailserver: <INPUT type="text" name="Mailserver" size=45><BR>
</TD></TR>
<TR><TD align=left>
UserName:   <INPUT type="text" size=45 name="UserName"><BR>
</TD></TR>
<TR><TD align=left>
Password:   <INPUT type="password" size=45 name="Password"><BR>
</TD></TR>
<TR><TD align=left>
Email From: <INPUT type="text" name="sender" size=45><BR>
</TD></TR>
<TR><TD align=left>
Email to:   <INPUT type="text" size=45 name="emailto"><BR>
</TD></TR>
<TR><TD align=left>
Subject:    <INPUT type="text" size=45 name="subject"><BR>
</TD></TR>
<TR><TD align=left>
 
 

<TR><TD align=center>Text Message:<BR>
<TEXTAREA wrap=virtual rows=5 cols=50 name="emailtext"></TEXTAREA></TD></TR>

</TABLE><BR>

<INPUT type="submit" name="submit" value="Send">
</FORM>
</CENTER>
</BODY>
</HTML>

Then, create the winbatch script using HTML Dialog extender and the Postie extender.
Save the following code as "email.WBT"

AddExtender("WWHTM34I.DLL")

path=FileLocate("c:\windows\desktop\email.html")

WinTitle("","Emailer")
hBrowseSetPos(200,100,800,900)
hBrowse(2,path,2)
mailhost=hGetVarValue("Mailserver"," ")
Userid=hGetVarValue("Username"," ")
password=hGetVarValue("password"," ")
sender=hGetVarValue("sender"," ")
tolist=hGetVarValue("emailto"," ")
subject=hGetVarValue("subject"," ")
body=hGetVarValue("emailtext"," ")

hBrowse(0,path,0)

;USED FOR DEBUGGING
;Message("Your Mailserver", mailhost)
;Message("Your username", userid)
;Message("Your password", password)
;Message("Your email", sender)
;Message("Send Email to",tolist)
;Message("Your Subject",subject)
;Message("Your Message body",body)

AddExtender("WWPST34I.DLL")
attachments=""
flags="h"
kInit(mailhost,sender,userid,password,'')
kDest(tolist,'','')
kSendText(subject,body,attachments,flags)
Exit

Save the files(.HTML and .WBT) to the same directory. Then Run the email.wbt file....



Article ID:   W14485
Filename:   Send Email with dialog.txt
File Created: 2001:03:01:12:48:24
Last Updated: 2001:03:01:12:48:24