Om de beveiligingswaarschuwingen te omzeilen heb ik gebruik gemaakt van de ClickYes tool:
http://www.express-soft.com/mailmate/clickyes.html
Op de site vind je ook voorbeelden hoe je dit moet implementeren in je code, zoals bijv. in Delphi:
Delphi:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| procedure SomeProc;
var
wnd: HWND;
uClickYes: UINT;
begin
// Register a message to send
uClickYes:=RegisterWindowMessage('CLICKYES_SUSPEND_RESUME');
// Find ClickYes Window by classname
wnd:=FindWindow('EXCLICKYES_WND',nil);
// Send the message to Resume ClickYes
SendMessage(wnd, uClickYes, 1, 0);
// ...
// Do some Actions
// ...
// Send the message to Suspend ClickYes
SendMessage(wnd, uClickYes, 0, 0);
end; |
En omdat ik het irritant vond dat het icoontje van clickyes maar in de taakbalk bleef staan, terwijl mijn eigen VB-app niet actief was, post ik maar meteen de VB code waarin te zien is hoe ik het ClickYes tooltje automatisch start en sluit bij het sturen van een e-mail...
Moet je zelf maar converteren naar Delphi, maar zal geen probleem zijn...
Visual Basic:
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
| Private Sub Command1_Click()
Dim blnDoOutlook As Boolean
blnDoOutlook = False
On Error Resume Next
Set objOutlook = GetObject(, "Outlook.Application")
If Err.Number = 429 Then 'If objOutlook Is Nothing Then
Set objOutlook = CreateObject("Outlook.Application")
blnDoOutlook = True
End If
On Error GoTo 0
If blnDoOutlook = True Then
objOutlook.Explorers.Add(objOutlook.Explorers.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderOutbox), olFolderDisplayNormal).Display
objOutlook.ActiveExplorer.WindowState = olMinimized
End If
Dim Retval As Long
Retval = ShellExecute(Me.hwnd, "open", App.Path & "\ClickYes.exe", vbNullString, App.Path, vbMinimizedNoFocus)
If Retval <= 32 Then
MsgBox "ClickYes.exe was not started succesfully!", vbCritical
End If
Set objMail = objOutlook.CreateItem(olMailItem)
objMail.Recipients.Add(txtEmail).Type = olTo
objMail.Subject = "Test E-mail"
objMail.Send
Set objMail = Nothing
If blnDoOutlook = True Then
objOutlook.ActiveExplorer.Close
objOutlook.Quit
blnDoOutlook = False
End If
Set objOutlook = Nothing
Dim lpClassName As String
Dim lpCaption As String
Dim Handle As Long
Const WM_DESTROY = &H2 ' CLICKYES proces sluit alleen via WM_DESTROY
'Const WM_CLOSE = &H10 ' Emuleert ALT+F4
lpClassName = "EXCLICKYES_WND"
lpCaption = vbNullString
'Determine the handle to the window.
Handle = FindWindow(lpClassName$, lpCaption$)
If Handle <> 0 Then
'Post a message to window to end its existence.
PostMessage Handle, WM_DESTROY, 0&, 0&
Else
MsgBox "No handle found for window: EXCLICKYES_WND", vbCritical
End If
Command1.Caption = "Verstuurd!"
Screen.MousePointer = vbDefault
End Sub |
HTH
[
Voor 60% gewijzigd door
DPLuS op 06-05-2004 16:07
]
:strip_exif()/u/31397/dilbert2.gif?f=community)
:strip_icc():strip_exif()/u/4167/bacall8.jpg?f=community)
