Wissen, wie man eine E-Mail -Anwendung zu erstellen können Sie Zeit sparen , wenn Sie E-Mails für Benutzer steuern müssen . Der einfachste Weg, um eine E-Mail -Anwendung zu erstellen , ist die Verwendung von Microsoft Office Outlook . Outlook ist ein E-Mail -Management-System , das Ihnen alle notwendigen Tools, um E-Mail- Verwaltung . Sie können Visual Basic.NET (VB.NET ), um eine E-Mail- Anwendung mithilfe der Outlook -Application-Objekt zu erstellen. VB.NET ist eine Programmiersprache verwendet, um Windows-Anwendungen wie E-Mail -Programme zu erstellen . Things You
Microsoft Visual Basic Express
Microsoft Office
brauchen anzeigen Weitere Anweisungen
1
Starten Sie Microsoft Visual Basic Express, und klicken Sie auf "Neues Projekt " auf die linken Bereich des Bildschirms. Wählen Sie "Windows Forms-Anwendung. " Klicken Sie auf " OK".
2
Doppelklicken Sie auf "Button " auf der "Toolbox" Fenster, um ein neues Button-Steuerelement hinzuzufügen. Doppelklicken Sie auf " ListBox ", um eine neue List Box -Steuerelement hinzuzufügen . Doppelklicken Sie auf " Button1 ", um das Fenster " Form1.vb "-Modul.
3
Kopieren Sie den folgenden Code unter " Button1 " auf E-Mail in den Ordner "Posteingang" von Outlook gelesen und fügen Sie die Daten an das Steuerelement ListBox :
Dim otlkApp Wie Outlook.Application = New Outlook.Application
Dim otkMailItem = " IPM.Note "
Dim olkNspace Wie Outlook . NameSpace = otlkApp.GetNamespace ( " MAPI " ) Dim
otlkInbox Wie Outlook.MAPIFolder = _ olkNspace.GetDefaultFolder
( Outlook.OlDefaultFolders.olFolderInbox )
Dim otlkMItems Wie Outlook.Items = otlkInbox.Items
Dim otlkMsg Wie Outlook.MailItem
Dim yCntr As Integer
yCntr = 1 To otlkMItems.Count
otlkMItems.Item ( yCntr ) . MessageClass = otkMailItem Dann
otlkMsg = Wenn
Weiter
otlkApp = Nothing
olkNspace = Nothing
otlkMItems = Nothing
otlkMsg = Nothing
4
klicken Sie auf " Form1.vb [Entwurf] " und doppelklicken Sie auf " Button2 ", um die " Button2_Click " Verhandlung zu eröffnen. Geben Sie den folgenden Abschnitt " Button2_Click ", um eine E-Mail senden :
Dim otlkApp Wie Outlook.Application = New Outlook.Application
Dim myOtlkMail Wie Outlook.MailItem
myOtlkMail = otlkApp . CreateItem ( Outlook.OlItemType.olMailItem )
myOtlkMail.UnRead = True
myOtlkMail.To = " your.emailaddress @ xxxx.com "
myOtlkMail.Subject = " Betreff geht hier "
myOtlkMail.HTMLBody = True
myOtlkMail.Body = " Body text goes here "
myOtlkMail.Send ()
bearbeiten Sie die folgenden Codezeilen und geben Sie das Ziel -Mail-Adresse :
myOtlkMail.To = your.emailaddress @ xxxx.com
5
Presse "F5" um das Programm auszuführen , und klicken Sie dann auf " Button1 " lesen Sie die Ordner "Posteingang" von Outlook. Klicken Sie auf " Button2 ", um eine E-Mail senden.