Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Сентябрь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 07.09.02 09:04

Кое-что из нашей кладовки   |x|
  • расходы на интернет euhenio f-derek@yandex.ru   (06.09.02 16:33)
    программа создана как со своими элементами так и с элементами других программ но своего много больше
    »»» Скачать: исходные тексты (245кб)
  • Обновленный FAQ по DELPHI, собранный из разных источников blackman blackman@lycos.ru   (06.09.02 17:55)
    Обновленный FAQ по DELPHI, собранный нами из разных источников переехал по адресу
    http://blackman.hoha.ru/myfaq/default.php
    »»» Скачать: исходные тексты
Лучшее из нашего FAQ   |x|
Вообщем ситуация: нужно отправить созданное моей программой письмо по е-майлу независимо от юзера т.е. чтобы он не подозревал об отправке. Вот бы это на АПИ с примером! 
 
unit Email;
interface
uses Windows, SusUtils, Classes;

function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean;

function IsOnline: Boolean;

implementation
uses Mapi;

function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean;
var
  MapiMessage: TMapiMessage;
  MapiFileDesc: TMapiFileDesc;
  MapiRecipDesc: TMapiRecipDesc;
  i: integer;
  s: string;
begin
  with MapiRecipDesc do begin
      ulRecerved:= 0;
      ulRecipClass:= MAPI_TO;
      lpszName:= PChar(RecipName);
      lpszAddress:= PChar(RecipAddress);
      ulEIDSize:= 0;
      lpEntryID:= nil;
  end;

  with MapiFileDesc do begin
      ulReserved:= 0;
      flFlags:=
0;
      nPosition:= 0;
      lpszPathName:= PChar(Attachment);
      lpszFil!
eName:= nil;
      lpFileType:= nil;
  end;

  with MapiMessage do begin
      ulReserved := 0;
      lpszSubject := nil;
      lpszNoteText := PChar(Subject);
      lpszMessageType := nil;
      lpszDateReceived := nil;
      lpszConversationID := nil;
      flFlags := 0;
      lpOriginator := nil;
      nRecipCount := 1;
      lpRecips := @MapiRecipDesc;
      if length(Attachment) > 0 then begin
          nFileCount:= 1;
          lpFiles := @MapiFileDesc;
      end else begin
          nFileCount:= 0;
          lpFiles:= nil;
      end;
    end;

  Result:= MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG 
or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) = SUCCESS_SUCCESS;
end;


function IsOnline: Boolean;
var

 RASConn: TRASConn;
  dwSize,dwCount: DWORD;
begin
  RASConns.dwSize:!
= SizeOf(TRASConn);
  dwSize:= SizeOf(RASConns);
  Res:=RASEnumConnectionsA(@RASConns, @dwSize, @dwCount);
  Result:= (Res = 0) and (dwCount > 0);
end;

end.

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • Гетерогенные запросы
    Господа, доброго времени суток! Может сталкивался кто? D5+MSSQL 7.0. Работаю с БД черед БДЕ. Сторед процедура содержит ...
  • создать несколько вложенных каталогов одной функцией!
    как создать несколько вложенных каталогов одной функцией ? к примеру c:\one\two\three\four\на диске нет, нужно их ...
  • Запись в файл
    Требуется в произвольное место файла фставить некоторые данные, то есть: было так: ХХХХХХХ стало так: ХХХХПППХХХ ...
  • как сохранить изменения в Interbase
    Есть Data : TIbDataSet; В нем прописанны все 5 SQL выражений. Пытаюсь редактировать запись. Если делаю это через Grid ...
  • Доступ к файлу - read access only
    Люди, помогите. Нужно прочитать текстовый файл, в который другая программа (ДОСовская) одновренменно сбрасывает данные. ...
  • Voice modem
    Всем привет! Народ, подскажите, как по модему говорить как по обычному телефону? Подсоединил микрофон к входу на модеме ...
  • exception
    Друзья, подскажите: При попытке ввести в поле DBGrid, связанное с полем типа TData таблицы неполное значение даты ...
У нас большой выбор статей   |x|
Серия статей. Kylix Tutorial. 1. Установка.
Итак, свершилось, проходя мимо ларька с CD я увидел компакт с этикеткой синего цвета и магической надписью Kylix. Вернее диска было два и оба были немедленно куплены.
Ставить Kylix я пробовал под RedHat Linux 7.0. Для установки нам потребуется...
Новинки книжного рынка   |x|
Delphi 6 в подлиннике
Delphi 6 - новая версия популярной системы быстрой разработки приложений. В книге описываются инструментальные средства среды Delphi 6, приводятся основы языка программирования Object Pascal и рассматриваются компоненты, свойства, методы и события, необходимые для разработки широкого спектра программ. Особое внимание уделяется работе с базами данных. Показывается использование как локальных, так и удаленных баз данных, включая создание многоуровневых информационных систем и публикацию результатов запросов через Интернет. Благодаря большому количеству затронутых тем, подробному изложению и многочисленным примерам книга будет полезна как начинающим, так и опытным программистам.
Автор: Гофман В.
Другие сайты о DELPHI   |x|
Delphi X-Files
Сайт целиком посвящен программированию а Borland Delphi. Все аспекты программирования, статьи, исходные коды, FAQ, компоненты и многое другое. Весь материал будет полезен как новичкам, так и ...
» Оценка сайта: 3
Опрос населения :)
Что мешает плохому танцору?
»»» Эти штуки... ;)
»»» Танцовщица
»»» Крылья
»»» Оппозиция
»»» Что и хорошему
»»» Ничего мне не мешает!
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
Редки сугробы в предместьях Киото
Hо всё же не так, как саке из картошки
Мордой в сугробе лежу...

Афоризмы
Лучший путь к счастью - не искать его... (Монтефиоре)

Фраза дня
Есть идеальные тела и идеальные лица. Нет идеальных сердец.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Калифорнии (США) есть закон, гарантирующий жителям штата право загорать на солнце.
В Аризоне (США) считается преступлением отказать человеку в просьбе дать стакан воды. В этом же штате незамужним женщинам запрещается рыбачить в одиночку. Если женщина замужем, она может ходить на рыбалку одна только по воскресеньям.

И на закуску коротенький анекдот
Кукушка, кукушка? Сколько мне веков жить осталось?

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=7895

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное