| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нужна помощь по MAPI [D7]

stone ©   (2003-09-18 15:00:00) 

Есть такая структура :

with MapiMessage do
begin
ulReserved := 0;
lpszSubject := nil;
lpszNoteText := PChar(List.Text);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 0;
lpRecips := nil;
nFileCount := 0;
lpFiles := nil;
end;

Вопрос как правильно заполнить lpRecips , учитывая, что

PMapiRecipDesc = ^TMapiRecipDesc;
{$EXTERNALSYM MapiRecipDesc}
MapiRecipDesc = packed record
ulReserved: Cardinal; { Reserved for future use }
ulRecipClass: Cardinal; { Recipient class }
{ MAPI_TO, MAPI_CC, MAPI_BCC, MAPI_ORIG }
lpszName: LPSTR; { Recipient name }
lpszAddress: LPSTR; { Recipient address (optional) }
ulEIDSize: Cardinal; { Count in bytes of size of pEntryID }
lpEntryID: Pointer; { System-specific recipient reference }
end;
TMapiRecipDesc = MapiRecipDesc;

---

Song   (2003-09-21 10:20:00) [1]

With MapiRecipDesc Do
Begin
ulReserved:=0;
ulRecipClass:=MAPI_TO;
lpszName:=PChar(RecipName);
lpszAddress:=PChar("SMTP:"+RecipAddress);
ulEIDSize:=0;
lpEntryID:=nil;
End;

---

Наверх