Microsoft Visual Basic Express Hotel Microsoft Office
Ver Más instrucciones
1
Inicie Microsoft Visual Basic Express y haga clic en "Nuevo proyecto" en la panel izquierdo de la pantalla. Seleccione " Aplicación de Windows Forms ". Haga clic en " Aceptar".
2
doble clic en " botón" en el panel " Toolbox" para añadir un nuevo control de botón . Haga doble clic en " ListBox " para añadir un nuevo control de cuadro de lista . Haga doble clic en " Button1 " para abrir el módulo " Form1.vb " .
3
Copia y pega el siguiente código en " Button1_Click " para leer el correo electrónico en la carpeta " Bandeja de entrada" de la perspectiva y agregar los datos al control ListBox :
otlkApp As Outlook.Application = New Outlook.Application
Dim otkMailItem = " IPM.Note "
olkNspace As de Outlook . namespace = otlkApp.GetNamespace ( " MAPI " )
otlkInbox Dim As Outlook.MAPIFolder = olkNspace.GetDefaultFolder _
( Outlook.OlDefaultFolders.olFolderInbox )
otlkMItems dévil como Outlook.Items = otlkInbox.Items
otlkMsg As Outlook.MailItem
yCntr Dim As Integer
Para yCntr = 1 Para otlkMItems.Count
Si otlkMItems.Item ( yCntr ) . MessageClass = otkMailItem Entonces
otlkMsg = Si
Siguiente
otlkApp = Nothing
olkNspace = Nothing
otlkMItems = Nothing
otlkMsg = Nothing
4
Haga clic en el " Form1.vb [ Diseño ]" ficha y haga doble clic en " Button2 " para abrir el procedimiento " Button2_Click " . Escriba lo siguiente en " Button2_Click " para enviar un correo electrónico :
otlkApp As Outlook.Application = New Outlook.Application
myOtlkMail As Outlook.MailItem
myOtlkMail = otlkApp . CreateItem ( Outlook.OlItemType.olMailItem )
myOtlkMail.UnRead = True
myOtlkMail.To = " your.emailaddress @ xxxx.com "
myOtlkMail.Subject = " tema va aquí "
myOtlkMail.HTMLBody = True
myOtlkMail.Body =" text Body va aquí "
myOtlkMail.Send ()
Editar la siguientes líneas de código y escriba la dirección de correo electrónico de destino :
myOtlkMail.To = your.emailaddress @ xxxx.com
5
Press "F5 " para ejecutar el programa y haga clic en " Button1 " para leer la carpeta " Bandeja de entrada" de Outlook. Haga clic en " Button2 " para enviar un correo electrónico.