Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

Как отправить E-mail.   Найти похожие ветки 

 
wandp ©   (2002-11-14 04:57) [0]

Помогите как можно отправить E-mail по определенному адресу, по нажатию допустим по Button"у, а текст чтобы брался с Memo?


 
Song ©   (2002-11-14 17:46) [1]

ShellExecute()
TNMSMTP
MAPI


 
Александр Павлов ©   (2002-11-15 06:31) [2]

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
ulReserved:= 0;
ulRecipClass:= MAPI_TO;
lpszName:= PChar(RecipName);
ulEIDSize:= 0;
lpEntryID:= nil;
end;
with MapiFileDesc do
begin
ulReserved:= 0;
flFlags:= 0;
nPosition:= 0;
lpszPathName:= PChar(Attachment);
lpszFileName:= 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;



Страницы: 1 вся ветка

Текущий архив: 2002.12.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
6-99213
dimonf
2002-10-31 18:57
2002.12.30
Какой компанент использовать для работы на ниском уровне с SMTP.


1-99083
Emigrant
2002-12-17 02:25
2002.12.30
D6: TListBox


3-98987
b-ars
2002-12-09 23:30
2002.12.30
Возможно ли внешнее использование SQL Builder?


1-99080
Донской
2002-12-19 15:58
2002.12.30
Исчезло меню интерфейса


1-99068
Kosmach
2002-12-15 20:49
2002.12.30
Обработка событий у динамически созданных объектов