Asp de Binary Mail Gonderme Hakkında;
FUNCTION siparis(pstrmesaj,eposta)
Dim ObjSendMail
Dim iConf
Dim Flds
Set ObjSendMail = Server.CreateObject(”CDO.Message”)
ObjSendMail.BodyPart.CharSet = ”utf-8”
Set iConf = CreateObject(”CDO.Configuration”)
Set Flds = iConf.Fields
schema = ”http://schemas.microsoft.com/cdo/configuration/”
Flds.Item(schema & ”sendusing” ) = 2
Flds.Item(schema & ”smtpserver” ) = ”mail.sunucu.com”
Flds.Item(schema & ”smtpserverport” ) = 587
Flds.Item(schema & ”smtpauthenticate” ) = 1
Flds.Item(schema & ”smtpusessl” ) = 0
Flds.Item(schema & ”sendusername” ) = ”[email protected]”
Flds.Item(schema & ”sendpassword” ) = ”şifreni yaz”
Flds.Update
Set ObjSendMail.Configuration = iConf
ObjSendMail.To =” [email protected]”
ObjSendMail.Subject = ”Birşeyler Geldi”
ObjSendMail.From = ”[email protected]”
ObjSendMail.HtmlBody = Mesaj
ObjSendMail.Send
Set ObjSendMail = Nothing
If Err <> 0 Then
Response.Write ”Error encountered: ” & Err.Description
End If
END FUNCTION
Dim ObjSendMail
Dim iConf
Dim Flds
Set ObjSendMail = Server.CreateObject(”CDO.Message”)
ObjSendMail.BodyPart.CharSet = ”utf-8”
Set iConf = CreateObject(”CDO.Configuration”)
Set Flds = iConf.Fields
schema = ”http://schemas.microsoft.com/cdo/configuration/”
Flds.Item(schema & ”sendusing” ) = 2
Flds.Item(schema & ”smtpserver” ) = ”mail.sunucu.com”
Flds.Item(schema & ”smtpserverport” ) = 587
Flds.Item(schema & ”smtpauthenticate” ) = 1
Flds.Item(schema & ”smtpusessl” ) = 0
Flds.Item(schema & ”sendusername” ) = ”[email protected]”
Flds.Item(schema & ”sendpassword” ) = ”şifreni yaz”
Flds.Update
Set ObjSendMail.Configuration = iConf
ObjSendMail.To =” [email protected]”
ObjSendMail.Subject = ”Birşeyler Geldi”
ObjSendMail.From = ”[email protected]”
ObjSendMail.HtmlBody = Mesaj
ObjSendMail.Send
Set ObjSendMail = Nothing
If Err <> 0 Then
Response.Write ”Error encountered: ” & Err.Description
End If
END FUNCTION
