vurter.blogg.se

Send later thunderbird
Send later thunderbird












send later thunderbird

Recipient.lpszAddress := PAnsiChar(AnsiString(MailToAddress)) 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.














Send later thunderbird