в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:56:09Z

1 версия

Новая страница

==Outlook Email watcher==

<source lang="vbnet">Imports System

public class MainClass
Private Shared WithEvents objOMW As OutlookMessageWatcher
public Shared Sub Main
objOMW = New OutlookMessageWatcher()
End Sub
Private Shared Sub objOMW_EmailArrived(ByVal From As String, _
ByVal Subject As String, _
ByVal Message As Outlook.MailItem) _
Handles objOMW.EmailArrived
Console.WriteLine(Subject)
End Sub
End class
Public Class OutlookMessageWatcher
Private WithEvents objInboxItems As Outlook.Items
Private objOutlook As Outlook.Application
Public Event EmailArrived(ByVal From As String, _
ByVal Subject As String, _
ByVal Message As Outlook.MailItem)
Public Sub New()
objOutlook = New Outlook.Application()
objOutlook.Session.Logon(NewSession:=False)
objInboxItems = objOutlook.Session.GetDefaultFolder (Outlook.OlDefaultFolders.olFolderInbox).Items
End Sub
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)Handles objInboxItems.ItemAdd
Dim objNewMail As Outlook.MailItem
objNewMail = CType(Item, Outlook.MailItem)
RaiseEvent EmailArrived(objNewMail.SenderName, objNewMail.Subject, objNewMail)
End Sub
End Class</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Windows/Outlook - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия