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?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

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 PrewIT / Software Engineering ConsultantCommented:
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 PrewIT / Software Engineering ConsultantCommented:
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?

Making Bulk Changes to Active Directory

Watch this video to see how easy it is to make mass changes to Active Directory from an external text file without using complicated scripts.

100questionsAuthor Commented:
Sounds just about right.
Nadav SolomonCommented:
I think this will answer your needs:
Bill PrewIT / Software Engineering ConsultantCommented:
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 PrewIT / Software Engineering ConsultantCommented:

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.