Gewusst wie: Erstellen einer E-Mail-Anwendung
Wissen, wie man eine e-Mail-Anwendung kann Zeit sparen zu erstellen, wenn Sie e-Mail für Benutzer steuern müssen. Der einfachste Weg zum Erstellen einer e-Mail-Anwendung wird mithilfe von Microsoft Office Outlook. Outlook ist ein e-Mail-Management-System, das Ihnen alle Werkzeuge benötigt, um die Verwaltung von e-Mails bietet. Visual Basic (VB) können Sie um eine e-Mail-Anwendung zu erstellen, mithilfe des Outlook-Application-Objekts. VB ist eine Computer-Programmiersprache zur Erstellung von Windows-Anwendungen wie e-Mail-Programme.
Anweisungen
1 Starten Sie Microsoft Visual Basic Express, und klicken Sie auf "Neues Projekt" im linken Bereich des Bildschirms. Wählen Sie "Windows Forms-Anwendung." Klicken Sie auf "OK".
2 Doppelklicken Sie im Bereich "Toolbox" ein neues Schaltflächensteuerelement hinzufügen "Button". Doppelklicken Sie auf "ListBox" ein neues Listenfeld hinzufügen steuern. Doppelklicken Sie auf "Button1", das "Form1.vb" Modul zu öffnen.
3 Kopieren Sie und fügen Sie den folgenden Code unter "Button1_Click" zum Lesen von e-Mail im Outlook-Ordner "Posteingang" und fügen Sie die Daten an das ListBox-Steuerelement:
OtlkApp als Outlook.Application Dim = New Outlook.Application
Dim otkMailItem = "IPM.Note"
Dim olkNspace As Outlook.NameSpace = otlkApp.GetNamespace("MAPI")
Dim otlkInbox As Outlook.MAPIFolder = olkNspace.GetDefaultFolder _
(Outlook.OlDefaultFolders.olFolderInbox)
Dim otlkMItems As Outlook.Items = otlkInbox.Items
Dim otlkMsg As Outlook.MailItem
Dim yCntr As Integer
For yCntr = 1 To otlkMItems.Count
If otlkMItems.Item(yCntr).MessageClass = otkMailItem Then
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("______________________________")
End If
Next
otlkApp = Nothing
olkNspace = Nothing
otlkMItems = Nothing
otlkMsg = Nothing4
Klicken Sie auf die Registerkarte "Form1.vb [Design]" und doppelklicken Sie auf "Button2", die "Button2_Click" Verhandlung zu eröffnen. Geben Sie Folgendes unter "Button2_Click" eine e-Mail senden:
OtlkApp als Outlook.Application Dim = New Outlook.Application
Dim myOtlkMail As Outlook.MailItem
myOtlkMail = otlkApp.CreateItem(Outlook.OlItemType.olMailItem)
myOtlkMail.UnRead = True
myOtlkMail.To = "[email protected]"
myOtlkMail.Subject = "subject goes here"
myOtlkMail.HTMLBody = True
myOtlkMail.Body = "Body text goes here"
myOtlkMail.Send()
Bearbeiten Sie die folgenden Codezeilen und geben Sie die e-Mail-Zieladresse:
myOtlkMail.To = [email protected]
5 Drücken Sie "F5", um Ihr Programm ausführen, und klicken Sie dann auf "Button1" in den Ordner "Posteingang" von Outlook gelesen. Klicken Sie auf "Button2" eine e-Mail senden.