![]() ![]() Recipient.lpszName := PAnsiChar(AnsiString(MailToName)) Originator.lpszAddress := PAnsiChar(AnsiString(MailFromAddress)) įillChar(Recipient, Sizeof(TMapiRecipDesc), 0) Originator.lpszName := PAnsiChar(AnsiString(MailFromName)) MapiMessage.lpszNoteText := PAnsiChar(AnsiString(MessageText)) įillChar(Originator, Sizeof(TMapiRecipDesc), 0) MapiMessage.lpszSubject := PAnsiChar(AnsiString(Subject)) Originally by Brian Long: The Delphi Magazine issue 60 - Delphi And EmailįillChar(MapiMessage, Sizeof(TMapiMessage), 0) unit UArtMAPI Ĭonst Subject, MessageText, MailFromName, MailFromAddress,Ĭonst AttachmentFileNames: array of String) I use this unit - it credits Brian Long ages ago. ![]()
0 Comments
Leave a Reply. |