| Na serveru je instalirana CDOSYS komponenta koja radi na win serveru 2003 i zamjena je za staru CDONTS komponentu.
Slijedi primjer koda korištenja CDOSYS komponente koji je testrian i radi :
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Slanje maila pomoću CDO"
myMail.From="igor@vasa-domena.com"
myMail.To="igor.sjeverac@vasa-domena.com"
myMail.TextBody="Ovo je poruka"
' Slanje korištenjem smtp autentifikacije
' Napomena: Ovu postavku nije potrebno promijeniti.
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
' Slanje korištenjem remote mail servera
' Napomena: ovu postavku nije potrebno promijeniti.
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
' Smtp server
' Napomena: Ovu postavku je potrebno promijeniti. Ovdje koristite mail server od domene preko koje šaljete mail npr. mail.google.com.
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.vasa-domena"
' Korisničko ime
' Napomena: Ovu postavku je potrebno promijeniti. Korisničko ime je uvijek mail adresa npr. igor@novikod.com.
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "korisničko ime"
' Lozinka
' Napomena: Ovu postavku je potrebno promijeniti.
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "lozinka"
' Server port
' Napomena: Ovu postavku nije potrebno promijeniti.
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
myMail.Configuration.Fields.Update
myMail.Send
Set myMail=nothing
-----------------------------------------------------------------------------------------
Skiptu napisao: Igor Sjeverac
|
