Is there a script which will pop up boxes you can enter for sending email manually?

I want to send an email to internet network users, without using a packaged email program.
If a script exisits, or software exists which where you could enter all the network credentials and simply activate the script, and then you manually enter the email address, the subject and the message itself, and then you can send the email message - that is what I am looking for.
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Bill PrewCommented:
Any script that could do that would need an SMTP server to use to send the emails, do you have one of those?

100questionsAuthor Commented:
Hi Bill.  Yes, I believe so.
Bill PrewCommented:
Okay, then to do something I think the following would apply.

There would be some items that would likely be hardcoded in ths script, or prompted for along with the email sending.

NEED: SMTP server name (typically like

If the SMTP server does not allow anonymous sending then we woud need:
    NEED: SMTP send account
    NEED: SMTP send password

NEED: a from address for the email

Then we would display text input fields for:

INPUT: To email address
INPUT: Subject line
INPUT: Body text

Think of anything else?

ON-DEMAND: 10 Easy Ways to Lose a Password

Learn about the methods that hackers use to lift real, working credentials from even the most security-savvy employees in this on-demand webinar. We cover the importance of multi-factor authentication and how these solutions can better protect your business!

100questionsAuthor Commented:
Sounds just about right.
Nadav SolomonCommented:
I think this will answer your needs:
Bill PrewCommented:
Sorry for not getting back to this sooner.  Here is a basic HTA script approach, save as a .HTA file and run it for a test.

It currently sends annonymous email via the SMTP server you will update in the script.  Also update the default from email address.

I didn't spend any time making it "pretty", I'm sure a web expert could spruce it up a lot better than a coder like me.



<title>Send Email</title>



<script Language="VBScript"> 

   ' Define constants for email
   Const cSmtpServer = ""
   Const cFromEmail = ""

   Sub Window_OnLoad 
      ' Size and position main window
      window.resizeTo 800,450 
      window.moveTo 10,10
   End Sub    

   Sub ClickSend
      SendEmail cSmtpServer, emailform.fldTo.Value, cFromEmail, emailform.fldSubject.Value, emailform.fldBody.Value
      MsgBox "Email Sent"
   End Sub    

   Sub ClickCancel
   End Sub

   Sub SendEmail(strSmtpServer, strToEmail, strFromEmail, strSubject, strBody)

      ' CDO Constants needed to send email
      Const cCdoSendUsingPickup = 1   'Send message using the local SMTP service pickup directory.
      Const cCdoSendUsingPort = 2     'Send the message using the network (SMTP over the network).
      Const cCdoAnonymous = 0         'Do not authenticate
      Const cCdoBasic = 1             'basic (clear-text) authentication
      Const cCdoNTLM = 2              'NTLM
      Const cCdoSendUsingMethod        = ""
      Const cCdoSMTPServer             = ""
      Const cCdoSMTPServerPort         = ""
      Const cCdoSMTPConnectionTimeout  = ""
      Const cCdoSMTPAuthenticate       = ""
      Const cCdoSendUserName           = ""
      Const cCdoSendPassword           = ""
      Const cCdoSmtpUseSsl             = ""

      ' Get a handle to the config object and it's fields
      Set objConfig = CreateObject("CDO.Configuration")

      ' Set config fields we care about
      With objConfig.Fields
         .Item(cCdoSendUsingMethod)       = cCdoSendUsingPort
         .Item(cCdoSMTPServer)            = strSmtpServer
         .Item(cCdoSMTPServerPort)        = 25
         .Item(cCdoSMTPConnectionTimeout) = 10
         .Item(cCdoSMTPAuthenticate)      = cCdoAnonymous
      End With

      ' Create a new message
      Set objMessage = CreateObject("CDO.Message")
      Set objMessage.Configuration = objConfig

      ' Populate message fields and send it
      With objMessage
         .To       = strToEmail
         .From     = strFromEmail
         .Subject  = strSubject
         .Textbody = strBody
      End With

      Set objMessage = Nothing
      Set objConfig = Nothing
   End Sub



   <form name="emailform">
      <fieldset><legend>Email Information</legend><br>
          <table width="450">
                   <td style="vertical-align: top; text-align: right;"><label for="fldTo">To:</label></td>
                   <td valign="top"> <input name="fldTo" maxlength="100" size="100" type="text"></td>
                   <td style="vertical-align: top; text-align: right;"><label for="fldSubject">Subject:</label></td>
                   <td valign="top"> <input name="fldSubject" maxlength="100" size="100" type="text"></td>
                   <td style="vertical-align: top; text-align: right;"><label for="fldBody">Body:</label></td>
                   <td valign="top"> <textarea name="fldBody" maxlength="1000" cols="75" rows="10"></textarea></td>
   <button id="btnEmail" type="button" onClick="ClickSend">Send</button>&nbsp&nbsp&nbsp&nbsp
   <button id="btnCancel" type="button" onClick="ClickCancel">Cancel</button>



Open in new window


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
100questionsAuthor Commented:
Works excellent.
Thank you.
Bill PrewCommented:

It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.