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
|
Option Compare Database
Option Explicit
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) _
As Long
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Declare Function RegisterWindowMessage Lib "user32" _
Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Private Sub SendMailAutomatically()
Dim lngHWnd As Long
Dim lngClickYes As Long
Dim lngRet As Long
Dim dblShell As Double
Dim oEmail As Outlook.MailItem
Dim oOLK As Outlook.Application
Const CLICKYES_PATH As String = _
"C:\Program Files\Express ClickYes\ClickYes.exe"
Const OLIMPORTANCEHIGH As Integer = 2
Const OLMAILITEM As Integer = 0
Const OLFORMATHTML As Integer = 2
Const OLFORMATPLAIN As Integer = 1
lngClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
lngHWnd = FindWindow("EXCLICKYES_WND", 0&)
If lngHWnd Then
Else
dblShell = Shell(CLICKYES_PATH, vbNormalFocus)
lngHWnd = FindWindow("EXCLICKYES_WND", 0&)
End If
lngRet = SendMessage(lngHWnd, lngClickYes, 1, 0)
Set oOLK = CreateObject("Outlook.Application")
Set oEmail = oOLK.CreateItem(OLMAILITEM)
On Error GoTo Err_Handler
With oEmail
.To = "argyronet@anydomain.com"
.Subject = "ClickYes !!!"
.Body = "Ceci est un message envoyé automatiquement avec ClickYes !!!"
.Send
End With
'ClickYes need to have a rest, now... ;o)
SendMessage lngHWnd, lngClickYes, 0, 0
Set oOLK = Nothing
Set oEmail = Nothing
Exit Sub
Err_Handler:
MsgBox Err.Description, vbExclamation, "#" & Err.Number
Err.Clear
End Sub |
Partager