Зрелое программное обеспечение необходимо для поддержки по электронной почте.
Во -первых, добавление использует Shellapi в интерфейсную часть программы, потому что этот блок инкапсулирует функции API, которые мы хотим использовать. Тогда мы можем написать программу. Вот код программы:
Процедура Sendmail
вар
S String
Начинать
s ='mailto[email protected]'
Shellexecute0 'open' pchars nil nil sw_shownormal
конец
Таким образом, выполняя этот процесс, вы можете автоматически открыть программу по электронной почте и отправить электронное письмо по адресу [email protected].
В реальном использовании иногда вам нужно отправлять электронные письма в несколько почтовых ящиков одновременно, просто измените значение S.
s = 'mailto[email protected]? to = [email protected] & to = [email protected]'
Таким образом, вы можете отправлять электронные письма в несколько почтовых ящиков одновременно.
Если вы хотите определить заголовок и текст электронной почты, вы можете присвоить значение S:
s = 'mailto[email protected]? Субъект = Привет и тело = Привет'
Обратите внимание на:
1. Нет необходимости добавлять кавычки при назначении значений в заголовок и текст.
2. Хотя многие материалы говорят: если заголовок и текст содержат пробелы, его необходимо преобразовать в %20. Однако в процессе отладки программа может работать нормально, даже если она не конвертируется.
Эта программа запускается и передается в Windows 2000 Professional, Delphi 5 и MS Outlook Express. Для получения дополнительной информации, пожалуйста, см. Электронная почта по электронной почте. Используйте основы Электронные темы по электронной почте или