I have an e-mail/paging script that is called in a batch job if it errors
out:
----------------
Dim objOutlook
Dim objNameSpace
Dim mItem
Dim strReceipient
Dim strSubject
Dim strBodyText
Dim strMsg
Const olMailItemm = 0
strReceipent = "[EMAIL PROTECTED]"
strSubject = "Error"
strBodyText = "The batch job failed, please check!"
Set objOutlook = CreateObject("Outlook.application")
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set mItem = objOutlook.CreateItem(olMailItem)
mItem.To = strReceipent
mItem.Subject = strSubject
mItem.Body = strBodyText
mItem.Save
mItem.Send
If strReceipent = "" Then
Msgbox "No Receipient provided. Mail not sent", vbInformation,"Mail
Error"
End If
' **** Clean up
'
Set mItem = Nothing
Set objNameSpace = Nothing
set objOutlook = Nothing
----------------------------
The script will not run on a database server, because it exists in a
workgroup, and Exchange is in a NT 4.0 domain. How do I automate the
Exchange username, domain, and password authentication in the script?
Please e-mail me at [EMAIL PROTECTED]
Thanks, Keith
------
You are subscribed as [email protected]
Archives: http://www.swynk.com/sitesearch/search.asp
To unsubscribe send a blank email to [EMAIL PROTECTED]
