Prefácio
Com o desenvolvimento das redes de computadores, o tempo de transmissão de informações entre as pessoas foi bastante reduzido. Muitos arquivos são transmitidos na forma de e-mail; geralmente as pessoas que usaram computadores usarão o e-mail para transmitir mais ou menos informações. Este artigo apresentará como usar o Microsoft MAPI (Messaging application PRogram Interface) para criar um programa de email. Primeiro, use o MAPIsessioncontrol e o MAPIMessagecontrol fornecidos pelo Visual Basic para projetar o programa de envio e recebimento de email e, em seguida, use o programa de email fornecido pelo Microsoft Internet Explorer 3.0 para testar a exatidão do design do programa.
Introdução ao MAPI
A interface MAPI é uma série de interfaces de programação fornecidas pela Microsoft para que os usuários desenvolvam programas de correio, agendamento, quadro de avisos e comunicação. Ao usar MAPI para projetar um programa, você deve primeiro estabelecer uma ou várias sessões entre o programa e o MAPI. Após a sessão ser estabelecida, o programa cliente pode usar as funções fornecidas pelo MAPI;
As funções do MAPI são divididas principalmente em três partes: AddressBooks, Transport e MessageStore. AddressBooks é responsável principalmente por definir parâmetros como tipo de e-mail e protocolo; Transport é responsável por funções como envio e recebimento de arquivos;
Dito tudo isso, a interface MAPI parece assustadora. Mas isso não importa. O MAPISessioncontrol e o MAPIMessagecontrol fornecidos pelo Visual Basic empacotaram muitas partes complexas em propriedades e funções simples. Precisamos apenas fazer algumas configurações simples para as propriedades e funções para escrever um programa para enviar e receber mensagens.
Abaixo, o autor usará o controle MAPI do Visual Basic para projetar o programa para transmissão e recepção de correio.
Parte de envio de e-mail
Passo 1: Definir parâmetros do Exchange
Entre no sistema Exchange e selecione Novo arquivo de configurações; os serviços de informações necessários serão exibidos na tela, selecione InternetMail. Defina o nome do arquivo de configurações para testar. A tela exibirá duas opções, você pode optar por conectar via modem ou rede. O autor está usando uma linha dedicada à Internet, então eu escolho rede; se você estiver usando PPP dial-up para se conectar à Internet, você deve escolher modem; Após selecionar a rede, o Exchange nos pedirá para inserir o endereço IP do servidor de e-mail. O endereço do Mailserver que estou usando atualmente é 202.96.128.111 e está definido para este endereço neste programa. Em seguida, defina o modo Transformmessage como automático, para que quando nos conectarmos ao Mailserver, novas informações sejam baixadas automaticamente para o local
fim.
Em seguida, defina o endereço de e-mail, nome completo, senha e caminho de download que você está usando passo a passo. Isso conclui o Exchange.
Configurações de parâmetros.
Passo 2: Programação
Selecione NewProject na opção Arquivo para criar um novo projeto. Neste momento, você verá diversas opções na tela, como ActiveXDocument.EXE, ActiveXDocument.DLL, ActiveX.EXE, ActiveXControl, etc... Neste momento, você. deve selecionar Standard.EXE.
Em Projeto, selecione a opção Atributo de propriedade na opção geral, altere ProjectName para enviar por email e altere o nome do formulário e a legenda para enviar por email.
Adicione um controle de mensagem MAPI ao formulário na tela e nomeie-o como MAPIm1; adicione um controle de sessão MAPI e nomeie-o como MAPIs1; adicione três controles de caixa de texto e nomeie-os como assunto, conteúdo e endereço. E adicione um rótulo na frente de cada uma das três caixas de texto e altere as legendas para assunto, conteúdo e endereço respectivamente.
Para facilitar aos leitores a compreensão da relação entre si, a tabela a seguir explica:
(Caixa de Texto)Nome
assunto (insira o título da carta)
conteúdo (insira o conteúdo da carta)
addr (insira o endereço para o qual a carta será enviada)
-------------------------------------------------- ----------------------------------
(Rótulo)Legenda
assunto (Insira o prompt do título da letra)
conteúdo (solicitação para inserir o conteúdo da carta)
addr (insira o prompt de endereço para a carta ser enviada)
Defina as diversas propriedades de MAPIm1 da seguinte maneira:
e-mail de download=TRUE
logoUI=TRUE
nova sessão=FALSO
nome de usuário = "teste"
Aqui downloadmail está definido como TRUE Quando o programa e o servidor de e-mail se conectam pela primeira vez, o novo e-mail será baixado para o final local. Defina logoUI como TRUE e, quando você inserir um nome de logotipo incorreto em seu programa, o sistema exibirá uma MessageBox para permitir que você insira o nome correto. Como este programa utiliza apenas uma sessão, definimos seu valor como FALSE. Claro! Você também pode defini-lo como TRUE se tiver muitas sessões para estabelecer. O que é preenchido em nome de usuário é o nome do arquivo de configurações que adicionamos no Exchange; caso não haja conteúdo, o sistema exibirá algumas caixas de mensagem solicitando que você insira o arquivo; Adicione três controles de botão ao formulário na tela, faça logon, logoff e envie, e altere a legenda para logon, logoff e envio, respectivamente.
(Botão)
Legenda do nome
logon (executar comando de login)logon
logoff (executar comando de logout) logoff
enviar (executar comando de e-mail de saída) enviar
Adicione o seguinte código de programa a logon_Click(). Esta ação nos permite fazer login no servidor de e-mail.
MAPIS1.SignOn
MAPIM1.SessionID=MS1.SessionID
MsgBox"youridis" Str(MS1.SessionID)
MS1.SignOn é uma ação de login. Ao efetuar login, como o atributo downloadmail do MAPIm1control foi definido como TRUE, você poderá ver a caixa de mensagem na tela mostrando que o sistema está baixando mensagens. Após o login bem-sucedido, o sistema retornará um ID de sessão e preencherá o ID no ID de sessão do MAPIM1, para que esta sessão possa ser usada para enviar e-mail.
Adicione o seguinte código de programa a logoff_Click(). Esta ação nos faz sair do servidor de e-mail.
MAPIS1.SignOff
Adicione o seguinte código de programa a send_Click(). Esta ação nos permite enviar um email.
MAPIM1.Compor
MAPIM1.RecipDisplayName=addr.text
MAPIM1.AddressResolveUI = Verdadeiro
MAPIM1.MsgSubject=assunto.texto
MAPIM1.MsgNoteText=content.text
MAPIM1.Enviar
O objetivo principal do comando Compose MsgBox "yousuccessful" é permitir que você altere o conteúdo de RecipDisplayName, preencha o endereço de e-mail, assunto e conteúdo do artigo que deseja enviar para RecipDisplayName, MsgSubject e MsgNoteText respectivamente e, em seguida, use o envie o comando para enviá-lo.
Passo 3: Teste o programa com o programa IE3.0Mail
Execute o programa de envio de e-mail desenvolvido acima. Preencha "Teste de envio" na caixa de texto do assunto, preencha [email protected] na caixa de texto do endereço, insira o conteúdo a ser enviado na caixa de texto do conteúdo: "Olá a todos! Este é um teste de envio" e pressione Enviar . A carta foi enviada!
Execute o IE3.0 para optar por receber e-mails e selecione readmail na opção de e-mail. Veremos uma carta intitulada “Enviando Teste” na caixa de entrada, e depois daremos uma olhada no seu conteúdo, sim! Essa é a carta de teste que acabamos de enviar.
Parte de recebimento de e-mail
Passo 1: Programação
Selecione NewProject na opção Arquivo para criar um novo projeto. Você verá muitas opções na tela, como ActiveXDocument.EXE, ActiveXDocument.DLL, ActiveX.EXE, ActiveXControl, etc. Neste momento, você deve selecionar Standard.EXE.
Em seguida, em Projeto, selecione a opção Atributo de propriedade na opção geral, altere ProjectName para email-get e altere o nome do FORM e a legenda para email-get.
Adicione um controle de mensagem MAPI ao formulário na tela e nomeie-o como MAPIm
1; Adicione um controle de sessão MAPI, denominado MAPIs1; adicione três controles Textbox, denominados subject, content, indexno respectivamente, altere sua legenda para mail-subject, mail-content, indexno e adicione um Labelcontrol na frente do TextBox. , conteúdo e indexno respectivamente.
Defina as diversas propriedades de MAPIm1 da seguinte maneira:
e-mail de download=TRUE
logoUI=TRUE
nova sessão=FALSO
nome de usuário = "teste"
O princípio dessas configurações é o mesmo do projeto da parte do programa de envio de e-mail. Em seguida, adicione um Buttoncontrolget-mail ao formulário na tela e altere a legenda para getmail. Assim como na parte do programa de envio de e-mail, uma sessão é estabelecida com o servidor de e-mail.
Adicione o seguinte código de programa a get-mail_Click().
Recebemos e-mails.
MAPIM1.Fetch
Form1.Caption=MAPIM1.MsgCount
MAPIM1.MsgIndex=CINT(indexno.text)
subject.Text=MM1.MsgNoteText
content.Text=MAPI1.MsgSubject
O comando Fetch captura letras no buffer da memória do sistema. Após capturarmos as letras, podemos saber a quantidade de letras através da propriedade MsgCount. Então você pode usar MsgIndex para definir o conteúdo e o título da letra que deseja ver.
Passo 2: Teste o programa de recebimento de e-mail
Primeiro, use qualquer programa de correio para escrever qualquer número de cartas no servidor de correio. Na Legenda do Form1, veremos a quantidade de cartas recebidas. Execute o programa email-get desenvolvido acima e preencha 1 na indexnotextbox. Em seguida pressione o getmailButton, para que o conteúdo e o título da carta sejam exibidos nos dois TextBoxes de conteúdo e assunto. Parabéns pelo seu sucesso! ->