Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sendmail
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00673911
Message ID:
00674173
Vues:
26
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.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform