LikeForYou
- 26 Eyl 2017
- 728 Mesaj
Kodu kullanırken, yalnızca gereken yalnızca ilgili alanlaırı doldurmunız yeterlidir
Kod:
<%
On Error resume Next
Dim TBdy
Dim MyCDO
CR = Chr(13)
Set MyCDO = Server.CreateObject("CDONTS.NewMail")
If IsObject (MyCDO) Then
MyCDO.From = "[email protected] (Kimden)"
MyCDO.To = "[email protected] (Kime)"
MyCDO.Subject = "Mesaj konusunu buraya yazınız"
TBdy = "sayın Yetkili" & VBCRLF & VBCRLF & "Burası mesaj metnidir" & VBCRLF
TBdy = TBdy & "Teşekkürler"
MyCDO.Body = TBdy
MyCDO.Importance = 2 (High)
MyCDO.value("Reply-to")="[email protected]"
' --- Dosya eklemek isteniyorsa aşağıdaki satırı da kullanabilmeniz mümkün.
' --- MyCDO.AttachFile = "e:\files\catalog.zip"
MyCDO.Send
Set MyCDO = nothing
Response.Write("Mesaj gönderilmiştir.")
Else
Response.Write("Mesaj Gönderilmedi")
End If
%>