Outlook 2003
Résolu
cs_BARTBART
Messages postés
25
Date d'inscription
mardi 19 octobre 2004
Statut
Membre
Dernière intervention
2 mai 2006
-
9 déc. 2004 à 17:15
cs_maggyD Messages postés 2 Date d'inscription mardi 30 novembre 2004 Statut Membre Dernière intervention 14 octobre 2005 - 14 oct. 2005 à 17:35
cs_maggyD Messages postés 2 Date d'inscription mardi 30 novembre 2004 Statut Membre Dernière intervention 14 octobre 2005 - 14 oct. 2005 à 17:35
3 réponses
cs_maggyD
Messages postés
2
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
14 octobre 2005
14 oct. 2005 à 17:35
14 oct. 2005 à 17:35
Si ton anglais est vraiment vacillant, voiçi une mise en pratique de l'application
:)
<===========================
'Déclaration globale
' Declare Windows' API functions
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
Private Sub msg_Click()
Set OlApp = CreateObject("Outlook.Application")
Set myNameSpace = OlApp.GetNamespace("MAPI")
Set message = OlApp.CreateItem(olMailItem)
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long
' Register a message to send
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
' Find ClickYes Window by classname
wnd = FindWindow("EXCLICKYES_WND", 0&)
' Send the message to Resume ClickYes
Res = SendMessage(wnd, uClickYes, 1, 0)
message.Subject = "Test"
message.HTMLBody = "<html><head><title>Test</title></head> "
message.HTMLBody = message.HTMLBody & ""
message.HTMLBody = message.HTMLBody & "\"
message.HTMLBody = message.HTMLBody & \"----
"
message.HTMLBody = message.HTMLBody & "Bonjour à tous !
Ci-joint, vous trouverez la dernière édition du fichier trimestriel du suivi des expéditions.
"
message.HTMLBody = message.HTMLBody & "Attention !
Une différence peut exister entre ce fichier et l'édition journalière. Cette dernière version mettant à jours les 4 dernières semaines.
"
message.HTMLBody = message.HTMLBody & "Bon travail,
, \"
message.HTMLBody = message.HTMLBody & \"----
"
message.HTMLBody = message.HTMLBody & "Maggy
Méthodes
"
message.HTMLBody = message.HTMLBody & "</html>"
Set myRecipient = message.Recipients.Add("[mailto:somebody.somebody@adresse.com somebody.somebody@adresse.com]")
message.Importance = olImportanceHigh
message.Send
' Send the message to Suspend ClickYes
Res = SendMessage(wnd, uClickYes, 0, 0)
Set message = Nothing
Set OlApp = Nothing
End Sub
=========>
Maggy
:)
<===========================
'Déclaration globale
' Declare Windows' API functions
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
Private Sub msg_Click()
Set OlApp = CreateObject("Outlook.Application")
Set myNameSpace = OlApp.GetNamespace("MAPI")
Set message = OlApp.CreateItem(olMailItem)
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long
' Register a message to send
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
' Find ClickYes Window by classname
wnd = FindWindow("EXCLICKYES_WND", 0&)
' Send the message to Resume ClickYes
Res = SendMessage(wnd, uClickYes, 1, 0)
message.Subject = "Test"
message.HTMLBody = "<html><head><title>Test</title></head> "
message.HTMLBody = message.HTMLBody & ""
message.HTMLBody = message.HTMLBody & "\"
message.HTMLBody = message.HTMLBody & \"----
"
message.HTMLBody = message.HTMLBody & "Bonjour à tous !
Ci-joint, vous trouverez la dernière édition du fichier trimestriel du suivi des expéditions.
"
message.HTMLBody = message.HTMLBody & "Attention !
Une différence peut exister entre ce fichier et l'édition journalière. Cette dernière version mettant à jours les 4 dernières semaines.
"
message.HTMLBody = message.HTMLBody & "Bon travail,
, \"
message.HTMLBody = message.HTMLBody & \"----
"
message.HTMLBody = message.HTMLBody & "Maggy
Méthodes
"
message.HTMLBody = message.HTMLBody & "</html>"
Set myRecipient = message.Recipients.Add("[mailto:somebody.somebody@adresse.com somebody.somebody@adresse.com]")
message.Importance = olImportanceHigh
message.Send
' Send the message to Suspend ClickYes
Res = SendMessage(wnd, uClickYes, 0, 0)
Set message = Nothing
Set OlApp = Nothing
End Sub
=========>
Maggy
cs_maggyD
Messages postés
2
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
14 octobre 2005
14 oct. 2005 à 12:33
14 oct. 2005 à 12:33
Bonjour Bart,
Je ne suis pas certaine de ne pas arriver comme les carabiniers d'Hoffenbach mais si tu n'as pas trouvé de solution, tu peux visiter le site http://www.contextmagic.com/express-clickyes
qui gère ce problème du à une modification du modèle de sécurité d'Outlook.
Maggy
Je ne suis pas certaine de ne pas arriver comme les carabiniers d'Hoffenbach mais si tu n'as pas trouvé de solution, tu peux visiter le site http://www.contextmagic.com/express-clickyes
qui gère ce problème du à une modification du modèle de sécurité d'Outlook.
Maggy
cs_BARTBART
Messages postés
25
Date d'inscription
mardi 19 octobre 2004
Statut
Membre
Dernière intervention
2 mai 2006
14 oct. 2005 à 12:44
14 oct. 2005 à 12:44
Maggy tu es la lumière!
Je vais être sage et n'accepter la réponse que lors de la résolution du problème (comme le suggère Nix), mais mon anglais vacillant a cru y reconnaitre la voie à suivre.
Merci pour ta réponse, j'oeuvre et te tiens au courant.
Bart
Je vais être sage et n'accepter la réponse que lors de la résolution du problème (comme le suggère Nix), mais mon anglais vacillant a cru y reconnaitre la voie à suivre.
Merci pour ta réponse, j'oeuvre et te tiens au courant.
Bart
