sécurité outlook code access [Résolu]

[maxeur]

Bonjour a tous

Voila mon soucis

J'envoi un mmail a partir de mon code et il y a une fenetre qui s'affiche ou il faut attendre 5 sec pour cliquer sur oui

Le probleme est que dans l'entreprise ou je travaille c'est un peu pénible à chaque fois de devoir cliquer et d'attendre

J'ai vu qu'il y avait l'utilitaire clickyes mais j'aimerais plus un code pour ne pas afficher cette fenetre

J'ai vu qu'en insérant un lien hypertexte cela fonctionnait et il possible d'en insérer un dans du code ou y a t'il un autre moyen de le contourner

Au pire est il possible d'envoyer un mail via vb sans outlook

Merci pour vos réponses

[Ric500]

Bonjour maxeur,

Ce truc est en effet ennuyeux mais incontournable (que je sache), il y va de la sécurité sous Outlook. Par contre tu peux envoyer des mails en passant par la couche CDO (référencer la bibliothèque CDO de Microsoft d'abord) de manière tout à fait transparente: l'inconvénient, c'est que tes mails envoyés n'apparaîtront pas dans l'historique d'Outlook.

Cette procédure est référencée dans la FAQ.

Bonne recherche

[argyronet]

Bonjour,

ClickYes est pratique mais t'oblige à l'installer sur chaque poste... Cela peut être un inconvénient si les postes sont nombreux...

De plus, tu ne pourras pas empêcher l'affichage de la fenêtre.

Enfin, voici un code pour le faire fonctionner :

Code :

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

Sinon, il y a une autre solution mais plus dangereuse... Donc on en parle pas.
Piste : Chanson de Bob Marley en solo.

Bon courage...

Argy

[maxeur]

J'ai trouvé un code qui peut passer cette sécurité mais le probleme et que je ne le comprends pas tout à fait
De plus ce n'est peut etre pas trés bon de le mettre sur le fofo vu que c'est dangereux

J'aimerais bien utiliser clickyes mais dans l'environnement où je suis cela ne convient pas. La personne qui m'a demandé de faire l'appli préfère débloqué cette fenetre

De toute façon le réseau est trés sécurisé et l'appli est faite pour tourner en interne

Et j'ai du mal à trouver la chanson de Bob qui pourrait m'aider

Merci encore pour ta réponse

[maxeur]

pour contourner le probleme j'ai trouvé la solution j'ouvre outlook et j'envoie le message par le poste utilisateur ce qui fait que ce n'est pas un envoit automatique mais un envoit par la personne qui tient le poste