Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];
ВнизКак открыть окно Outlook? Найти похожие ветки
← →
46_55_41_44 © (2004-11-10 09:48) [0]Как открыть окно Outlook? при этом автоматически вписать адрес получателя, attachment и все такое...
Помогите кто может!
← →
Poirot © (2004-11-10 10:22) [1]:))) Servers->Outlook
Закладка такая есть:)))) И потом работай скока душе угодно:))
← →
begin...end © (2004-11-10 10:28) [2]46_55_41_44 © (10.11.04 9:48)
Насчёт attachment"а не знаю, а с адресом и темой - вот так:
ShellExecute(Handle, "open", "mailto:mail@mail.ru?subject=SubjectText"; NIL, NIL, SW_SHOWNORMAL)---------------------
Sorry, I"m drunk now.
← →
BaDeVlad (2004-11-11 09:21) [3]
...
uses ShellApi
...
function SendLetter(Addr, Subj, Body: string): Boolean;
var
MapiMessage: TMapiMessage;
MError: Cardinal;
begin
with MapiMessage do
begin
ulReserved := 0;
lpszSubject := PChar(Subj);
lpszNoteText := PChar(Body);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 0;
lpRecips := nil;
nFileCount := 0;
lpFiles := nil;
end;
MError:= MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG, 0);
Result:= MError = 0;
end;
Это из стандартного примера. Смотри в хелпе MapiSendMail, так же можно добавлять несколько получателей, аттачменты и проч. Но глючит страшно...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.044 c