[Solita mia richiesta assurda] Mandare email ogni N minuti

[Bass]

Allora il problema è questo: avrei bisogno di un programma che mi faccia impostare N email da mandare in LOOP ogni tot minuti...idee? :angel:

P.S: non è assolutamente per fare spam in giro si tratta di autonotificarsi varie cose

[Eltarion]

se vuoi un sw esterno cerca E-mail Scheduler su google.

Se lo vuoi fare da outlook:

1. First find options in your email for Preferences In Netscape it is under Options. You can search in your help to find where it is in your email provider.

2. Now Click on Auto reply or Auto response

3. Click Yes or Turn on to enable the automatic emails.

4. Fill in the dates you want the automatic email to be activated. In this you have to enter the dates you want it to be in effect.

5. Specify a subject which you want to send it to the sender.

6. Now Type a message in the box that you want people to see. You want the message to say something like this, "I am on holiday." You may also need to select where you want your mail saved; usually this would be your inbox.

7. Choose "Update" or "Save" or the box that your email provider needs you to check in order to activate your automatic outgoing email.

[Rayvaughan]

se non trovi niente su google se vuoi ti faccio uno scriptino, ne uno già pronto che funziona usando un account di gmail come sender

[Eltarion]

io te lo faccio più bello con l'interfaccia grafica e tutto configurabile prrrrrrrrrrrrrrrrrrrrrrrrrrr

[Jeff]

Io lo faccio e basta.


' Configurazioni per email
smtpserver = "smtp.gmail.com"
sendusername = "INDIRIZZO@gmail.com"
sendpassword = "PASSWORD"
MailDestinat = "MAIL DESTINATARIO"
DescMittente = "DESCRIZIONE MITTENTE <INDIRIZZOMITTENTE@EMAIL.ORG>"
PortaSMTP = 465
AutenSMTP = 1

' Main
InviaMail()


'-----------------------------------------------------------------------
' Invia la mail da un indirizzo creato ad hoc
'-----------------------------------------------------------------------
Sub InviaMail()

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

' send one copy with Google SMTP server (with autentication)
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = smtpserver
Flds.Item(schema & "smtpserverport") = PortaSMTP
Flds.Item(schema & "smtpauthenticate") = AutenSMTP
Flds.Item(schema & "sendusername") = sendusername
Flds.Item(schema & "sendpassword") = sendpassword
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = MailDestinat
.From = DescMittente
.Subject = "oggetto della mail"
.TextBody = sLogMessage
.Sender = "Descrizione Sender"
.Organization = "Descrizione organizzazione"
.ReplyTo = sendusername
If (fso.FileExists(sPathLog)) Then
.AddAttachment sPathLog
End If
Set .Configuration = iConf
SendEmailGmail = .Send
End With

set iMsg = nothing
set iConf = nothing
set Flds = nothing

End Sub


:nod: