Cara membuat janji dengan menggunakan Outlook Object Model di Microsoft Visual Basic.NET

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 313788 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini selangkah demi selangkah menjelaskan cara membuat janji dengan menggunakan Outlook Object Model dalam Visual Basic .NET.

Membuat sampel untuk membuat janji temu

  1. Mulai Microsoft Visual Studio.NET.
  2. Pada Berkas menu, klik Baru, lalu klik Project.
  3. Klik Proyek-proyek Visual Basic di bawah Jenis proyek, lalu klik Aplikasi konsol di bawah Pola acu. Secara default, Module1.vb dibuat.
  4. Menambahkan referensi ke Microsoft Outlook 10,0 Perpustakaan objek. Untuk melakukannya, ikuti langkah-langkah berikut:
    1. Pada Project menu, klik Menambahkan referensi.
    2. Pada COM tab, klik Microsoft Outlook 10,0 objek Perpustakaan, lalu klik Pilih.
    3. Klik Oke dalam Menambahkan referensi kotak dialog untuk menerima pilihan Anda. Jika Anda diminta untuk menghasilkan pembungkus untuk perpustakaan yang Anda pilih, klik Ya.
  5. Dalam jendela kode, mengganti semua kode dengan berikut:
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            ' Create an Outlook application.
            Dim oApp As Outlook.Application = New Outlook.Application()
    
            ' Get NameSpace and Logon.
            Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
            oNS.Logon("YourValidProfile", Missing.Value, False, True) ' TODO:
    
            ' Create a new AppointmentItem.
            Dim oAppt As Outlook.AppointmentItem = oApp.CreateItem(Outlook.OlItemType.olAppointmentItem)
            'oAppt.Display(true)  'Modal	
    
            ' Set some common properties.
            oAppt.Subject = "Created using OOM in C#"
            oAppt.Body = "Hello World"
            oAppt.Location = "Samm E"
    
            oAppt.Start = Convert.ToDateTime("11/30/2001 9:00:00 AM")
            oAppt.End = Convert.ToDateTime("11/30/2001 1:00:00 PM")
    
            oAppt.ReminderSet = True
            oAppt.ReminderMinutesBeforeStart = 5
            oAppt.BusyStatus = Outlook.OlBusyStatus.olBusy  '  olBusy
            oAppt.IsOnlineMeeting = False
    
            ' Save to Calendar.
            oAppt.Save()
    
            ' Display.
            'oAppt.Display(true)
    
            ' Logoff.
            oNS.Logoff()
    
            ' Clean up.
            oApp = Nothing
            oNS = Nothing
            oAppt = Nothing
        End Sub
    
    End Module
    					

  6. Memodifikasi kode di mana Anda melihat komentar TODO.
  7. Tekan F5 untuk membangun dan menjalankan program.
  8. Verifikasi bahwa penunjukan dibuat.

Properti

ID Artikel: 313788 - Kajian Terakhir: 24 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Office Outlook 2003
  • Microsoft Outlook 2002 Standard Edition
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Kata kunci: 
kbhowtomaster kbmt KB313788 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:313788

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