- 'Déclaration des functions API
- Private Declare Function RegisterWindowMessage _
- Lib "user32" Alias "RegisterWindowMessageA" _
- (ByVal lpString As String) As Long
-
- 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
-
- 'Fonction qui se déclenche lors d un clic sur un bouton de commande.
-
- Private Sub CommandButton1_Click()
- 'Déclaration des variables.
- Dim wnd As Long
- Dim uClickYes As Long
- Dim Res As Long
-
- 'Enregistrez un message pour envoyer
- uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
-
- 'Recherche et activation de la CLICKYES
- wnd = FindWindow("EXCLICKYES_WND", 0&)
-
- 'Mise en service de CLICKYES
- Res = SendMessage(wnd, uClickYes, 1, 0)
-
- 'Déclaration des objets de la messagerie
- Set mailobj = CreateObject("Outlook.Application")
- Set Mail = mailobj.CreateItem(olMailItem)
-
- 'On prépare l'envoi de Mail
- With Mail
- .SentOnBehalfOfName = SentOnName
- 'Mettre ici le ou les destinataires ("nom.prenom@FAI.com; nom1.prenom1@FAI.com)
- .To = "nom.prenom@FAI.com"
- 'Sujet du message
- .Subject = "Mail automatique"
- 'Corps de texte du message(contenu)
- .Body = "test"
- 'Penser à créer un fichier test.txt dans le DD sous C:\
- .Attachments.Add ("C:\test.txt")
- .display
- .Send
- End With
-
- ' Mise au repos de CLICKYES
- Res = SendMessage(wnd, uClickYes, 0, 0)
-
- End Sub
'Déclaration des functions API
Private Declare Function RegisterWindowMessage _
Lib "user32" Alias "RegisterWindowMessageA" _
(ByVal lpString As String) As Long
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
'Fonction qui se déclenche lors d un clic sur un bouton de commande.
Private Sub CommandButton1_Click()
'Déclaration des variables.
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long
'Enregistrez un message pour envoyer
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
'Recherche et activation de la CLICKYES
wnd = FindWindow("EXCLICKYES_WND", 0&)
'Mise en service de CLICKYES
Res = SendMessage(wnd, uClickYes, 1, 0)
'Déclaration des objets de la messagerie
Set mailobj = CreateObject("Outlook.Application")
Set Mail = mailobj.CreateItem(olMailItem)
'On prépare l'envoi de Mail
With Mail
.SentOnBehalfOfName = SentOnName
'Mettre ici le ou les destinataires ("nom.prenom@FAI.com; nom1.prenom1@FAI.com)
.To = "nom.prenom@FAI.com"
'Sujet du message
.Subject = "Mail automatique"
'Corps de texte du message(contenu)
.Body = "test"
'Penser à créer un fichier test.txt dans le DD sous C:\
.Attachments.Add ("C:\test.txt")
.display
.Send
End With
' Mise au repos de CLICKYES
Res = SendMessage(wnd, uClickYes, 0, 0)
End Sub