Aprire un editor di testo
2
incolla quanto segue per creare il messaggio :
m = CreateObject ( " CDO.Message " ) per
m.Configuration.Fields.Item ( " http://schemas.microsoft.com/cdo/configuration/sendusing " ) = 2
m.Configuration.Fields.Item ( " http://schemas.microsoft.com/cdo/configuration/smtpserver " ) = " mail.your.com "
m.Configuration.Fields.Item ( " http://schemas.microsoft.com/cdo /configuration /SMTPAuthenticate " ) = cdoBasic
m.Configuration.Fields.Item ( " http://schemas.microsoft.com/cdo/configuration/sendusername " ) = " YourUserID "
m.Configuration.Fields.Item ( " http://schemas.microsoft.com/cdo/configuration/sendpassword " ) = " yourpassword "
m.Configuration.Fields.Item ( "http://schemas.microsoft.com /cdo /configuration /SMTPServerPort " ) = 25
Programmazione © www.354353.com