3. April 2012 11:55
IF ISCLEAR(OL_App) THEN
CREATE(OL_App);
OL_App.CreateObject('Outlook.Application');
//OL_Mailitem :=OL_App.CreateItemFromTemplate('\\NAVSQL\Admin\Outl_Templates\test.msg'); // Könnte auch noch übergeben werden.
OL_Mailitem :=OL_App.CreateItem(0);
OL_Mailitem."To":=P_to;
OL_Mailitem.CC :=P_CC;
OL_Mailitem.BCC :=P_BCC;
l_file.SETFILTER(Path,P_Folder);
l_file.SETRANGE("Is a file",TRUE);
IF l_file.FINDSET THEN BEGIN
REPEAT
OL_Mailitem.Attachments.Add(P_Folder+l_file.Name);
UNTIL l_file.NEXT = 0;
END;
OL_Mailitem.Subject:=P_Subj;
IF p_TBS <> '' THEN BEGIN
l_TBS.SETRANGE(l_TBS.Code,p_TBS);
IF l_TBS.FINDSET THEN BEGIN
REPEAT
OL_Mailitem.HTMLBody:=OL_Mailitem.HTMLBody+l_TBS.Text+'<br>';
UNTIL l_TBS.NEXT=0;
END;
END;
IF NOT giveusercontrol THEN
OL_Mailitem.Send
ELSE
OL_Mailitem.Display(TRUE);
CLEAR(OL_App);
CLEAR(OL_Mailitem);
3. April 2012 12:05
3. April 2012 12:13
3. April 2012 12:16
3. April 2012 12:17
3. April 2012 13:21
Danjo hat geschrieben:Vielleicht sollte man mal klären ob diese häfig wechselnden Werbe/Infotexte nicht besser vom Server angehängt werden, wen der Empfänger nicht zur eigenen Firma gehört.
21. Mai 2012 21:34