Mail periodiche

[Misterxxx]

Avrei bisogno di inviare sempre la stessa email ogni lunedì mattina.
Come potrei fare?
Ci sono sw che lo fanno (OE non mi sembra)?
E neanche la webmail (che sarebbe stata la miglior soluzione) dei provider che uso.
:master:

[caronte77]

mi sembra che con microsoft outlook, tu possa settare delle operazioni pianificate sotto la voce diario. non so se però è solo un promemoria o, come ti ho detto un esecutore automatico vero e proprio.

ti posso solo dire di provare!!!!

[Misterxxx]

Non c'è niente in OE che faccia all'uopo.
Ho trovato nel frattempo un sw free che funziona molto bene (IstantMailer).
Peccato che il msg da inviare sia solo uno, lo stesso per tuttii destinatari.
Cmq, ho risolto.

[fabio309]

metti in operazioni pianificate un file script (*.vbs) tipo questo

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "bill.gates@microsoft.com"
objEmail.To = "Misterxxx@html.it"
objEmail.Subject = "ciao"
objEmail.Textbody = "Il sistema si autodistruggerà entro  minuti"
objEmail.Send

[Misterxxx]

Originariamente inviato da fabio309
metti in operazioni pianificate un file script (*.vbs) tipo questo

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "bill.gates@microsoft.com"
objEmail.To = "Misterxxx@html.it"
objEmail.Subject = "ciao"
objEmail.Textbody = "Il sistema si autodistruggerà entro  minuti"
objEmail.Send

Dice: "Enable to connect to the server"
Ma, così, senza un smtp server, senza indicare la porta ... nada?

[fabio309]

in alternativa prova questo che in effetti è più completo, comuque l'altro a me funzionava

Set objMail = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "nome_server "
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With

Set objMail.Configuration = objConfig
objMail.From = "bill.gates@microsoft.com"
objMail.To = "Misterxxx@html.it"
objMail.Subject = "riunione"
objMail.Fields("urn:schemas:httpmail:importance").Value = 2
objMail.Fields.update()
objMail.TextBody = "Il sistema si autodistruggerà entro 5 minuti"
objMail.HTMLBody = "Il sistema si autodistruggerà entro 5 minuti"
objMail.Send()
Set objMail = Nothing

questo dovrebbe funzionare, in più se aggiungi la riga
objMail.AddAttachment "c:\prova.txt"
puoi inviare anche degli allegati

[Misterxxx]

Originariamente inviato da fabio309
in alternativa prova questo che in effetti è più completo, comuque l'altro a me funzionava

Set objMail = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "nome_server "
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With

Set objMail.Configuration = objConfig
objMail.From = "bill.gates@microsoft.com"
objMail.To = "Misterxxx@html.it"
objMail.Subject = "riunione"
objMail.Fields("urn:schemas:httpmail:importance").Value = 2
objMail.Fields.update()
objMail.TextBody = "Il sistema si autodistruggerà entro 5 minuti"
objMail.HTMLBody = "Il sistema si autodistruggerà entro 5 minuti"
objMail.Send()
Set objMail = Nothing

questo dovrebbe funzionare, in più se aggiungi la riga
objMail.AddAttachment "c:\prova.txt"
puoi inviare anche degli allegati

Stesso errore ...

[fabio309]

altro script altra prova

Dim objposta 
Set objposta = New CDONTS.NewMail
objposta.From = "bill.gates@microsoft.com"
objposta.To = "Misterxxx@html.it"
objposta.Subject = "prova"
objposta.Body = "Ciao..."
objposta.Importance = 2
objposta.BodyFormat = 1
objposta.MailFormat = 0
objposta.Send
Set objposta = Nothing