Discussion :

[em79]

Bonjour,

Je développe une macro excel VBA sur un fichier excel qui créé un autre fichier excel, et l'envoie par mail (avec item.send) à un destinataire précis. J'ai plusieurs destinataires qui reçoivent chacun un message "outlook" et un fichier qui leur sont propres.

Il s'agit donc d'un programme en boucle qui envoie jusqu'à 600 messages (1 par destinatiare), avec un fichier personnalisé par mail. Cependant, j'ai un problème réccurent : à chaque envoi, une boite de dialogue apparait avec le message suivant :

"un programme tente d'envoyer automatiquement des courriers en votre nom. L'autorisez-vous à poursuivre?". Il y a 3 boutons "oui", "non" et "aide"

Il s'agirait d'une action OLE de outlook.


Dans ce cas, je sur "oui", et le message est envoyé. Cela représente donc 600 clics sur "oui".

Bien entendu, j'ai testé plusieurs pistes, notamment celle de mettre un "Sendkeys {ENTER}" dans la macro VBA, pour un "clic" automatique sur "oui", mais sans succès.

J'ai également essayé de mettre le niveau de sécurité le plus faible dans le menu "outils -> macro > sécurité ", mais rien y fait.


Quelqu'un a-t-il une solution pour éviter ce message?


Merci d'avance pour vos réponses.
Emmanuel

[DarkVader]

Et tu as coché
Faire confiance au projet Visual Basic dans Sources fiables (Alt OMéS) ?

[em79]

Et tu as coché
Faire confiance au projet Visual Basic dans Sources fiables (Alt OMéS) ?

Ceci est grisé dans mon Outlook. Ma société m'en interdit l'accès.

[em79]

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
    Dim Woutlook As Outlook.Application
    Dim Wmess As Outlook.MailItem
    Dim Wfic As Outlook.Attachments
    Set Woutlook = New Outlook.Application
    Set Wmess = Woutlook.CreateItem(olMailItem)
    Set Wfic = Wmess.Attachments
 
email = Range("adresse").Value
 
Wmess.To = "" & email
 
 'Wmess.Cc = "Emmanuel MOREAU<A011518@maaf.fr>"
 
Wmess.Body = "Conformément au calendrier 2006 du Plan d'Action, vous voudrez bien trouver ci-joint le listage cité en objet." & _
Chr(10) + Chr(10) + "Nota: il est possible que votre liste soit vide; ce n'est pas une anomalie, mais une façon de vous informer qu'aucun contrat ou client n'est concerné." & _
Chr(10) + Chr(10) + "Cordialement." & _
Chr(10) + "Emmanuel MOREAU "
 
 
 
    Wmess.Subject = "AN < 12 mois  "
    Wfic.Add "F:\EM\listages_dalerte_auto\2005\4eme_trim\edition\" & Prefixe & Entite & ".xls"
 
Wmess.Send

[SilkyRoad]

bonjour

si tu utilises Office XP , tu seras sans doute obligé d'utiliser la méthde CDO pour envoyer ton message sans affficher la boite de dialogue d'alerte

http://support.microsoft.com/?id=290500



bonne journée
michel

[DarkVader]

Apparemment quelquesoit le cas de figure, il semble qu'il faille passer par l'administrateur afin de modifier les options signalées plus haut

• Visual Basic pour Applications Outlook : utilisez les fonctionnalités d'administrateur pour désactiver les restrictions du modèle d'objet ou convertissez votre code Visual Basic pour Applications en complément COM, puis inscrivez-le en utilisant le formulaire d'administrateur.

• Automatisation des modèles d'objet Outlook ou CDO : utilisez les fonctionnalités d'administrateur pour désactiver les restrictions du modèle d'objet.

à moins de coder en dur la validation de la boite via un sendmessage ...