yardımlarınız için teşekkür ederim en son şu şekilde yaptım ama yinede olmadı
Alıntı
<%
message=Request("message")
smtpServer = "mail.mailim.com"
smtpPort = 25
name = Request("mail@mailim.com")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request("mail@mailim.com")
myMail.To = Request("recipient")
myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & message & "</body></html>"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = "2"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.mailim.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "0"
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail@mailim.com"
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
myMail.Configuration.Fields.Update
myMail.Send
örneğin "mail@mailim.com" kısmını "" lar olmadanda denedim ama aynı