Mail yolla

SametE

Profesyonel Üye
İYİNET Üyesi
Katılım
7 Mar 2008
Mesajlar
307
Beğeniler
0
Konum
Balıkesir
#1
Kod:
Sub SendEmail(strFrom, strTo, strSubject, strBody)
	' DB ve email sabitleri
	Dim objCDOMail

	' email aktif mi
	If SEND_EMAIL Then
		
		Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

		' obje özellikleri
		objCDOMail.From = strFrom
		objCDOMail.To = strTo
		objCDOMail.Subject = strSubject
		objCDOMail.Body = strBody

		' mesajı yolla
		objCDOMail.Send
		Set objCDOMail = Nothing
	End If
End Sub
 

Bu konuyu okuyanlar (Üyeler: 1, Misafirler: 0)

Üst