Comment faire pour créer une application de messagerie

September 29

Comment faire pour créer une application de messagerie


Savoir créer une application de messagerie peut vous faire gagner du temps lorsque vous devez contrôler email pour les utilisateurs. La meilleure façon de créer une application de messagerie est à l'aide de Microsoft Office Outlook. Outlook est un système de gestion de courrier qui vous fournit tous les outils nécessaires pour gérer les courriels. Vous pouvez utiliser Visual Basic.NET (VB.NET) pour créer une application de messagerie en utilisant l'objet Outlook application. VB.NET est un langage de programmation informatique utilisé pour créer des applications Windows telles que les programmes de messagerie.

Instructions

1 Démarrez Microsoft Visual Basic Express, puis cliquez sur "Nouveau projet" dans le volet gauche de votre écran. Sélectionnez "Application Windows Forms." Cliquez sur "OK".

2 Double-cliquez sur "Button" sur le volet "Boîte à outils" pour ajouter un nouveau contrôle de bouton. Double-cliquez sur "ListBox" pour ajouter un nouveau contrôle List Box. Double-cliquez sur "Button1" pour ouvrir le module "Form1.vb".

3 Copiez et collez le code suivant sous "Button1_Click" pour lire des emails dans le dossier "Boîte de réception" d'Outlook et d'ajouter les données au contrôle ListBox:

Dim otlkApp Comme Outlook.Application = New Outlook.Application

Dim otkMailItem = "IPM.Note"

Dim olkNspace Comme Outlook.NameSpace = otlkApp.GetNamespace ( "MAPI")

Dim otlkInbox Comme Outlook.MAPIFolder = olkNspace.GetDefaultFolder _

(Outlook.OlDefaultFolders.olFolderInbox)

otlkMItems Dim As Outlook.Items = otlkInbox.Items

Dim otlkMsg Comme Outlook.MailItem

Dim yCntr As Integer

Pour yCntr = 1 Pour otlkMItems.Count

Si otlkMItems.Item (yCntr) .MessageClass = otkMailItem Ensuite,

otlkMsg = otlkMItems.Item (yCntr)

Me.ListView1.Items.Add (yCntr)

Me.ListView1.Items.Add (yCntr)

Me.ListView1.Items.Add (otlkMsg.SenderName)

Me.ListView1.Items.Add (otlkMsg.Subject)

Me.ListView1.Items.Add (otlkMsg.ReceivedTime)

Me.ListView1.Items.Add (otlkMsg.Body)

Me.ListView1.Items.Add ( "______________________________")

Fin si

Prochain

otlkApp = Nothing

olkNspace = Nothing

otlkMItems = Nothing

otlkMsg = Nothing

4 Cliquez sur l'onglet "Form1.vb [Design]" et double-cliquez sur "Button2" pour ouvrir la procédure "Button2_Click". Tapez la commande suivante sous "Button2_Click" pour envoyer un e-mail:

Dim otlkApp Comme Outlook.Application = New Outlook.Application

Dim myOtlkMail As Outlook.MailItem

myOtlkMail = otlkApp.CreateItem (Outlook.OlItemType.olMailItem)

myOtlkMail.UnRead = True

myOtlkMail.To = "[email protected]"

myOtlkMail.Subject = "sujet va ici"

myOtlkMail.HTMLBody = True

myOtlkMail.Body = "text du corps va ici"

myOtlkMail.Send ()

Modifier les lignes de code suivantes et tapez l'adresse de destination e-mail:

myOtlkMail.To = [email protected]

5 Appuyez sur "F5" pour exécuter votre programme, puis cliquez sur "Button1" pour lire le dossier "Boîte de réception" de Outlook. Cliquez sur "Button2" pour envoyer un e-mail.


          

Post a comment: