Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Sendmail
Message
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
00673911
Message ID:
00674173
Views:
27
Surely there is a way to send an unattended email from an NT4.0 server not having Outlook!

Sergey,
Works from my pc after having to answer a exchange-message box;
Same error message when sent from server!??

>>cannot find entry point sendmail in the dll
...
DECLARE Integer sendmail IN c:\sendmail\SendMail.dll ;
	String cProfileName, ;
	String cPassword, ;
	String cRecipientList, ;
	String cSubject, ;
	String cBodyText, ;
	String cAttachmentList, ;
	Integer nRequestReceipt, ;
	Integer nShowClient

Declare GetComputerName in WIN32API string @,long @
Declare integer GetSerialNumber in DiskSerial.dll Integer nDrivelpBuffer,String
Declare integer GetModelNumber in DiskSerial.dll Integer ndr,String
Declare integer GetRevisionNumber in DiskSerial.dll Integer nrr,String
Declare long GetBufferSize in DiskSerial.dll Integer nbr
Declare long GetDiskCylinders in DiskSerial.dll Integer ndc
Declare long GetDiskHeads in DiskSerial.dll Integer ndh
Declare long GetSectorsOfTrack in DiskSerial.dll Integer nst

Public IPSocket
Public IPAddress
aa=space(40)
bb=space(50)
cc=space(35)
nb=0
lcMachineName=space(200)
lnLen=200
llRetVal=GetComputerName(@lcMachineName,@lnLen) 

nSerial=GetserialNumber(0,@aa)
nIVSerial= Int(Val(Str(nSerial)))
nModel= GetModelNumber(0,@bb)
nRevision= GetRevisionNumber(0,@cc)
nBuffer= GetBufferSize(0)
nDiskCyl= GetDiskCylinders(0)
nDiskHead= GetDiskHeads(0)
nSectors= GetSectorsOfTrack(0)
SET SYSMENU TO 
lcCLD= " Current Launch Dir - " +SYS(2004) 
lcDD= " Default Directory  - " +SYS(5)+SYS(2003) 
lcSN= " Serial Number:   "+ SubStr(aa,1,nIVSerial) 
lcMNu= " Model Number:    "+ SubStr(bb,1,nModel) 
lcRN= " Revision Number: "+ SubStr(cc,1,nRevision) 
lcBS= " Buffer Size:     "+ AllTrim(Str(nBuffer)) 
lcDC= " Disk Cylinders:  "+ AllTrim(Str(nDiskCyl)) 
lcDH= " Disk Heads:      "+ AllTrim(Str(nDiskHead))
lcST= " Sectors/Track:   "+ AllTrim(Str(nSectors)) 
Release IPSocket
lcEmail= "elbolton@arkbluecross.com"
lcBody= " This is a test of ArkMon Server email notification from AMCRON!"+ ;
        Chr(10)+ Chr(13)+ ;
        lcCLD+ Chr(10)+ Chr(13)+ ;
        lcDD+ Chr(10)+ Chr(13)+ ;
        lcSN+ Chr(10)+ Chr(13)+ ;
        lcMNu+ Chr(10)+ Chr(13)+ ;
        lcRN+ Chr(10)+ Chr(13)+ ;
        lcBS+ Chr(10)+ Chr(13)+ ;
        lcDC+ Chr(10)+ Chr(13)+ ;
        lcDH+ Chr(10)+ Chr(13)+ ;
        lcST+ Chr(10)+ Chr(13)+ lcERROR
nResult=SendMail("","","elbolton@arkbluecross.com","test subject",lcBody,"",0,0)
TIA
Edgar L. Bolton, B.S. B.B.A.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform