Discussion :

[Gégé65]

Starec me déplacera peut-être le message mais je ne sais pas dans quel forum obtenir une réponse

Sous access, à partir d'un fichier des adresses Mail je souhaite envoyer un message personnalisé à chaque adresse Mail.
Le programme sous acces fonctionne mais pour chaque Mail envoyé un message apparait

MICROSOFT OUTLOOK
"Un programme tente d'envoyer automatiquement des courriers en votre nom
L'autorisez-vous à poursuivre ?"

Je dois valider pour chaque message

Comment faire pour désactiver ce message

Message dans le fichier joint

[mout1234]

Bonsoir,

As-tu remarqué ce code dans la faq
http://access.developpez.com/faq/?page=Outlook#outlook
... et surtout le lien en bas

[Gégé65]

Merci pour ta piste
Le lien en question me dirige vers un site ou je vois bien mon message
mais c'est en anglais et je n'arrive pas à voir la solution

[sl.info]

Il y a aussi la bibliothèque Outlook Redemption qui se substitue à l'objet Outlook pour l'envoi et évite l'apparition du message de sécurité

Voici une manière de l'utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Function SendMail(strTo As Variant, strSubject As String, strBody As String) As Boolean
 
    On Error GoTo Err_SendMail
 
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim SafeMail As Redemption.SafeMailItem
 
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(olMailItem)
    Set SafeMail = CreateObject("Redemption.SafeMailItem")
    SafeMail.Item = olMail
 
    With SafeMail
        .To = strTo
        .Subject = strSubject
        .Body = strBody
        .Send
    End With
 
    SendMail = True
 
    Set SafeMail = Nothing
    Set olMail = Nothing
    Set olApp = Nothing
    Exit Function
 
Err_SendMail:
    SendMail = False
End Function

[mout1234]

Bonjour,


Il s'agit d'un petit outil qui permet de simuler le clic à la place de l'utilisateur.


Il n'y a pas, à ma connaissance, de solutions propres, pour désactiver le message d'Outlook.

La seule solution que je connaisse est ... de ne pas utiliser Outlook pour effectuer l'envoi d'un message. Il y a une solution qui s'appuie sur CDO

voir http://vb.developpez.com/faq/?page=Reseau#mailsmtp

[mathieu44800]

Bonjour,

J'ai eu le même problème dans un ancien contrat et j'avais utilisé le programme "Click Yes"...

Google is your FRiend

http://www.contextmagic.com/express-clickyes/

Mais c'est vraiment du dev de GORET

LOL

A+

[Gégé65]

Merci SL.info , mais la bibliothèque Outlook Redemption n'a pas fonctionné
en fait j'ai utilisé le logiciel express-clickyes car la version OUTLOOK (2003) est compatible
Merci à tous