Cara menggunakan perpustakaan CDOSYS mengirim pesan e-mail dengan menggunakan port SMTP dalam Visual Basic.NET

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 313775 - Melihat produk di mana artikel ini berlaku.
Perhatian ADO dan ADO MD tak sepenuhnya diuji di Microsoft.NET Framework lingkungan. Mereka dapat menyebabkan masalah berselang, terutama dalam aplikasi berbasis layanan atau aplikasi multithreaded. Teknik yang dibahas dalam artikel ini hanya boleh digunakan sebagai ukuran sementara selama migrasi ke ADO.NET. Anda hanya harus menggunakan teknik-teknik ini setelah Anda telah melakukan lengkap pengujian untuk memastikan bahwa ada tidak ada masalah kompatibilitas. Masalah yang disebabkan oleh menggunakan ADO atau ADO MD dengan cara ini tidak didukung. Untuk informasi lebih lanjut, lihat artikel berikut pada Basis Pengetahuan Microsoft:
840667 Anda menerima kesalahan tak terduga ketika menggunakan ADO dan ADO MD dalam.NET Framework aplikasi
Perbesar semua | Perkecil semua

RINGKASAN

Artikel ini menjelaskan cara menggunakan kolaborasi Data objek (CDO) untuk Windows 2000 (CDOSYS) perpustakaan untuk mengirim pesan e-mail dengan menggunakan port protokol Transfer surat sederhana (SMTP) di Microsoft Visual Basic.NET.

INFORMASI LEBIH LANJUT

Untuk mengirim pesan e-mail dengan menggunakan SMTP port, ikuti langkah berikut:
  1. Mulai Microsoft Visual Studio.NET.
  2. Pada Berkas menu, titik Baru, lalu klik Project.
  3. Dalam Jenis proyek Visual Basic Daftar, klik Aplikasi konsol.

    Secara default, berkas Module1.vb dibuat.
  4. Menambahkan referensi ke Microsoft CDO untuk Windows 2000 perpustakaan. Untuk melakukannya, ikuti langkah berikut ini:
    1. Pada Project menu, klik Menambahkan referensi.
    2. Klik COM tab, Cari Microsoft CDO untuk Windows 2000 perpustakaan, lalu klik Pilih.
    3. Dalam Menambahkan referensi kotak dialog, klik Oke.
    4. Jika Anda diminta untuk menghasilkan pembungkus untuk perpustakaan yang Anda pilih, klik Ya.
  5. Ulangi langkah 4-menambahkan referensi ke Microsoft perpustakaan objek Data ActiveX 2.5.
  6. Dalam jendela kode, mengganti kode dengan berikut:
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            Dim oMsg As CDO.Message = New CDO.Message()
            Dim iConfg As CDO.Configuration
            Dim oFields As ADODB.Fields
            Dim oField As ADODB.Field
     
            iConfg = oMsg.Configuration
            oFields = iConfg.Fields
    
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = CDO.CdoSendUsing.cdoSendUsingPort
    
           ' TODO: Replace with the port that you want to use . It must be the same
           ' port that the SMTP server is using.
           oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
            oField.Value = 25
    
            ' TODO: Replace with your SMTP server.
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
            oField.Value = "<SMTP Server>"
    
            oFields.Update()
            oMsg.Configuration = iConfg
    
            oMsg.TextBody = "Test message body."
            oMsg.Subject = "Test SMTP Message Send using port"
            oMsg.From = "from@example.com"
            oMsg.To = "to@example.com"
    
            oMsg.Send()
    
            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing
        End Sub
    
    End Module
    					
  7. Mencari TODO dalam kode, dan kemudian memodifikasi kode untuk lingkungan Anda.
  8. Tekan F5 untuk membangun dan menjalankan program.
  9. Pastikan bahwa pesan e-mail yang dikirim dan diterima.

Properti

ID Artikel: 313775 - Kajian Terakhir: 24 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Kata kunci: 
kbhowto kbcode kbxml kbmsg kbmt KB313775 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:313775

Berikan Masukan

 

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