[Outlook] Invio email se disco pieno?

[cassioli]

Secondo voi è possibile programmare Outlook per fargli inviare una mail quando lo spazio libero su disco scende sotto un certo livello?...

[Anthony47]

Ciao,
non credo che Outlook sia lo strumento per verificare l' occupazione dischi.
So che in Xp esistono agenti per il controllo di risorse, come pure ne sistono di terze parti, in grado di fare una serie di cose (tra cui inviare mail) all' occorrenza degli eventi trappati.
Bisognerebbe piu' che altro chiedere a chi si occupa di S.O., se non ti arrivano suggerimenti validi prova a postare la domanda li.

Ciao

[Dylan666]

Che non possa essere Outlook a controllare lo spazio su disco è fuori discussione. Bisogna trovare un software che lo faccia, che dia il responso da command-line o su txt e lavorare un po' di batch e/o vb per mandare la mail, tutto qui

[cassioli]

Bah.... me lo sono fatto da me, cosi' ho fatto prima!

Codice: Seleziona tutto

$include "rapidq2.inc"
DIM Object AS QOLEOBJECT
dim CQ as QOLEOBJECT
dim sys as QSYSTEM
dim IniFile as QFILESTREAM
dim riga as string
Dim mailmsg
   
declare sub SpaceCheck
declare sub SendMail

const DEFAULT_MINIMUM = 1000 ' MB

create MailerForm as Qform
   top = 200
   left = 100
   caption = "Disk-full mail notifier"
     CREATE Mailer AS QOLECONTAINER
      Left = 10
      Top = 10
      Width=50
      Height = 50
      visible=false
     END CREATE
     create ActualFreeLabel as qlabel
        top = 10
        left = 10
        caption = "--"
     end create
     create MinimumFreeLabel as qlabel
        top = 30
        left = 10
        caption = "--"
     end create
end create

ActualFreeSpace = sys.DiskFreeSpace("c:\") ' Get disk free space in MB
result = IniFile.open("diskfull.ini",fmOpenRead)
if result = -1 then
   riga = IniFile.ReadLine
   if instr(riga,"MinimumFreeSpace") then
      MinimumFreeSpace = val(mid$(riga,instr(riga,"=")+1,len(riga)-instr(riga,"=")))
   end if
   IniFile.close
else ' If file does not exist, use default value.
   MinimumFreeSpace = DEFAULT_MINIMUM ' MB
end if

ActualFreeLabel.caption = "Free space available: " & str$(int(ActualFreeSpace)) & " MB"
MinimumFreeLabel.caption = "Minimum space required: " & str$(MinimumFreeSpace) & " MB"
SpaceCheck
'MailerForm.showmodal


sub SpaceCheck
   MailerForm.show
   if ActualFreeSpace<MinimumFreeSpace then
      SendMail
      ShowMessage("Lack space on disk: notification email has been sent.")
   end if
   application.terminate
end sub

sub SendMail
    CQ.CreateObject("PAINET.MAILMSG")
    CQ.AddTo("indirizzo@email")
    CQ.SetBody("Corpo del messaggio")
    CQ.SetSubject("oggetto del messaggio")
    CQ.SetFrom("mittente")
MailResult = CQ.Deliver
end sub



Il linguaggio e' RapidQ (link), e il programma si "aggancia", anziche' a Outlook (che ha una protezione contro l'accesso da programmi esterni) a un altro mailer che ho sul mio PC...

Troppo forte, 'sto RapidQ! E c'e' ancora chi cerca di convincermi che il BASIC è una schifezza e che è molto meglio il C++...

IL "cuore" del programma è tutto qui:

Codice: Seleziona tutto

sub SendMail
    CQ.CreateObject("PAINET.MAILMSG")
    CQ.AddTo("indirizzo@email")
    CQ.SetBody("Corpo del messaggio")
    CQ.SetSubject("oggetto del messaggio")
    CQ.SetFrom("mittente")
MailResult = CQ.Deliver



Per usare outlook invece che altro, bisogna usare invece qualcosa di questo tipo...
set out=WScript.CreateObject("Outlook.Application")
set mapi=out.GetNameSpace("MAPI")

set mail=out.CreateItem(0)
mail.Recipients.Add("dest")
mail.Subject = "oggetto"
mail.Body = "corpo"
mail.Attachments.Add ("attachment path")
mail.Send