Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Outlook Message d'avertissmement "un programme essaie d'accéder aux adresses de messagerie..."

Message d'avertissmement "un programme essaie d'accéder aux adresses de messagerie..."

3 réponses
Avatar
Fred
Bonjour,

Lorsque j'exécute la macro suivante (généreusement fournie par Oliv' ;-):

Sub toto()
Dim objApp As Outlook.Application
Dim l_Msg As MailItem
Set objApp = CreateObject("Outlook.Application")
'Set l_Msg = objApp.CreateItem(olMailItem) 'si c'est un nouveau mail
Set l_Msg = ActiveInspector.CurrentItem
Dim MyDate
MyDate = Date

l_Msg.Subject = MyDate 'dans le sujet

'ajoute la date au debut du contenu déjà existant
If l_Msg.BodyFormat = olFormatHTML Then
l_Msg.HTMLBody = "<html><p>" & "Bordeaux, le " & MyDate & " </p>" &
l_Msg.HTMLBody
Else
l_Msg.Body = "Bordeaux, le " & MyDate & l_Msg.Body
End If

Set objApp = Nothing
Set l_Msg = Nothing
End Sub

J'obtiens le message suivant:
"un programme essaie d'accéder aux adresses de messagerie enregistrées dans
Outlook, l'autorisez-vous à poursuivre ?"
Savez-vous si il existe un moyen d'éviter ce message?

Merci.

FRED.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Oliv'
Bonjour,

Lorsque j'exécute la macro suivante (généreusement fournie par Oliv'
;-):
Sub toto()
Dim objApp As Outlook.Application
Dim l_Msg As MailItem
Set objApp = CreateObject("Outlook.Application")
'Set l_Msg = objApp.CreateItem(olMailItem) 'si c'est un nouveau mail
Set l_Msg = ActiveInspector.CurrentItem
Dim MyDate
MyDate = Date

l_Msg.Subject = MyDate 'dans le sujet

'ajoute la date au debut du contenu déjà existant
If l_Msg.BodyFormat = olFormatHTML Then
l_Msg.HTMLBody = "<html><p>" & "Bordeaux, le " & MyDate & " </p>" &
l_Msg.HTMLBody
Else
l_Msg.Body = "Bordeaux, le " & MyDate & l_Msg.Body
End If

Set objApp = Nothing
Set l_Msg = Nothing
End Sub

J'obtiens le message suivant:
"un programme essaie d'accéder aux adresses de messagerie
enregistrées dans Outlook, l'autorisez-vous à poursuivre ?"
Savez-vous si il existe un moyen d'éviter ce message?

Merci.

FRED.



enlève
Set objApp = CreateObject("Outlook.Application")
ca marche ?

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Avatar
Oliv'
Bonjour,

Lorsque j'exécute la macro suivante (généreusement fournie par Oliv'
;-):
Sub toto()
Dim objApp As Outlook.Application
Dim l_Msg As MailItem
Set objApp = CreateObject("Outlook.Application")
'Set l_Msg = objApp.CreateItem(olMailItem) 'si c'est un nouveau mail
Set l_Msg = ActiveInspector.CurrentItem
Dim MyDate
MyDate = Date

l_Msg.Subject = MyDate 'dans le sujet

'ajoute la date au debut du contenu déjà existant
If l_Msg.BodyFormat = olFormatHTML Then
l_Msg.HTMLBody = "<html><p>" & "Bordeaux, le " & MyDate & " </p>" &
l_Msg.HTMLBody
Else
l_Msg.Body = "Bordeaux, le " & MyDate & l_Msg.Body
End If

Set objApp = Nothing
Set l_Msg = Nothing
End Sub

J'obtiens le message suivant:
"un programme essaie d'accéder aux adresses de messagerie
enregistrées dans Outlook, l'autorisez-vous à poursuivre ?"
Savez-vous si il existe un moyen d'éviter ce message?

Merci.

FRED.


j'ai essayé ca marche pas de message !!
tu lances de outlook ?
2003 ?

Oliv'

Avatar
Fred
Bonjour,

Non, ça ne marche pas en enlevant
Set objApp = CreateObject("Outlook.Application")
En revanche, si je n'utilise pas:
l_Msg.HTMLBody = "<html><p>" & "Bordeaux, le " & MyDate & " </p>" &
l_Msg.HTMLBody
mais uniquement:
l_Msg.Body = "Bordeaux, le " & MyDate & l_Msg.Body
ça fonctionne mais la présentation de mon mail, au format HTML est en
"vrac"...

J'utilise Outlook 2003 dans un environnement Exchange 2000.

FRED.






"Oliv'" <(supprimerceci) a écrit dans le
message de news:

Bonjour,

Lorsque j'exécute la macro suivante (généreusement fournie par Oliv'
;-):
Sub toto()
Dim objApp As Outlook.Application
Dim l_Msg As MailItem
Set objApp = CreateObject("Outlook.Application")
'Set l_Msg = objApp.CreateItem(olMailItem) 'si c'est un nouveau mail
Set l_Msg = ActiveInspector.CurrentItem
Dim MyDate
MyDate = Date

l_Msg.Subject = MyDate 'dans le sujet

'ajoute la date au debut du contenu déjà existant
If l_Msg.BodyFormat = olFormatHTML Then
l_Msg.HTMLBody = "<html><p>" & "Bordeaux, le " & MyDate & " </p>" &
l_Msg.HTMLBody
Else
l_Msg.Body = "Bordeaux, le " & MyDate & l_Msg.Body
End If

Set objApp = Nothing
Set l_Msg = Nothing
End Sub

J'obtiens le message suivant:
"un programme essaie d'accéder aux adresses de messagerie
enregistrées dans Outlook, l'autorisez-vous à poursuivre ?"
Savez-vous si il existe un moyen d'éviter ce message?

Merci.

FRED.


j'ai essayé ca marche pas de message !!
tu lances de outlook ?
2003 ?

Oliv'