Bu makalede, bilgi kullanıcıdan bir .htm sayfasında toplamak ve sonra bu bilgileri SMTP üzerinden birlikte çalışma veri nesneleri için Windows NT Server (CDONTS) kullanarak bir alıcıya posta göndermeye nasıl açıklayan bir örnek bulunmaktadır. Bu makalede, HTM ve ASP dosyalarının yanı sıra, Microsoft Yönetim Konsolu'nu (MMC) varsayılan SMTP sunucusu olarak yapılandırma konusunda bilgi için örnek kodları içerir.
CDONTS, <a1>NewMail</a1> nesnesiyle, posta göndermek için sözdizimi aşağıdaki gibidir:
objNewMail.Send([From][, To][, Subject][, Body][, Importance] )
objNewMail
Required. This NewMail object.
From
Optional. String. The full messaging address to be identified as
the sender (for example, someone@Microsoft.com)
To
Optional. String. A list of full messaging addresses of recipients.
The individual recipient addresses are separated by semicolons.
(for example, someone@Microsoft.com)
Subject
Optional. String. The subject line for the message.
Body
Optional. IStream object or String. The text of the message. Only
C/C++ and Java programs can use an IStream object for the Body
parameter. They should pass an IUnknown object that returns an
IStream interface in response to QueryInterface. Microsoft Visual
Basic supports the IDispatch interface and not IUnknown, so it
cannot use an IStream object.
Importance
Optional. Long. The importance associated with the message, High,
Normal or Low. This article sets the required value depending upon
which option button the user selects.
Aşağıdaki HTML kodu CDONTSMail.HTM adlı bir dosyaya yapıştırın:
Aşağıdaki VBScript kodu CDONTSMail.ASP adlı bir dosyaya yapıştırın:
<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type"
content="text/html;charset=iso-8859-1">
<TITLE>CDONTSMail</TITLE>
<%
Sub Write(strWriteThis)
'This subroutine just writes out whatever is
'passed to it.
response.write(strWriteThis & "<br>")
end sub
%>
</HEAD>
<BODY>
<%
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strMessage
Dim lngImportance
'The following variable assignments are not required
'they are just here to make interpretation of the
'myCDONTSMail.Send line easier. You could put the
'Request.Form statements in the .Send line to cut down
'on the amount of code in the file.
strFrom=request.form("txtFrom")
strTo=request.form("txtTo")
strSubject = request.form("txtSubject")
strBody=request.form("txtMessage")
lngImportance = request.form("optImportance")
'The following four lines of code are just here for test
'purposes to see what variables have been pulled in from the
'HTM form.
Write("strFrom = " & strFrom)
Write("strTo = " & strTo)
Write("strSubject = " & strSubject)
Write("strMessage = " & strBody)
Write("Importance = " & lngImportance)
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance
Set myCDONTSMail = Nothing
Write "Mail has been sent."
%>
</BODY>
</HTML>
Not: The NewMail nesnesi başarıyla tamamlandığında <a0>Gönder</a0> yönteminin geçersiz olur ve başka bir ileti için yeniden kuramıyor. Bu bellek yayımlamayı Nothing olarak ayarla. Gönderilen NewMail nesne sonuçlarına CdoE_INVALID_OBJECT, bir iade içinde erişim denendi.
ınternet ınformation Server (IIS) yapılandırma adımları'ı tıklatın. IIS sunucunuzun SMTP sunucunuza, (farklı bilgisayarlar olduğunu varsayarak) aracılığıyla posta göndermek için aşağıdaki adımları izleyin:
IIS bilgisayarınızda, Microsoft Yönetim Konsolu'nu (MMC) açın.
Sol bölmede, "Internet ınformation Server" genişletin bölümü.
Sol bölmeden seçin ve IIS sunucunuzu genişletin.
Sağdaki bölmede, "Varsayılan SMTP sunucusu"'ı sağ tıklatın ve "Özellikler" seçin.
"Teslim" sekmesini seçin.
IIS "Tam etki alanı adı" metin kutusuna girin bilgisayar adı.
"Akıllı ana bilgisayara" metin kutusuna SMTP sunucunuzun adını girin.
Tarayıcınızda CDONTSMail.htm dosyasını çalıştırmak, gerekli bilgileri girin ve sonra Gönder düğmesini seçin.
Not: Yukarıdaki kod from (Başlangıç) ve alanlar için bir değer girmeniz gerekir.
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:186204
(http://support.microsoft.com/kb/186204/en-us/
)
Bu makale, Microsoft'un artık destek sağlamadığı ürünler ile ilgili olarak yazılmıştır. Bu nedenle, bu makale "olduğu gibi" sağlanmıştır ve bundan sonra güncelleştirilmeyecektir.
Bu makaleyi kullanabilmek için kişisel olarak ne kadar çaba harcadınız?
Çok az
Az
Ne Az, Ne Fazla
Fazla
Çok fazla
Bu bilgiyi geliştirmek için ne yapabiliriz?
Gizliliğinizi korumak için, irtibat bilgilerinizi görüşlerinize eklemeyin.
Teşekkür ederiz! Görüşleriniz, destek içeriğimizi geliştirmek amacıyla kullanılacaktır. Daha fazla yardım seçeneği için lütfen, Yardım ve Destek Ana Sayfası’nı ziyaret edin.