Notes mail vanuit bat-file

[Verwijderd]

Weet iemand toevallig uit z'n hoofd hoe je een Lotus Notes e-mail verstuurt vanuit een .bat file onder WinNT 4.0 ?
Het gaat erom dat vanuit de AS/400 deze bat-file opgestart kan worden en er dus automatisch mail word verstuurd naar een aantal mensen.

[Jaymz]

Wat is de bedoeling van die mails ? ?

Moet er een mail worden gestuurd als er 'iets' is gebeurd ofzo ?

[Koffie]

Pffff ... geen idee, ik ken alleen maar CC:Mail ...
Maareuh gezien het feit dat het met CC:Mail kan en (volgens jou) ook met Notes ...
Ik weet niet of Noates ook nog de reclaim batches gebruitk, maar if so kijk daar eens in want dat verstuurd ook een mailtje.

Succes!!

[Verwijderd]

Vanuit een Batch bestand kun je zomaar geloof ik geen mails versturen met Notes.

Maar als je wilt dat er bij een bepaalde gebeurtenis een mail wordt verstuurd, dan maak je toch gewoon even een event aan ?

[vandijk]

Heb je hier wat aan:
Sendmail for Lotus Notes - Command Line

http://supershareware.co.uk/Apps/5674.asp

[Verwijderd]

Op donderdag 23 november 2000 10:29 schreef Jaymz het volgende:
Wat is de bedoeling van die mails ? ?

Moet er een mail worden gestuurd als er 'iets' is gebeurd ofzo ?

Yup, als een van de taken die 's nachts lopen niet afgerond kan worden moet er een mailtje gestuurd worden. Het makkelijks lijkt het me dan dat er een batch file op de NT workstation opgestart word die zorg voor eht versturen van dat mailtje. Mits dit mogelijk is natuurlijk

[Verwijderd]

Op donderdag 23 november 2000 10:46 schreef vandijk het volgende:
Heb je hier wat aan:
Sendmail for Lotus Notes - Command Line

http://supershareware.co.uk/Apps/5674.asp

Hmmm....misschien wel. Ik zal het 's ff proberen. Tnx for the link

[charlie]

Als je Notes instelt voor SMTP mail handling kan je misschien vanuit je toepassing zelf een mailjte versturen.

[Jaymz]

Als je Notes5 draait (want daar ken ik het van), en het gaat om een notes taak. heb je een Event Monitor. Deze kun je een mailtje laten versturen als er een 'event' opgetreden heeft.

Zo krijg ik (want ik ben Administrator, kuch, kuch) als op de console "ATTEMPT TO ACCES DATABASE, of RELAY REJECTED FOR POLICY REASONS" verschijnt, een mailtje met daarbij de volledige regel die op de console verschijnt. (events4.nsf)

Ik meen dat hiervoor de collector task moet draaien.

Ander moet je via SMTP wat regelen. (wij hebben iets?? draaien waar een aantal OCX'en nodig zijn. Hoe of wat weet ik niet.

[Verwijderd]

Op donderdag 23 november 2000 13:22 schreef Charlie23 het volgende:
Als je Notes instelt voor SMTP mail handling kan je misschien vanuit je toepassing zelf een mailjte versturen.

Is dit makkelijk in te stellen...of moet ik de Domino beheerder hiervoor inschakelen?

[Verwijderd]

Op donderdag 23 november 2000 13:55 schreef Jaymz het volgende:
Als je Notes5 draait (want daar ken ik het van), en het gaat om een notes taak. heb je een Event Monitor. Deze kun je een mailtje laten versturen als er een 'event' opgetreden heeft.

Ja, maar in dit geval betreft het een proces op de AS/400.....

[Jaymz]

Kun je niet iets op de AS/400 schrijven dat kan mailen. 'T lijkt mij dat dat moet kunnen.

Wij hebben hier een NX series staan (Mainframe, kleine broer van A-series)

Een van de programmeurs heeft iets geschreven dat naar een bepaalde persoon mailt als de batch klaar is. (ik meende over SMTP)

[Verwijderd]

Op donderdag 23 november 2000 15:02 schreef Jaymz het volgende:
Kun je niet iets op de AS/400 schrijven dat kan mailen. 'T lijkt mij dat dat moet kunnen.

Wij hebben hier een NX series staan (Mainframe, kleine broer van A-series)

Een van de programmeurs heeft iets geschreven dat naar een bepaalde persoon mailt als de batch klaar is. (ik meende over SMTP)

Zou je willen vragen wat voor SMTP tool hij gebruikt op de AS/400 en eventueel een voorbeeld van het commando?

[Verwijderd]

Hallo,

Misschien ben je hiermee geholpen, het is een stukje script wat vanaf de commandline aangeroepen kan worden.

Het script verwacht 5 parameters:
- Subject = tekst van de onderwerp-regel
- Attachment = path&bestandnaam van het attachment
- Recipient = geadresseerde
- Bodyfile = path&bestandnaam van een tekstdocumentje met de body-tekst
- SaveIt = true of false, geeft aan of na het versturen het bericht bewaard blijft.

succes

code:

'Set up the objects required for Automation into lotus notes
    Dim Maildb 'The mail database
    Dim UserName 'The current users notes name
    Dim MailDbName 'THe current users notes mail database name
    Dim MailDoc  'The mail document itself
    Dim AttachME  'The attachment richtextfile object
    Dim Session  'The notes session
    Dim EmbedObj 'The embedded object (Attachment)
    Dim Subject
    Dim Attachment
    Dim Recipient
    Dim Bodyfile
    Dim SaveIt
    Dim filesys
    Dim readfile
    Dim contents
  
'5 parameters zijn verplicht
If WScript.arguments.count <> 5 Then
    WScript.Echo _
        "Usage: sendmail.vbs <Subject, Attachment , Recipient , Bodyfile , SaveIt>" 
    WScript.quit
End If

'Assign arguments to named variables
    Subject    = WScript.arguments(0)
    Attachment = WScript.arguments(1)
    Recipient  = WScript.arguments(2)
    Bodyfile   = WScript.arguments(3)
    SaveIt     = WScript.arguments(4)

    'Start a session to notes
    Set Session = CreateObject("Notes.NotesSession")
    'Get the sessions username and then calculate the mail file name
    'You may or may not need this as for MailDBname with some systems you
    'can pass an empty string
    UserName = Session.UserName
    MailDbName = Left(UserName, 1) & Right(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    'Open the mail database in notes
    Set Maildb = Session.GETDATABASE("", MailDbName)
     If Maildb.ISOPEN = True Then
          'Already open for mail
     Else
         Maildb.OPENMAIL
     End If
    'Set up the new mail document
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recipient
    MailDoc.Subject = Subject
    
    set filesys = CreateObject("Scripting.FileSystemObject")
    set readfile = filesys.OpenTextFile(Bodyfile, 1, false)
    contents = readfile.ReadAll
    readfile.close
        
    MailDoc.Body = contents
    MailDoc.SAVEMESSAGEONSEND = SaveIt
    'Set up the embedded object and attachment and attach it
    If Attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment,"Attachment")
        MailDoc.CREATERICHTEXTITEM ("Attachment")
    End If
    'Send the document
    MailDoc.PostedDate=Now() 'Gets the mail to appear in the sent items folder
    MailDoc.SEND 0, Recipient
    'Clean Up
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
Wscript.Quit