Visual Basic. NET'le CDOSYS ve yerel SMTP dizin'i kullanarak e-posta iletileri gönderme hakkında

Makale çevirileri Makale çevirileri
Makale numarası: 313773 - Bu makalenin geçerli olduğu ürünleri görün.
Dikkat ADO ve ADO MD tam olarak bir Microsoft .NET Framework ortamında sınanmamıştır. Özellikle de hizmet tabanlı veya çok iş parçacıklı uygulamalarda zaman zaman sorunlara neden olabilirler. Bu makalede açıklanan teknikler ADO.NET'e geçiş sırasında yalnızca geçici bir önlem olarak kullanılmalıdır. Bu teknikler, yalnızca hiçbir uyumluluk sorunları olduğundan emin olmak için tam sınama gerçekleştirip sonra kullanmalısınız. ADO veya ADO MD bu şekilde kullanımından kaynaklanan sorunlar desteklenmez. Daha fazla bilgi için, aşağıdaki Microsoft Bilgi Bankası makalesine bakın:
840667 Bir .NET Framework uygulamasında ADO ve ADO MD kullanırken beklenmedik bir hata alıyorsunuz
Hepsini aç | Hepsini kapa

Özet

Bu makalede, Microsoft Visual Basic. NET'i kullanarak, HTML e-posta iletisi göndermek için Microsoft Windows 2000 kitaplığı ve yerel SMTP dizini için birlikte çalışma veri nesneleri (CDO) nasıl kullanılır. Bu örnek, bir SMTP hizmeti, e-posta iletisi göndermeye çalışan bir sunucuda çalıştırmalısınız.

Daha fazla bilgi

  1. Microsoft Visual Studio .NET'i başlatın.
  2. Dosya menüsünde Yeni ' nin üzerine gelin ve sonra Project ' i tıklatın.
  3. Project Types altında Visual Basic Projeleri) tıklatın.
  4. Şablonlar altında Console Application ' ı tıklatın ve sonra Tamam ' ı tıklatın.

    Varsayılan olarak, Module1.vb oluşturulur.
  5. Bir Windows 2000 kitaplığı için Microsoft CDO başvurusu ekleyin. Bunu yapmak için şu adımları izleyin:
    1. Proje) menüsünde Add Reference ' ı tıklatın.
    2. COM sekmesinde, Microsoft CDO For Windows 2000 kitaplığı ' nı tıklatın ve sonra da <a2>Seç</a2>'i tıklatın.
    3. Başvuru Ekle iletişim kutusuna seçimlerinizi kabul etmek için Tamam ' ı tıklatın. Seçtiğiniz kitaplıklar için sar?c?lar? oluşturmak isteyen bir ileti alırsanız, Evet ' i tıklatın.
  6. Microsoft ActiveX Data Objects 2.5 kitaplığı için bir başvuru eklemek için 5 c ile adımları 5a izleyin.
  7. Kod penceresinde tüm kodla değiştirin:
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            Dim oMsg As CDO.Message = New CDO.Message()
            oMsg.From = "from@microsoft.com"
            oMsg.To = "to@microsoft.com"
            oMsg.Subject = "CdoSys HTML mail in VB.NET (pickup)"
    
            Dim sHtml As String
            sHtml = "<HTML>" & _
             "<HEAD>" & _
             "<TITLE>Simple CDOSYS Message</TITLE>" & _
             "</HEAD>" & _
             "<BODY><P>" & _
             "<h1><Font Color=Green>Simple CDOSYS HTML Message</Font></h1>" & _
             "</BODY>" & _
             "</HTML>"
    
            oMsg.HTMLBody = sHtml
    
            ' Set configuration.
            Dim iConfg As CDO.Configuration = New CDO.Configuration()
    
            Dim oFields As ADODB.Fields
            oFields = iConfg.Fields
    
            Dim oField As ADODB.Field
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = 1   ' Sets the configuration to use the local SMTP server.
    
            oFields.Update()
            oMsg.Configuration = iConfg
    
            oMsg.Send()
    
            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing
        End Sub
    
    End Module
    					
  8. "Yapılacak"IŞ kodu arama ve ortamınızı kodunu değiştirin.
  9. Oluşturmaya ve programı çalıştırmak için F5 tuşuna basın.
  10. E-posta iletisinde gönderilen alınan ve olduğunu doğrulayın.

Özellikler

Makale numarası: 313773 - Last Review: 29 Kasım 2007 Perşembe - Gözden geçirme: 3.2
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Collaboration Data Objects 2.0
Anahtar Kelimeler: 
kbmt kbmsg kbcode kbxml kbhowtomaster KB313773 KbMttr
Machine-translated Article
Ö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:313773

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com