Discussione: SMTP ovunque: come?
Visualizza messaggio singolo
Vecchio 02-10-2009, 15.19.52   #9
miciomao
Hero Member
 
L'avatar di miciomao
 
Registrato: 14-01-2005
Loc.: Rome, Italy
Messaggi: 1.132
miciomao promette bene
Incolla questo in un file .vbs lancialo e stupisciti !!!

Codice:
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Tuo oggetto"
objMessage.From = "tuamail@tuodominio.it" 
objMessage.To = "maildest@dominiodest.it" 
objMessage.TextBody = "Testo email"

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.tuoproviderposta.it"

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

objMessage.Configuration.Fields.Update

objMessage.Send

Set objMessage = Nothing
Qui ci sono vari tipi di situazioni sfruttando CDO

http://www.paulsadowski.com/WSH/cdo.htm

Con qualche riga di codice potresti tirare su un client di posta funzionante ovunque purchŔ tu abbia accesso ad internet.

Ciao
Alex
___________________________________

♫ m u s i c ♪ i s ♫ t h e ♪ a n s w e r ♫
"Il pi¨ piccolo dei piccoli felini Ŕ giÓ lui stesso un vero capolavoro". (Leonardo da Vinci)
NamastÚ!
miciomao non Ŕ collegato   Rispondi citando