Elimde düzenlediğim bir script var ve üyelik sonrası aktivasyon kodu gönderme sistemi CDONTS. Fakat benim server CDOSYS kullanıyor. Aşağıda vermiş olduğum CDONTS kodunu nasıl CDOSYS'ye nasıl çevirebiliriz? Destek ve yardımlarınız için şimdiden teşekkürler.
'#### Onay Mailini Gönder
Dim bbMail
Dim HTML
Set bbMail = CreateObject("CDONTS.NewMail")
HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<p><font face='Verdana' size='2'>Sayın "&strfrmAd&" "&strfrmSoyad&"</font></p>"
HTML = HTML & "<p><font face='Verdana' size='2'>sözlüğümüze göstermiş olduğunuz ilgiden ötürü "
HTML = HTML & "teşekkür ederiz.<br>"
HTML = HTML & "Üyeliğinizi aktif hale getirmek için"
HTML = HTML & "<a href='http://www.kolpasozluk.com/user.asp?i=onay&u="&strUserName&"&oi="&strUI&"&e="&strfrmMail&"'>"
HTML = HTML & "buraya</a> tıklayın.<br>"
HTML = HTML & "<br>"
HTML = HTML & "eğer tıklamanıza rağmen bir işlem gerçekleşmiyor ise aşağıdaki linki <br>"
HTML = HTML & "kopyala yapıştırı kullanarak üyeliğinizi aktif edebilirsiniz.</font></p>"
HTML = HTML & "<p><b><font face='Verdana' size='2' color='#0000FF'>Onay: http://www.kolpasozluk.com/user.asp?i=onay&u="&strUserName&"&oi="&strUI&"&e="&strfrmMail&"</font></b></p>"
HTML = HTML & "<p><font face='Verdana' size='2'><b><u>Kullanıcı bilgileriniz :</u></b> <br>"
HTML = HTML & "kullanıcı adı : "&strUserName&"<br>"
HTML = HTML & "şifre : "&strfrmSifre&"<br>"
HTML = HTML & "Onay Kodu : "&strUI&"</font></p>"
HTML = HTML & "<p><font face='Verdana' size='2'>kolpa sözlük adına<br>"
HTML = HTML & "kamil Dayı</font></p>"
bbMail.From = "<kamilkinik@kolpasozluk.com>kamil Kınık"
bbMail.To = strfrmMail
bbMail.Subject="kolpa sözlük üyelik zimbirtiniz"
bbMail.BodyFormat=0
bbMail.MailFormat=0
bbMail.Body=HTML
bbMail.Send
set bbMail=nothing
'########### Onay Mailini Bitir