Saber como criar um aplicativo de e-mail você pode economizar tempo quando você precisa controlar e-mail para os usuários. A maneira mais fácil para criar um aplicativo de e-mail está usando o Microsoft Office Outlook. Outlook é um sistema de gestão de correio electrónico que lhe oferece todas as ferramentas necessárias para gerenciar e-mail. Você pode usar Visual Basic.NET ( VB.NET ) para criar um aplicativo de e-mail , utilizando o objeto de aplicativo Outlook. VB.NET é uma linguagem de programação de computador usado para criar aplicativos do Windows, como os programas de e-mail . Coisas que você precisa
Microsoft Visual Basic Express & Microsoft Office
Mostrar Mais instruções
1

Inicie o Microsoft Visual Basic Express, e clique em " New Project" no painel da tela à esquerda. Selecione " Windows Forms Application ". Clique em " OK".
2

Clique duas vezes em "Button" no painel " Toolbox" para adicionar um novo controle de botão. Clique duas vezes em " ListBox " para adicionar um novo controle de caixa de listagem . Clique duas vezes em "Button1 " para abrir o módulo " Form1.vb " .
3

Copie e cole o seguinte código em " Button1_Click " para ler e-mail na pasta "Caixa de entrada " do Outlook e adicionar os dados para o controle de caixa de listagem :

Dim otlkApp Como Outlook.Application = New Outlook.Application

Dim otkMailItem = " IPM.Note "

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

Dim otlkInbox Como Outlook.MAPIFolder = olkNspace.GetDefaultFolder _

( Outlook.OlDefaultFolders.olFolderInbox )

otlkMItems Dim Outlook.Items = otlkInbox.Items

Dim otlkMsg Como Outlook.MailItem

Dim yCntr As Integer

Para yCntr = 1 To otlkMItems.Count

Se otlkMItems.Item ( yCntr ) . MessageClass = otkMailItem Então

otlkMsg = Se

Próxima

otlkApp = Nothing

olkNspace = Nothing

otlkMItems = Nothing

otlkMsg = Nothing
4

Clique na aba " Form1.vb [Design ]" e clique duas vezes em " Button2 " para abrir o procedimento " Button2_Click " . Digite o seguinte em " Button2_Click " para enviar um e-mail :

Dim otlkApp Como Outlook.Application = New Outlook.Application

Dim myOtlkMail Como Outlook.MailItem

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

myOtlkMail.UnRead = True

myOtlkMail.To = " your.emailaddress @ xxxx.com "

myOtlkMail.Subject = " assunto vai aqui "

myOtlkMail.HTMLBody = True

myOtlkMail.Body =" text corpo vai aqui "

myOtlkMail.Send ()

Edite o seguintes linhas de código e digite o endereço de e-mail de destino :

myOtlkMail.To = your.emailaddress @ xxxx.com
5

Pressione " F5" para executar o programa e clique em "Button1 " para ler a pasta "Caixa de entrada " do Outlook. Clique em " Button2 " para enviar um e-mail .