Forum: Netzwerke
by little_budda,
13. Mai 2008
Hallo,
hier der noch der aufrufende Code
procedure Tfrm_sendError.btn_send_error_mailClick(Sender: TObject);
var
sMailResultCode: String;
sendFiles : TStrArray;
iFileCounter, ix : integer;
sMailHeadLine, sMailBody, sMailTo, sMailCc : string;
Forum: Netzwerke
by little_budda,
27. Jul 2007
Danke.
Das mit dem Array war ne klasse Idee. Klappt jetzt.
Hier der Code:
function SendFileMail(const FileName: TStrArray; const Subject, BodyText, RecipAdress, CopyConAdress: string): string;
var
mMessage : TMapiMessage;
mlpFiles : array of TMapiFileDesc;
mRecips : array of TMapiRecipDesc;
ix : integer;