|
[x]
Posted via EE Mobile
|
|
| Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
|
|
|
|
Asked by kumarean85 in Security Issues in Programming, Delphi IDE, Delphi Components
hai all,
Here my problem is avoiding the outlook warning.
In my project am using simple mapi to retrive the outlook mail information and send mail also.
but whenever am start my application "outlook security warning message will appear"
My client ask me to avoid the problem. i tried lot to solve this problem? but i cann't solve it.
hint: i am using simple mapi concept to develop the outlook plugin application.
needful way: There is only one way to using registry program to avoid the outlook warning.
i need source code for solve this problem. my client donot want the third party tool at all.
so pls any knows a registry program to avoid the outlook warnings
pls help me.,..
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
|
procedure TOutlookGridThread.gridFilling();
var
intCnt,intFolderType : integer;
row: integer;
oItem : oleVariant;
blockSize: integer;
begin
try
begin
oFolder := oNameSpace.getDefaultFolder(6);
intMailCount := oFolder.Items.Count;
// clear grid
with ggrid do
begin
beginUpdate();
fixedRows := 0;
removeRows(1, rowCount - 1);
end;
if oFolder.Items.Count = 0 then
begin
blnGridFill := True;
loadGrid();
end
else
begin
ggrid.rowCount := intMailCount;
blockSize := sysMan.getBlockSize(intMailCount, 100);
if (blockSize < 25) then
begin
blockSize := 25;
end;
row := 0;
ggrid.addrow() ;
for intCnt := 1 to intMailCount do
begin
oItem := oFolder.Items[intCnt];
if VarIsNull(oItem) or VarIsEmpty(oItem) then
begin
continue;
End;
with ggrid do
begin
row := row + 1;
columnByName[columnValue[1]].rows[row ] := VarToStr(oItem.SenderName);
columnByName[columnValue[2]].rows[row ] := VarToStr(oItem.SenderEmailAddress );
columnByName[columnValue[3]].rows[row ] := VarToStr(oItem.ReceivedTime);
columnByName[columnValue[4]].rows[row ] := VarToStr(oItem.Subject);
columnByName[columnValue[5]].rows[row ] := VarToStr(oItem.importance);
columnByName[columnValue[6]].rows[row ] := VarToStr(oItem.Categories);
columnByName[columnValue[7]].rows[row ] := VarToStr(oItem.FlagDueBy);
columnByName[columnValue[8]].rows[row ] := VarToStr(oItem.flagstatus);
columnByName[columnValue[9]].rows[row ] := VarToStr(oItem.FlagIcon);
columnByName[columnValue[10]].rows[row] := intToStr(oItem.attachments.count);
columnByName[columnValue[11]].rows[row ] := inttostr(round(strtoint(VarToStr(oItem.Size))/1024))+ ' KB';
if (VarToStr(oItem.messageclass) <> 'IPM.Schedule.Meeting.Request') then
begin
columnByName[columnValue[12]].rows[row] := VarToStr(oItem.cc);
columnByName[columnValue[13]].rows[row] := VarToStr(oItem.bcc);
end;
End;
if ((intCnt mod blockSize) = 0) then
begin
ggrid.endUpdate();
sysMan.pm();
ggrid.beginUpdate();
end;
if (cancel) then
begin
break;
end;
end;
blnGridFill := True;
end;
with ggrid do
begin
if (rowCount > 1) then
begin
fixedRows := 1;
end;
if(rowCount < 10000) then
begin
autoSizeColumns(false, 1);
end;
endUpdate();
end;
end;
Except
End;
end;
|
20091111-EE-VQP-92 - Hierarchy / EE_QW_3_20080625
