#39608 - 2003-04-29 04:10 PM
Re: send email
|
Night Hawk
Fresh Scripter
Registered: 2002-10-09
Posts: 33
Loc: NC, USA
|
Sorry for taking so long to get back to you all, but here we go i will try to answer the questions and comments. NT/XP/2k/outlook 2k enviorment: Blat is not authorized. external software POSTIE is not authorized. external software COM - Howard Bullock's Win32Admin.DLL This is a dll and in the Gray area (my favorite place). COM (using Outlook) this worked with my regular login account but not with the local admin account that i have which does not have a corresponding email account. I tried this with the canned udf and recieved an error due to no email account. COM - Using CDO (Collaborative Data Objects): tried this one an recieved no error or any thing. I did use the canned udfs only changed the email address and remebering the @@ requirement. I still wonder where the Com using cdo went as the test script completed with no errors but i did not recieve the email nor do i know where it went. Please bear with if i make a few posting mistakes as i have to quit and come back several times and i for get where iam (getting old)(work calls you now) here is some of what i used code ************************************************* break on $Root = CreateObject("Outlook.Application") $MailItem = $Root.CreateItem(0) $MailItem.Importance = 1 ; - 2 high importance ; - 1 normal importance ; - 0 low importance $MailItem.Subject = "Automation Test" $MailItem.To = "me@@mymail.com" $MailItem.Body = "Test info" IF EXIST("C:\errorlog.txt") $MailItem.Attachments.Add("C:\test\errorlog.txt") ENDIF $MailItem.Send$Root = 0 ************************************************* end code and here is the other one that just did not give me any thing code ************************************************* break ON $= SetOption("WrapAtEol","On") break on $objCDO = CreateObject("CDONTS.NewMail") IF @error <> 0 ?@error " CDO not found" SLEEP 2 EXIT 1 ENDIF $objCDO.From = "me@@mymail.com" $objCDO.To = "me@@mymail.com" $objCDO.Subject = "Software Notification for PC" $objCDO.Body = "More Testing" $objCDO.BodyFormat = 0 $objCDO.MailFormat = 0 $objCDO.Send $objCDO = 0
************************************************* end code I hope i answered all let me know if i missed anything Thanks
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
1 registered
(Allen)
and 1198 anonymous users online.
|
|
|