I also use an activeX component.  I use one from activxperts.com
It is extremely easy to use.  It sends the email to the local SMTP server and works very similiarly to the one suggested by
Fred Henning. The software is inexpensive.  We purchased 11 licenses for $110. 

We have a process using Boston WebStation and Boston WorkStation that runs 24/7.  I wrote a short program to test the process to see if it is still running or if an error has occurred.  I run the test automatically every 30min.  If the process has crashed, I use ActivEmail to send an email to my cell phone alerting me of the failure.

Sample code is below.

Private Sub SendTextMsg()
    aeObject.Clear
    'SMTP Server IP address
    aeObject.HostName = "111.111.111.111"
    aeObject.FromAddress = "[EMAIL PROTECTED]"
    If SEAup Then
        'Only send regular email
        aeObject.Subject = Status
        aeObject.AddTo "[EMAIL PROTECTED]", ""
        aeObject.Body = TxtMsg & vbCrLf & Response & vbCrLf & "Tests Completed =" & Str(TestNum)
    Else
        'Send email and Page Cell Phone
        aeObject.Subject = Status
        aeObject.AddTo "[EMAIL PROTECTED]", ""
        aeObject.AddTo "[EMAIL PROTECTED]", ""    'Cell Phone text message address
        aeObject.Body = Response & vbCrLf & TxtMsg
    End If
    aeObject.Send
End Sub



Thom C. Blackwell wrote:

Greetings all!

Curious if anyone out there has written any VB to send an email via Groupwise. This would be a great addition to our script library. Please post to the list!

 

Regards and happy scripting,

Thom

 

Thom C. Blackwell

Product Manager

Boston Software Systems

www.bostonworkstation.com

Booth 415, MUSE International

Miami Beach - May 18 - 21

 


-- 
Neil Carman
Director Technical Development
Manigault & Associates LLC

http://www.m-allc.com
Work: (805) 680-5601
Fax:  (714) 968-5632

Reply via email to