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

Вниз

Нужна помощь по MAPI   Найти похожие ветки 

← →
stone   (2003-09-18 15:00) [0]

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

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) [1]

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

---

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

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

Наверх

Память: 0.44 MB
Время: 0.011 c