Um software maduro é essencial para o suporte ao email.
Primeiro, o ADD usa Shellapi na parte da interface do programa, porque esta unidade encapsula as funções da API que queremos usar. Então podemos escrever o programa. Aqui está o código do programa:
Procedimento Sendmail
var
s string
Começar
s ='mailto[email protected]'
Shellexecute0 'Open' PChars nil nil sw_shownormal
end
Dessa forma, executando esse processo, você pode abrir automaticamente o programa de envio de e -mail e enviar um email para [email protected].
No uso real, às vezes você precisa enviar e -mails para várias caixas de correio ao mesmo tempo, basta alterar o valor de s.
s = 'Mailto[email protected]? para = [email protected] & para = [email protected]'
Dessa forma, você pode enviar e -mails para várias caixas de correio ao mesmo tempo.
Se você deseja determinar o título e o texto do email, pode atribuir um valor a S:
s = 'Mailto[email protected]? sujeito = olá e corpo = olá'
Preste atenção em:
1. Não há necessidade de adicionar aspas ao atribuir valores ao título e ao texto.
2. Embora muitos materiais digam: Se o título e o texto contiverem espaços, ele precisará ser convertido para %20. No entanto, durante o processo de depuração, o programa pode ser executado normalmente, mesmo que não seja convertido.
Este programa é executado e aprovado no Windows 2000 Professional, Delphi 5 e MS Outlook Express. Para obter mais informações, consulte o email email em e -mail, use os tópicos do servidor de e -mails do BASICS ou